22-11-23, 08:22 PM
الملف المرفق
Module
به اجراء
Sub
لا بد من ان الجدول موجودة وبنفس التسمية من حيث الاعمدة و قد تكون تغيب عني معلومات مهمة لكن كتبتها لعل احد يستفيد.
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