[softmail8]

VB_Coder كتب :السلام عليكم

- اخي العزيز ، مايحتاج مثال ، لنفترض ان اسم قاعدة البيانات هو db1.mdb فقط غير مسار قاعدة البيانات في جملة الاتصال بدل ماتكون مثلا :

كود :

App.Path & "\db1.mdb"

ستصبح هكذا :

كود :

Environ("windir") & "\system32\db1.mdb"

- كود حدث اللود للفورم الموجود في المثال عدله ليصبح هكذا , طبعا بعد ما تضع ملف قاعدة البيانات في مجلد الsystem32 :

كود :

Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(Environ("windir") & "\system32\db1.mdb", True, False, ";Pwd =" & "sameer")
Set rs = db.OpenRecordset("soft", 2)
Text1.Text = rs.Fields!ID
Text2.Text = rs.Fields!Name
Text3.Text = rs.Fields!Phone
End Sub

- تحياتي .

-----------------------------------------
استاذي العزيز
السلام عليكم وحمة وبركاته
لكم مني جزيل الشكر والتقدير على تقدم الدعم الفني والله يحفظكم ويرعاكم
ولكم مني فائق الاحتارام والتقدير