[مبرمج جديد]

(15-02-17, 01:37 PM)Ahmed_Mansoor كتب : أهلا أخي الكريم , لنفترض أن أسماء الجداول والحقول وأنواع الحقول متطابقة , فهذا هو كود الفورم لعملية نقل البيانات :

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 


بارك الله فيك اخي الكريم وجزاك عنا كل خير
انا جربت الكود بس للاسف لم استطع كتابته بالشكل الصحيح
ممكن لو سمحت تضع الكود في المثال المرفق لاستطيع انا تعديله واظافته في مشروعي
المطلوب هو اظافة السجلات الموجودة في  الجدول well في قاعدة البيانات db2 الي الجدول well في قاعدة البيانات db1
مع عدم اظافة البيانات المكررة
وشكرا لتعاونك اخي الكريم