[لا يعرف المستحيل]

السلام عليكم محتاج مساعدة الله يكرمكوا دنيا وآخره...........
قبل كل شيء انا بإمكاني انزل برنامج جاهز حول دليل الهاتف ... لكن رغبتي في أني اتعلم ...
عندي مشكلة ف المشروع اللي رفته اتمنى منكم توضحون لي وش المشلكة اللي ما سمحت لي بإضافة البيانات الجديدة الى قاعدة البيانات اللي انشاتها ...

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





بشكل سريع...

PHP كود :

Public Class Form1

    Public cnn As New OleDb.OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & Application.StartupPath & "\Directoryphone.accdb")



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.RefreshData()

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Val(Me.TextBox1.Text) = 0 Then

            Dim sql As String
            sql = " INSERT INTO [Names] ( [Name], [Number], [Address] ) " & _
                  "              VALUES (  @Name,  @Number,  @Address  ) "

            Dim cmd As New OleDb.OleDbCommand(sql, cnn)
            cmd.Parameters.AddWithValue("@Name    ", Me.TextBox2.Text)
            cmd.Parameters.AddWithValue("@Number  ", Me.TextBox3.Text)
            cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)

            cnn.Open()
            cmd.ExecuteNonQuery()
            cnn.Close()

        Else
            Dim sql As String
            sql = " UPDATE [Names]              " & _
                  "                             " & _
                  "    SET [Name]    = @Name,   " & _
                  "        [Number]  = @Number, " & _
                  "        [Address] = @Address " & _
                  "                             " & _
                  "  WHERE [sr] =  @sr          "

            Dim cmd As New OleDb.OleDbCommand(sql, cnn)
            cmd.Parameters.AddWithValue("@Name    ", Me.TextBox2.Text)
            cmd.Parameters.AddWithValue("@Number  ", Me.TextBox3.Text)
            cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)
            cmd.Parameters.AddWithValue("@sr      ", Me.TextBox1.Text)

            cnn.Open()
            cmd.ExecuteNonQuery()
            cnn.Close()

        End If

        RefreshData()

    End Sub


    Private Sub RefreshData()

        Dim sql As String
        sql = " SELECT *        " & _
              "   FROM [Names]  " & _
              "  ORDER BY [sr]  "

        Dim da As New OleDb.OleDbDataAdapter(sql, cnn)
        Dim dt As New DataTable
        da.Fill(dt)

        Me.DataGridView1.DataSource = dt

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

    End Sub

 
End Class 


السلام عليكم ورحمة الله وبركاته

[لا يعرف المستحيل]

مشكور ابوزايد ع الرد السريع الله لايحرمنا وجود ...
بس سؤالي كاتب كود php يعني قصدك باستخدام لغة php

[محمود اكرم]

الأخ الكريم وضع الكود داخل صندوق php ‏ ما عليك سوى نسخ الكود الذي داخل صندوق php ووضعه في المكان المناسب ،وظيفة هذا الصندوق تلويين الكود