الملف المرفق
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
