منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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