15-02-17, 01:37 PM
أهلا أخي الكريم , لنفترض أن أسماء الجداول والحقول وأنواع الحقول متطابقة , فهذا هو كود الفورم لعملية نقل البيانات :
PHP كود :
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
DoEvents
RS.Open "Insert Into Table1 Select * From Table1 IN'" & App.Path & "\db2.mdb" & "'", DB, adOpenDynamic, adLockOptimistic
DoEvents
MsgBox "تمت العملية بنجاح", vbInformation, "تنبيه"
End Sub
Private Sub Form_Load()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
DB.CursorLocation = adUseClient
End Sub
