ربط Access بـ Delphi5

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

ربط Access بـ Delphi5
ربط أكسس بدلفي 5

الخطوة الاولى

تشغيل أكسس 2007 عربي
انقر فوق الزر أكسس ثم اختر جديد وحدد قاعدة بيانات فارغة في المربع اسم الملف أكتب اسم ملف   وليكن مثلا AccessDB1.mdb  
من ايقونة رمز المجلد اختر مسار حفظ ملف قاعدة بيانات

حدد تبويب انشاء ومن المجموعة جداول انقر فوق جدول من كافة الجداول انقر باليمنى فوق جدول1
من القائمة انقر فوق عرض التصميم في المربع اسم الجدول أكتب اسم الجدول وليكن مثلا tab1
انقر فوق tab1 من القائمة انقر فوق عرض التصميم
أكتب اسم الحقل الاول وليكن Code في نوع البيانات حدد ترقيم تلقائي
اكتب اسم الحقل الثاني وليكن Nom في نوع البيانات حدد نص في تبويب عام حدد حجم الحقل 15
اكتب اسم الحقل الثالث وليكن Prenom في نوع البيانات حدد نص في تبويب عام حدد حجم الحقل 20
اكتب اسم الحقل الرابع وليكن Date1  في نوع البيانات حدد تاريخ/وقت
نكتفي بهذا وتستطيع الزيادة على ذلك حسب الحاجة وبنفس الطريقة
حفظ تغييرات التي اجريتها على الجدول وذلك في كل مرة تقوم بتغييرات الزيادة أو النقصان

الخطوة الثانية

الذهاب الى لوحة التحكم Panneau de configuration   ثم الى أدوات
Outils d'administration
انقر فوق
Sources de données (ODBC)
انقر فوق ايظافة
Ajouter...
اختر من القائمة
Microsoft Access Driver (*.mdb)
أو
Microsoft Access Driver (*.mdb, *.accdb)
انقر فوق انهاء
Terminer
أكتب اسما وليكن مثلا هكذا  MyAliasAccess
Nom de la source de données : MyAliasAccess
انقر فوق تحديد
Sélectionner...
حدد مجلد قاعدة البيانات وليكن مثلا
c:\...\Base de donnee Access
في
Base de données
حدد الملف التالي
AccessDB1.mdb
أنقرفوق موفق
Ok
أنقرفوق موفق
Ok

الخطوة الثلثة

ذهاب الى دلفي وانشاء مشروع جديد وحفظه مع ملف قاعدة البيانات في نفس المجلد
ضع على النموذج اي الفورم1 تابل TTable وذلك من تبويب AccessBD
ومن تبويب  ControleBD  ضع داتا سورس TDataSource  و  TDBNavigator  و TDBGrid
من Form1  حدد Table1 ومن مفتش الكائنات Inspecteur d'objets حدد الخاصسة DatabaseName
وختر من القائمة MyAliasAccess الذي انشأته سابقا ومن الخاصية TableName ختر من القائمة الجدول
tab1 ومن الخاصية Active اختر   True أي عرض محتوى الجدول
حدد DataSource1 ومن الخاصية DataSet اختر Table1 أي تم ربطهما مع بعض
حدد DBNavigator1   ومن الخاصية DataSource اختر DataSource1 أي تم ربطهما مع بعض
حدد DBGrid1  ومن الخاصية  DataSource اختر DataSource1 أي تم ربطهما مع بعض
سيتم عرض النتائج اثناء تصميم .

عرض النتائج اثناء تنفيذ
حدد Table1  اختر الخاصية  Active  ثم اختر false  أي تعطيل الخاصية
انقر نقرتين فوق Form1 واكتب في اجراء الانشاء الامر التالي   Table1.Open;


procedure TForm1.FormCreate(Sender: TObject);
begin
 Table1.Open;
end;

حدد DBGrid1 أو شبكة واكتب قائمة من الاسماء

------------------------
لمزيد من المعلومات زيارة المنتد

delph.forumalgerie.net