17-08-16, 01:16 AM
PHP كود :
Public Class Form1
Dim con1 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db1.accdb")
Dim con2 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db2.accdb")
Dim da As New OleDb.OleDbDataAdapter("SELECT tn FROM tb1", con1)
Private Sub gd()
Dim da2 As New OleDb.OleDbDataAdapter("select *from tb2", con2)
Dim dt2 As New DataTable
da2.Fill(dt2)
ListBox2.DataSource = dt2
ListBox2.DisplayMember = "tn"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tb1 As New DataTable
da.Fill(tb1)
ListBox1.DataSource = tb1
ListBox1.DisplayMember = "tn"
gd()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO tb2 (tn) VALUES (@tn)", con2)
da.InsertCommand.Parameters.Add("@tn", OleDb.OleDbType.VarChar, 50, "tn")
da.AcceptChangesDuringFill = False
Dim dt As New DataTable
da.Fill(dt)
da.Update(dt)
gd()
End Sub
End Class