Foxpro With Access

السلام عليكم ورحمة الله،،

بالابتعاد عن Remote Views والاعتماد على أوامر SqlExec في التعامل مع قواعد البيانات الأخرى جرب الاوامر التالية:

عمل اتصال مع قاعدة البيانات:

Public oConn
oConn=0

lcDataBaseName=[Accs]

local oConn, lcString, lcDataBase, lcDriver, lcUID, lcPWD
lcDataBase = lcDataBaseName + [; ]
lcDriver   = [ {Microsoft Access Driver (*.mdb)}; ]
lcUID	  = [ Admin; ]
lcPWD	  = [ ]

lcString = [Driver=] + lcDriver + [DBQ=]+ lcDataBase + [UID=]+ lcUID + [PWD=] + lcPWD

oConn = sqlstringconnect(lcString)

if oConn < 1
	messagebox([غير قادر على الاتصال بقواعد البيانات])
	return .f.
endif

جلب البيانات من الـ Access وتخزينها في Cursor

cmd=[ Select * from MyTable]
nCmd= sqlexec( oConn , cmd, [crsMyCursor] )
if nCmd<1
	messagebox([خطأ])
	return .f.
endif
select crsMyCursor

من هنا تبدأ بالتعامل مع الــ crsMyCursor بالنموذج أو البرنامج الذي تقوم باعداده.....كأنك تعامل مع أي جدول عادي.....من ناحية الاضافة والتعديل والحذف ........

يتبقى عليك هنا ارسال بعض الاوامر لحفظها في الــ Accsess بواسطة أومر SqlExec على النحو التالي:

للاضافة

Cmd=[ Insert into MyTable (Field1, Field1) select Field1, Field1 from crsMyCursor where……. ]
OR
Cmd=[ Insert into MyTable (Field1, Field1) values +;
[('] + thisform.text1.value + [', '] + thisform.text2.value + [')]

nCmd= sqlexec( thisform.oConn , Cmd)
if nCmd<1
	messagebox([خطأ])
	return .f.
endif

للتعديل

Cmd=[ update MyTable Set Field1 = ] +[']+ thisform.text1.value +[']+;
[, Field2 = ] +[']+ thisform.text2.value +['] +;
[ where MyTable.MainID= '] + ALLTRIM(STR(MainIdReference))+[']

nCmd= sqlexec( thisform.oConn , Cmd)
if nCmd<1
	messagebox([خطأ])
	return .f.
endif

وللحذف

Cmd=[ delete from MyTable where MyTable.MainID = '] + ALLTRIM(STR(MainIdReference))+[']

nCmd= sqlexec( thisform.oConn , Cmd)
if nCmd<1
	messagebox([خطأ])
	return .f.
endif

لا تستصعب الموضوع فهو سهل جداً بمجرد أن تعتاد عليه... وكما ترى فان معظم الكود مكرر،

كل ما عليك هو:

- تغيير تعريف الـ cmd حسب رغبتك علما بأنه جملة SQL عادية يتم فيها تخزين الامر الذي نود تنفيذه

- تحديد أسماء الحقول والمتغيرات وقاعدة البيانات حسب ما هو موجود لديك

وهذا مثال بسيط فيه بيان لعملية الاضافة والاستعراض فقط ( عذرا على عدم اكماله لضيق الوقت ولكن فيه الافكار الاساسية ) accs.rar

ولا تتردد في طرح أي استفسار

وكل عام وانتم بخير..

مع التحية

هل توجد امكانية لعمل العكس اي التعامل مع ملف فوكس وبرو من خلا اكسيس وذلك باستجلاب هذه البيانات وحفظها في ملف اكسيس

نعم يمكن ذلك،هذا الموقع يشرح بالصور كيفية الربط

مشكور اخي shadowz وما قصرت

وجعلة الله في ميزان حسناتك

العفو أخي kmb

للعلم يوجد ثلاثة طرق للتعامل مع قواعد البيانات المختلفة هي:

1. SQL Pass-Through ( برأيي هي الأقوى من ناحية التحكم والاداء وان كانت صعبة الاستخدام للوهلة الاولى )

2. Remote Views ( سهلة من ناحية التصميم والتعامل، وعيبها عدم القدرة على تغيير شروط الفلترة )

3. CursorAdapter ( تقريبا تجمع ما بين الاسلوبين السابقين...حيث تعطيك قوة تحكم كالاولى وسهولة تصميم كالثانية )

وان شاء الله يأتي يوم ونتكلم عنهم بالتفصيل

مع التحية..