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

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

shado1796 كتب :[b]شكرا لك ،، لكن مثل ما قلت لك المشروع لا يعمل عندي

تفضل الدالتان السابق ذكرهما

PHP كود :

' من قاعدة البيانات ListView إجراء تعبئة
    Private Sub FillListView()
        Me.ListView1.Items.Clear()

        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM table1", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        For Each r As DataRow In dt.Rows
            Dim itm As New ListViewItem
            ' للدلالة على أنه موجود في قاعدة البيانات id نضع رقم
            itm.Tag = r.Item("id")
            itm.Text = r.Item("name")
            itm.SubItems.Add(r.Item("phone"))
            itm.SubItems.Add(r.Item("address"))
            Me.ListView1.Items.Add(itm)
        Next
    End Sub


    ' في قاعدة البيانات ListView إجراء حفظ بيانات
    Private Sub SaveListView()

        conn.Open()
        For Each itm As ListViewItem In Me.ListView1.Items
            ' فإذا كان فهذا دليل على أنه غير موجود في قاعدة البيانات فنقوم بحفظ السطر id نختبر رقم
            If Val(itm.Tag) = 0 Then
                Dim comm As New OleDb.OleDbCommand("INSERT INTO table1 ([name],phone,address) VALUES (@name,@phone,@address)", conn)
                comm.Parameters.AddWithValue("@name", itm.Text)
                comm.Parameters.AddWithValue("@phone", itm.SubItems(1).Text)
                comm.Parameters.AddWithValue("@address", itm.SubItems(2).Text)
                comm.ExecuteNonQuery()
            End If
        Next
        conn.Close()

    End Sub 


[/b]
السلام عليكم ورحمة الله وبركاته