تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 65 30-11-16, 03:11 PM
آخر رد: haniblack
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 74 26-11-16, 01:17 AM
آخر رد: NOOOR
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 2 104 11-10-16, 04:20 PM
آخر رد: haniblack
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 145 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : كود لمسح عدة سجلات من جدول بقاعدة البيانات دفعة واحدة hamada salah90 2 361 19-12-15, 01:22 AM
آخر رد: awidan76
Photo [vb6.0] طلب : أريد كود إضافة" حقل "جديد إلى "جدول" بقاعده البيانات hamada salah90 3 663 19-12-15, 01:19 AM
آخر رد: awidan76
  [vb6.0] طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا hamada salah90 2 275 29-10-15, 09:04 PM
آخر رد: hamada salah90
  [vb6.0] طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين hamada salah90 4 451 20-10-15, 10:50 PM
آخر رد: Ahmed_Mansoor
Sad نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO starwarr2005 3 616 01-10-15, 10:42 PM
آخر رد: starwarr2005
  [vb6.0] طلب: إضافة نص من الفيجول بيسك إلى Word وإنشاء جدول بواسطة الكود hamada salah90 1 627 19-07-15, 01:03 AM
آخر رد: Ahmed_Mansoor

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


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