إنشاء العلاقات لأي قواعد بيانات الربط بالكود داخل الفجول بيسك

نقوم بستدعاء أداة Adodc1 داخل المشروع

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

ومن ثم نقوم برسم أداة textbox

نربط التكست بحقل الرقم في جدول مثلاً dept

ونكتب فل الحدث text_chang

adodc1.recordsuorce=("select * from emp where empno=' " & text1.text &" ' ")

adodc1.refresh

ولتأكد من أن الربط نجح نقوم بضمين بقية الحقول

نرسم text2.text

و text3.text

ونربطها كالتالي

adodc1.recordsuorce=("select * from emp where empno=' " & text1.text &" ' ")

adodc1.refrech

etxt1.text=adodc1.recordset!empno

text2.text=adodc1.recordset!ename

text3.text=adodc1.recordset!job

ونواصل حتى أخر سجل

وأي خطأ أعدكم بأني سأضمن برنامج مفتوح مع قاعدة البيانات للتأكد

أن واجهتم خطأ في كتابة الأسبلينج فلا تعتمدوا عليها أبداَ وقم بكتابة الكود بنفسك