انا استخدم هذه الطريقة للتعامل مع قواعد البيانات
السوال هو السطر الاحمر كماترونه اسفل عبادره عن استدعاء قاعدة بيانات برقم سري عن طريق وسيط ODBC
الذى اريده هو كيف يمكن عن طريق ODBC
ضغط قاعدة البانات
علمنا انني استخدم ADO كمحرك
طبعاً هنا البرنامج يمعل على الشبكة
Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Form_Load()
Dim db As Connection
_______________________________________________________________
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=sysm;uid=;pwd=123123;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from AgadData ORDER BY AgadData.`AgedNo` ASC", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
End Sub
