كود ربط قاعدة بيانات اكسس بالفيجوال عن طريق تقنية ADO
فى قسم التصريحات اعلى نافذة الكود نقوم بكتابة المتغير الخاص بتحميل قاعدة البيانات والمتغير الخاص بتحميل الجدول
انظر الى هذا الكود
dim db As New ADODB.Connection
dim rs As New ADODB.Recordset
ثم فى حدث التحميل فى النموزج نكتب هذا الكود
Private Sub Form_Load()
On Error Resume Next
Call Epath_File
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open (Epath)
rs.Open "[T1]", db, adOpenStatic, adLockPessimistic
End Sub
ثم نقوم بعمل خاصية جديدة بهذا الكود
Sub Epath_File()
Open App.Path & "\" & "\Seytem.ini" For Input As #1
Line Input #1, Epath
Close #1
End Sub
وهذة الخاصية السابقة تعمل على استعراض مصدر البيانات من ملف نصى ونسخدمها فى برمجة برنامج يعمل على شبكة
ليست هناك تعليقات:
إرسال تعليق