تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل جدول
#1
مطلوب كود نقل جدول الى قاعدة بيانات آخرى بالفيجوال بيسك 6
الرد
تم الشكر بواسطة:
#2
أهلا أخي الكريم , هذا كود نقل جدول من قاعدة بيانات أكسس إلى أخرى مع بياناته أو من غير بياناته فقط الجدول :

كود :
Dim AccessApp As Object

Set AccessApp = CreateObject("Access.Application")
DoEvents

AccessApp.Visible = False
DoEvents

AccessApp.AutomationSecurity = 1
DoEvents

AccessApp.DoCmd.SetWarnings False
DoEvents

AccessApp.OpenCurrentDatabase "c:\db1.mdb"
DoEvents

'يتم النقل مع البيانات
'AccessApp.DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\db2.mdb", acTable, "Table1", "Table1", False
'DoEvents

'توضيح فقط
'acExport = 1
'acTable = 0

'يتم النقل بدون البيانات
AccessApp.DoCmd.TransferDatabase 1, "Microsoft Access", "c:\db2.mdb", 0, "Table1", "Table1", True
DoEvents

AccessApp.CloseCurrentDatabase
DoEvents

AccessApp.Quit
DoEvents

Set AccessApp = Nothing
DoEvents

MsgBox "تم نقل الجدول بنجاح"
الرد
تم الشكر بواسطة: Amir Alzubidy
#3
(01-07-15, 12:02 PM)Ahmed_Mansoor كتب : أ
شكرا جزيلا
الرد
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO starwarr2005 4 2,057 05-02-19, 05:52 PM
آخر رد: بلال مناصرة
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 17 1,320 31-10-18, 12:54 AM
آخر رد: ابن دوعن
  [vb6.0] حول نقل السجلات من جدول الى جدول آخر sher 0 320 11-06-18, 12:16 PM
آخر رد: sher
  بحث عن كلمة في مجموعة حقول في جدول وعرضها في الفليكس قريد mustafa mohamed 3 524 29-11-17, 01:46 AM
آخر رد: حريف برمجة
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 1,026 30-11-16, 03:11 PM
آخر رد: haniblack
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 964 26-11-16, 01:17 AM
آخر رد: NOOOR
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 2 875 11-10-16, 04:20 PM
آخر رد: haniblack
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 918 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : كود لمسح عدة سجلات من جدول بقاعدة البيانات دفعة واحدة hamada salah90 2 981 19-12-15, 01:22 AM
آخر رد: awidan76
Photo [vb6.0] طلب : أريد كود إضافة" حقل "جديد إلى "جدول" بقاعده البيانات hamada salah90 3 1,411 19-12-15, 01:19 AM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم