[mbk2006]

Imports System.IO

Module Module1
اذاهب الى القرص c:\
file واصنع مجلد باسم
txtوافتح بداخلة ملف تكست

من خلال المفكرة

وضع بدخل التكست مسار واسم قاعدة البيانات بعدها اقلك بامكانك تضعها باي مكان بالجهاز انت الذي تتحكم في المسار

هاكذا

D:\file\Contact.mdb

وهذين السطرتين ضعهم في المديول حتى يكونوا على مستوى البرنامج ككل

Public readtext As String = File.ReadAllText("d:\file\file3.txt")
Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & readtext & ";Jet OLEDBatabase Password=12345;"

End Module


دعوة عاااااااااااااااااابرة