نسخ جدول من قاعدة إلى اخرى

من داخل الاكسيس يمكنك انشاء استعلام من نوع انشاء جدول مع تحديد مسار الهدف .

تحياتي

omani كتب:

من داخل الاكسيس يمكنك انشاء استعلام من نوع انشاء جدول مع تحديد مسار الهدف .

تحياتي

اهلاً وسهلاً فيك اخي واستاذي الفاضل كيف حالك

ان شاء الله تكون بخير وصحة وسلامة

والف شكر لك على ردك

حاولت ولم استطيع نسخ الجدول او انشاء الجدول عن طريق الاستعلام وما اريد هو نسخ الجدول مع كامل البيانات الى القاعدة المذكوره

ياليت تساعدني بكود في الفيجوال بيسك يقوم بهذه المهمه

والف الف شكر للمرة الثانية وآسفه على الاطاله

up

ضعي هذا الكود في المكان المناسب

On Error Resume Next
 Dim db1 As New ADODB.Connection
  Dim db2 As New ADODB.Connection ' Connect Table 2
  Dim rs1 As New ADODB.Recordset
  Dim SQL As String

  'الاتصال بقاعدة البيانات لاولى
 db1.Provider = "Microsoft.JET.OLEDB.4.0;" ' تحديد محرك قاعدة البيانات
    db1.Open App.Path & "\A\layan.mdb" ' فتح قاعدة البيانا
'الاتصال بقاعدة البيانات الثانية
 db2.Provider = "Microsoft.JET.OLEDB.4.0;" ' تحديد محرك قاعدة البيانات
    db2.Open App.Path & "\B\Aml.mdb" ' فتح قاعدة البيانا

'حذف الجدول السابق ان وجد في القاعدة الثانية
db2.Execute ("Drop table [Table];")
'انشاء جدول جديد على حسب الاستعلام
SQL = "SELECT [Table].* INTO [table] IN '" & App.Path & "\b\aml.mdb' FROM [Table];"
rs1.Open SQL, db1, adOpenDynamic, adLockOptimistic

MsgBox " Thank Table Are Copied with Records"

تحياتي

الف الف شكر لك اخي وبارك الله فيك