Private Sub Form_Load()
Dim s As String, strconnect As String
Dim rs As New ADODB.Recordset
Dim Folder As String
Folder = App.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
If Dir(Folder & "db1.mdb") = "" Then
MsgBox "áã íÚËÑ ÇáÈÑäÇãÌ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ ÇáÑÌÇÁ ãÑÇÓáÉ ÇáãÈÑãÌ Úáì ÇáÑÞã (0500024554)ááÍÕæá Úáì äÓÎÉ ÌÏíÏÉ ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbExclamation + arabic, "ÞÇÚÏÉ ÈíÇäÇÊ ÛíÑ ãæÌæÏÉ"
End
End If
strconnect = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =(Folder & db2.mdb)"
s = "Select * From mhj"
db.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =(Folder & db2.mdb"
rs.CursorType = adOpenDynamic
rs.Open s, strconnect
End Sub
حيث تظهر رسالة عدم الاتصال يقاعدة البيانات فما السبب
