27-05-15, 02:55 AM
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
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