تقييم الموضوع :
  • 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 , princeofislam
#3
(01-07-15, 12:02 PM)Ahmed_Mansoor كتب : أ
شكرا جزيلا
الرد
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 3 1,033 09-08-19, 02:23 AM
آخر رد: princeofislam
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 4 1,225 13-07-19, 03:14 AM
آخر رد: gadr
Sad نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO starwarr2005 4 2,321 05-02-19, 05:52 PM
آخر رد: بلال مناصرة
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 17 1,543 31-10-18, 12:54 AM
آخر رد: ابن دوعن
  [vb6.0] حول نقل السجلات من جدول الى جدول آخر sher 0 424 11-06-18, 12:16 PM
آخر رد: sher
  بحث عن كلمة في مجموعة حقول في جدول وعرضها في الفليكس قريد mustafa mohamed 3 649 29-11-17, 01:46 AM
آخر رد: حريف برمجة
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 1,135 30-11-16, 03:11 PM
آخر رد: haniblack
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 1,018 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : كود لمسح عدة سجلات من جدول بقاعدة البيانات دفعة واحدة hamada salah90 2 1,065 19-12-15, 01:22 AM
آخر رد: awidan76
Photo [vb6.0] طلب : أريد كود إضافة" حقل "جديد إلى "جدول" بقاعده البيانات hamada salah90 3 1,568 19-12-15, 01:19 AM
آخر رد: awidan76

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


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