مساعدة فى اكواد الازرار فى Vba

وعليكم السلام ورحمة الله وبركاته أخي العزيز

لو بحثت الشيء القليل لكنت وجدت الكثير من الأمثلة لربط قواعد البيانات بكافة أنواعها في هذا الصرح العظيم ....

دعني أرشدك لجزء من الطريق لعالم البرمجة الممتع وعليك تكملة الباقي :

أولا يجب عليك معرفة الموديول وهي عبارة عن وحدة لتخزين تعريفات عامة وهنا ستقوم بتخزين مسار قاعدة البيانات والكونكشن لقاعدة البيانات من أجل إستدعائها من أي موقع بالمشروع :

تستطيع إضافة موديول من قائمة Project - Add Module

ثانيا والمفروض أولا : تقوم بتحديد نوع المكتبة التي ستتعامل مع قاعدة البيانات وهي تقنية ADO التي سأعرفك عليها .

تقوم باستدعائها في مشروعك بتحديدها من Project - References

ثم تحتار المكتبات

Microsoft Activex Data Objects 2.8 Librart

Microsoft Activex Data Objects RecordSet 2.8 Librart

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

فتقوم بكتابة الكود التالي في وحدة الموديول :

Public CN As New ADODB.Connection

Public Sub OpenCN()

Dim SQL as String

SQL = App.Path & "\" & Database.mdb

If dB.State = adStateOpen Then dB.Close

dB.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database ;"

dB.CursorLocation = adUseClient

dB.Open SQL

end sub

ومن ثم تقوم باستدعاء الكونكشن من حدث التحميل Form_Load بالنموذج أو من أي موقع يستدعي الإتصال بقاعدة البيانات :

Call OpenCN

أما بالنسبة في حدث زر الحفظ تقوم بكتابة الكود التالي

Private Sub CMDSave_Click()

'إستدعاء قاعدة البيانات

Call OpenCN

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

Dim Rec As New ADODB.Recordset

'الإتصال بالجدول

If Rec.State = 1 Then Rec.Close

Rec.Open "Select * From Table_Name ", CN, adOpenKeyset, adLockOptimistic

Rec.AddNew

Rec.Fields("ID") = Text1.Text

Then Rec.Fields("Name") = Text2.Text

Then Rec.Fields("") = Text3.Text

Rec.Fields("") = Text4.Text

Rec.Update

MsgBox "Ok"

End Sub