مثال بسيط جدا احببت ان اخطه بيدي اقصد اشارك به وهو كالتالي:
نضيف عدد 2 شبيكة بيانات وزر امر
في منطقة التصريحات العامة نكتب
رمز برمجي:
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0; data source=|datadirectory|\db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Dim sql1 As String = "select * from tb1"
Dim sql2 As String = "select * from tb2"
Dim ds1 As New DataSet
Dim ds2 As New DataSet
Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)
Dim da2 As New OleDb.OleDbDataAdapter(sql2, con)
رمز برمجي:
كود :
If con.State = ConnectionState.Open Then
con.Close()
End If
ds1.Clear()
ds2.Clear()
DataGridView1.DataSource = Nothing
DataGridView2.DataSource = Nothing
da1.Fill(ds1, "tb1")
da2.Fill(ds2, "tb2")
DataGridView1.DataSource = ds1
DataGridView1.DataMember = "tb1"
DataGridView2.DataSource = ds2
DataGridView2.DataMember = "tb2"
رمز برمجي:
كود :
Dim cm As New OleDb.OleDbCommand("insert into tb2 select * from tb1", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Try
cm.ExecuteNonQuery()
Call Form1_Load(Me, e)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
If con.State = ConnectionState.Open Then
con.Close()
End If
End Try
هذا الكود مفيد لو حبيت اخذ نسخة من الجدول لجدول آخر عند التعديل او الحذف ولو احببت استرجاع النسخة فقط بدل في اسماء الجداول في جملة التنفيذ cm