[mrnooo2000]

هذا الاستعلام يقوم بنقل بيانات الجدول الى جدول جديد فى قاعدة البيانات المحددة 

كود :

SELECT Table1.N°, Table1.nom, Table1.prenom INTO Table1 IN 'C:\Users\Yossof\Desktop\copy table\copy table\copy table\bin\Debug\DataBases\db_work.mdb'
FROM Table1;

 و هذا كود الزر لنقل الجدول 

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           Using con As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=123;Data Source=DataBases\db1.mdb")
               Using cmd As New OleDb.OleDbCommand("SELECT Table1.N°, Table1.nom, Table1.prenom INTO Table1 IN '" & Application.StartupPath & "\DataBases\db_work.mdb' FROM Table1;", con)
                   con.Open()
                   cmd.ExecuteNonQuery()
                   con.Close()
               End Using
           End Using
           MsgBox("table copied")
       Catch ex As Exception
           MsgBox("table already exists")
       End Try
   End Sub