كيفية التعامل مع جداول قاعدة بيانات فوكس برو قديمة Dos بواسطة دلفي

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

بامكانك تجريب الكود التالي من خلال الفوكس برو

Driver=[Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\FPD26]
oConn=Sqlstringconnect(Driver)
If oConn > 0
	cmd=SQLExec(oConn, " select * from SD.dbf", "Test")
	If cmd>0
		Select Test
		Browse
	Else
		Messagebox([ ??? ])
	Endif
Else
	Messagebox([ !!! ])
Endif
SQLDisconnect(0)

جربت الكود مع dos.dbf واظن ان نفس الفكرة تصلح مع الدلفي ولكن مع تغيير Sql Statements

مع التحية

ياريت اخي مزيد من التوضيح واين يمكن ان اكتب هذا الكود ؟؟؟؟؟

بارك الله فيك

لا اعلم هل لك علاقة بالفوكس برو ام لا، والمطلوب حسب السؤال اما بالدلفي او Vfp

وهذا المثال تطبيق بواسطة ال Vfp،

هناك طريقتان للاتصال بجداول الفوكس برو اما بواسطة ODBC وهي المتبعة في المثال أو بواسطة VfpOle Provider

وهذا شرح المثال :

</SPAN><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: Tahoma">Driver=[Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\FPD26]</SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"> >

تحديد ODBC Driver ( وهو وسيلة الاتصال بالجداول ) والمستخدم هنا Microsoft dBASE Driver (*.dbf) ويأتي مع Windows ولا داعي لتغييره، بالاضافة لتحديد مسار المجلد الذي يحتوي على الجداول C:\FPD26 وهذا يتم تغييره حسب المسار المطلوب،

</SPAN><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: Tahoma">oConn=Sqlstringconnect(Driver)</SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"> >

السطر الثاني يتم فيه محاولة الاتصال بالجداول بواسطة Sqlstringconnect بالاعتماد على Driver المعرف سابقا، فاذا تم الاتصال فان القيمة التي ستخزن لل oConn اما -1 وهذا يعني فشل الاتصال، او ستأخذ رقم موجب يعتمد عليه في اختيار ال Connection

</SPAN><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: Tahoma">cmd=SQLExec(oConn, " select * from SD.dbf", "Test")</SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"> >

وهذا الامر يقوم بجلب البيانات من الجدول المختار باستخدام الامر SQLExec وانشاء Cursor باسم Test

والقيمة المخزنة في Cmd ستكون اما -1 وتعني الفشل واما قيمة موجبة وتدل على نجاح امر SQLExec

اما باقي الاوامر فهي عادية ولاظهار نتائج عملية محاولة الاتصال

مرفق نموذج في توضيح بيسط للعملية مع ملفات fpd.dbf

مع التحية

connect.rar