نسخ جدول من قاعدة الي احري

[atefkhalf2004 2]

كيف يمكن نسخ جدول من قاعدة الي اخري

جملة الاتصال بالقاعدة الاولي

 Dim objconn As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; data source =" & Application.StartupPath & "\salse.mdb")

مسج الجدول القديم

        If objconn.State = ConnectionState.Open Then objconn.Close()
        Dim SavInto6 As New OleDb.OleDbCommand
        SavInto6.Connection = objconn
        SavInto6.CommandType = CommandType.Text
        SavInto6.CommandText = "drop TABLE  items     "
        objconn.Open()
        SavInto6.ExecuteNonQuery()
        objconn.Close()

 

اظهار مربع جواري

 

        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.Filter = "Access|*.mdb"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = False

 

        If openFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
        If openFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            fileName = openFileDialog1.FileName

        End If

         جملة الاتصال بالقاعدة الثانية
        Dim accConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source= '" & fileName & "' ")

        SavInto6.Connection = objconn
        SavInto6.CommandType = CommandType.Text
        SavInto6.CommandText = "كيف انسخ الجدول من القاعدة الاولي الي الثانية "
        objconn.Open()
        SavInto6.ExecuteNonQuery()
        objconn.Close()

      شكرا

[atefkhalf2004 2]

توصلت الي خذا الكود

Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDB:Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh.mdb"

        Using conn As New OleDbConnection(connect)
            Using cmd As New OleDbCommand()
                cmd.Connection = conn
                cmd.CommandText = "SELECT * INTO [MS Access;Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh1.mdb].[student] FROM [student]"
                conn.Open()
                cmd.ExecuteNonQuery()
            End Using
        End Using
        MsgBox("تم التسويه  بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "  ")

لكن يعطي خطأ

 

Invalid argument.