السلام عليكم .......
بسم الله
كيف اجعل المشروع يقراء المسار database من اي مكان عن طريق ((-ملف نصي -)) (Text Document (.txt مرفق بال setup ....
اي في التصميم اضع ملف نصي به مسار قاعدة البيانات ويتم عن طريقه في كود فتح القاعدة اخد المسار data soure= "ملف نصي.txt"
مثلا السطر الاول لقراءة مسار قاعدة بيانات
والسطر التاني لقراءة مسار الصور
كيف اعرف متغير لاستقبال السطر الاول لاستفيد منه لفتح قواعد البيانات ومتغير يستقبل السطر التاني لصور
علما باني اشتغل vb2013
ارجوا المساعدة ... اخوكم مبتدأ
يختلف الجواب حسب طريقة برمجة هذا المشروع
ولكن الافضل استخدم Registry لحفظ مسار قاعدة البيانات ومسار الصور
وهذا مثال
نقوم بإنشاء Module ونضع فيه التالي
كود :
Module Module1
Public DatabasePath As String = ""
Public ImagesPath As String = ""
Public Function CheckSettings() As Boolean
DatabasePath = GetSetting(Application.ProductName, "AppPaths", "DatabasePath", "")
ImagesPath = GetSetting(Application.ProductName, "AppPaths", "ImagesPath", "")
If DatabasePath = "" Or ImagesPath = "" Then
MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور")
Using browse As New FolderBrowserDialog
browse.ShowNewFolderButton = True
browse.Description = "تحديد مسار قاعدة البيانات"
If browse.ShowDialog = Windows.Forms.DialogResult.OK Then
DatabasePath = browse.SelectedPath
SaveSetting(Application.ProductName, "AppPaths", "DatabasePath", DatabasePath)
End If
End Using
Using browse As New FolderBrowserDialog
browse.ShowNewFolderButton = True
browse.Description = "تحديد مسار الصور"
If browse.ShowDialog = Windows.Forms.DialogResult.OK Then
ImagesPath = browse.SelectedPath
SaveSetting(Application.ProductName, "AppPaths", "ImagesPath", DatabasePath)
End If
End Using
Else
Return True
End If
If DatabasePath <> "" And ImagesPath <> "" Then
MsgBox("تم إنشاء مسار قاعدة البيانات ومسار الصور ويمكنك متابعة عمل البرنامج")
Return True
Else
Return False
End If
End Function
End Module
وفي بداية تشغيل البرنامج مثلا في حدث Form1_Load
كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
If Not CheckSettings() Then
MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور قبل متابعة العمل في البرنامج")
MsgBox("سيتم الخروج من البرنامج")
Application.ExitThread()
End If
End Sub
هذا بشكل مبسط وقد تحتاج لتطوير هذا الكود
بارك الله فيك ورحم الله والديك