دخول

**abuahmed** · 30-06-15, 11:06 PM

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

**Ahmed_Mansoor** · 01-07-15, 12:02 PM

أهلا أخي الكريم , هذا كود نقل جدول من قاعدة بيانات أكسس إلى أخرى مع بياناته أو من غير بياناته فقط الجدول :

كود :

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 "تم نقل الجدول بنجاح"

**abuahmed** · 02-07-15, 12:04 AM

(01-07-15, 12:02 PM)Ahmed_Mansoor كتب : أ

شكرا جزيلا

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	أريد عرض اخر سجل في جدول من قاعدة بيانات أكسس	hamada salah90	5	2,855	13-08-20, 02:06 AM آخر رد: بلدي
	تغيير محتويات الصف بالكامل في جدول قاعدة البيانات	haniblack	3	3,556	09-08-19, 02:23 AM آخر رد: princeofislam
	[سؤال] استفسار كيفية الدمج بين اكثر من جدول	NOOOR	4	3,885	13-07-19, 03:14 AM آخر رد: gadr
	نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO	starwarr2005	4	6,534	05-02-19, 05:52 PM آخر رد: بلال مناصرة
	[vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا	mustafa mohamed	17	6,480	31-10-18, 12:54 AM آخر رد: ابن دوعن
	[vb6.0] حول نقل السجلات من جدول الى جدول آخر	sher	0	1,790	11-06-18, 12:16 PM آخر رد: sher
	بحث عن كلمة في مجموعة حقول في جدول وعرضها في الفليكس قريد	mustafa mohamed	3	2,282	29-11-17, 01:46 AM آخر رد: حريف برمجة
	سؤال بخصوصو عدد الصفوف في جدول mshflexgrid	haniblack	4	2,969	30-11-16, 03:11 PM آخر رد: haniblack
	كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت	engabuhema	1	2,528	31-07-16, 01:34 PM آخر رد: ahmedabdelaliem
	[vb6.0] طلب : كود لمسح عدة سجلات من جدول بقاعدة البيانات دفعة واحدة	hamada salah90	2	2,285	19-12-15, 01:22 AM آخر رد: awidan76