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

[mostafaxman]

بسم الله الرحمن الرحيم

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


نضيف الكنترول Data1 من الأداة Data الموجوده على شريط الأدوات.. و نقوم
بتعديل الخاصيه Data****Name وبكتابة مسار القاعدة التي انشأناها, وذلك لربطه مع ملف قاعدت
البيانات.. وهو bodysoft.mdb وبعدها نتأكد من ان الخاصيه Connect تحمل القيمة Access ..

أي ان DataControl يتعامل مع مدير قاعده البيانات Access ولكن يبقى ان نربطه مع جدول معين
فنقوم إختيار إسم الجدول من الخاصيه RecordSource ولا يوجد لدينا سوى جدول وآحد وهو Table1.. وبهذا نكون قد ربطنا Data مع الملف.

الكائنات التي سنحتاجها في العمل:
2 ****Box, 2 Label.. ضع هذه الكائنات لتكون بهذا الشكل:



http://bodysoft.ueuo.com/lap/lirn/tele.jpg
ونحن الآن قد جهزنا الواجهة وبقى علينا أن نربط ال ****s مع الحقل المناسب الموجود في القاعده وذلك بستخدام الاداه Data1 ..
نربط الواجه مع القاعده من خلال ال Data1 وذلك بختيار ****1 وتغير الخاصيه DataSouce له بختيارنا Data1 ثم نقوم بتحديد إسم الحقل وذلك من خلال
الخاصية..DataField وإذا كن عملنا صحيح تظهر لنا قائمه الحقول داخل الجدول Table1 ولـ ****1 نختار Name أى الإسم..

ونقوم بالعمليه السابقة على ****2 وذلك من خلال تغير الخاصيه لديها واختيار من DataField القيمة Phone..

وبهذا نكون قد أنشئنا أول برنامج مربوط بقاعدت بيانات وذلك من غير كتابه كود ..
ويمكننا الان من إستعراص محتويات قاعدت البينات, ولكننا انشأنا قاعدة بيانات فارغة لذا يجب
اولا اضافة بعض البيانات لها, ويمكم ذلك اثناء تشغيل البرنامج بالكود و هذا ما ستعرفه في الدرس القادم, او عن طريق كتابتها مباشرة..

وهناك طرق اخرى لربط قاعدة البيانات عن طريق الكود
اولها




Private Sub Form_Load()
Data1.Data**** = App.Path & "\bodysoft.mdb"
Data1.RecordSource = "Table1"
End Sub


والثانية :


نقوم بانشاء مديول ونضع الكود التالى :



Public DB As Data****
Public RS As Recordset

Private Sub main()
Set DB = DBEngine.Workspaces(0).OpenData****(App.Path & "\bodysoft.mdb")
Form1.Show
End Sub


وفى الفورم



Private Sub Form_Load()
Set RS = DB.OpenRecordset("Table1", dbOpenTable)
Call showdata
End Sub



Private Sub showdata()
If RS.RecordCount < 1 Then Exit Sub
****1.**** = RS!Name
****2.**** = RS!Phone
End Sub


وطرق اخرى ولاكن انا اذكر المشهور منها حاليا

بالتوفيق