منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=77)
+--- الموضوع : مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى (/showthread.php?tid=16829)



مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى - سعود - 17-08-16

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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Button1.Click
        da
.InsertCommand = New OleDb.OleDbCommand("INSERT INTO tb2 (tn) VALUES (@tn)"con2)
 
       da.InsertCommand.Parameters.Add("@tn"OleDb.OleDbType.VarChar50"tn")
 
       da.AcceptChangesDuringFill False
        Dim dt 
As New DataTable
        da
.Fill(dt)
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class