' من قاعدة البيانات 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
