[كود] نسخ بيانات جدول من ملف اكسس الى جدول في ملف اكسس مستقل

PHP كود :

Module CopyTableDataFromDb_To_Other_Db
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="cn">كائن الاتصال بالقاعدة المصدر</param>
    ''' <param name="dbo">مسار ملف القاعدة الوجهة كامل</param>
    ''' <param name="tbsource">اسم الجدول المصدر</param>
    ''' <param name="tbto">اسم جدول الوجهة</param>
    ''' <param name="idcolsource">اسم عمود ترقيم او مفتاح اساسي المصدر</param>
    ''' <param name="idcolto">اسم عمود ترقيم تلقائي او مفتاح اساسي الوجهة</param>
    Public Sub tbfromto(cn As OleDb.OleDbConnection, dbo As String, tbsource As String, tbto As String, idcolsource As String, idcolto As String)
        Try
            Using cmd As New OleDb.OleDbCommand("", cn)
                cmd.CommandText = "insert into " & tbto & " in '" & dbo & "' select * from " & tbsource & " WHERE NOT EXISTS (select * from " & tbto & " in '" & dbo & "' where " & tbto & "." & idcolto & "=" & tbsource & "." & idcolsource & ")"
                If cn.State = ConnectionState.Closed Then cn.Open()
                cmd.ExecuteNonQuery()
                If cn.State = ConnectionState.Open Then cn.Close()
            End Using
            MsgBox("تم النسخ بنجاح", MsgBoxStyle.Information, "نسخ جدول")
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub
End Module

PHP كود :

Using con As New OleDb.OleDbConnection(str)
     Dim o As New OpenFileDialog
     If o.ShowDialog = DialogResult.OK Then
         tbfromto(con, o.FileName, "tb1", "tb4", "tid", "tid")
     End If
 End Using