ارجو المساعدة فى نسخ جدول من قاعدة بيانات لاخرى بالفيجوال بيسيك

اذا وجد عندك جداول معروفة ومحددة فالامر سهل باستخدام recordset

sql ="select * from table1"

rs.Open sql, ٍSQlCnn 'con to sql server

ConnAccess.execute "delete from table1"

rs2.Open sql, ٍSQlCnn 'con to Access

do while not rs.eof

rs2.addnew

for i=0 to rs.fields.count-1

rs2(i)=rs(i)

next

rs2.update

loop

يجب تعريف المتغييرات والاتصال بقاعدة البيانات

السلام عليكم

شكرا على الرد بس الطريقة دى ممكن تاخد وقت كبير خصوصا لو كان الجدول فية بيانات كتير