تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية ربط ملف نصي نوع txt موجود به مسار قاعدة البيانات ؟
#1
Information 
السلام عليكم .......
بسم الله
 كيف اجعل المشروع يقراء المسار     database  من اي مكان عن طريق ((-ملف نصي -))  (Text Document (.txt  مرفق بال setup  ....


اي في التصميم اضع ملف نصي به مسار قاعدة البيانات ويتم عن طريقه في كود فتح القاعدة اخد المسار  data soure= "ملف نصي.txt"


مثلا السطر الاول لقراءة مسار قاعدة بيانات    
     والسطر التاني لقراءة مسار الصور
كيف اعرف متغير لاستقبال السطر الاول لاستفيد منه لفتح قواعد البيانات ومتغير يستقبل السطر التاني لصور 
علما باني اشتغل vb2013
                                                 ارجوا المساعدة ... اخوكم مبتدأ
الرد }}}
تم الشكر بواسطة:
#2
يختلف الجواب حسب طريقة برمجة هذا المشروع
ولكن الافضل استخدم 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

هذا بشكل مبسط وقد تحتاج لتطوير هذا الكود
الرد }}}
تم الشكر بواسطة: moh_g
#3
بارك الله فيك ورحم الله والديك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 1 562 06-01-24, 02:32 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 2 721 05-01-24, 01:19 AM
آخر رد: HALIM ELEULMA
  كيفية وضع نصوص تحت بعض مع عمل تنسيق عليها بالالوان ؟ PeterGhattas082460 2 526 03-09-23, 02:23 PM
آخر رد: PeterGhattas082460
  بعض الاكواد المفيدة في التعامل مع قاعدة بيانات اكسس ابو ليلى 3 9,477 15-10-22, 12:16 AM
آخر رد: kebboud
  كيفية عمل شاشة تحميل البرنامج بطريقة اجمل من ال Progress bar Saly nor 0 1,894 12-04-22, 04:20 AM
آخر رد: Saly nor
  كيف يمكن مشاركة وتقسيم قاعدة البيانات اكسس لأكثر من مستخدم للشبكة بالفيجول بيسك Lathe1 1 2,004 14-02-21, 12:22 AM
آخر رد: sendbad100
  كود إضافة صورة في قاعدة بيانات أكسيس saffor 6 10,170 26-04-20, 11:08 PM
آخر رد: شوشه
  [سؤال] كيفية الربط بين الفيجوال بيسك والاكسيل محمد معمر 4 3,776 30-03-20, 05:10 PM
آخر رد: maram mohammed
  [كود] طريقة ملئ COMBOBOX بقواعد البيانات الموجودة على السيرفر galas 1 3,577 03-08-19, 08:20 PM
آخر رد: count4love
  [كود] خاص بقواعد البيانات ابو يوسف 6 5,607 02-06-19, 08:32 PM
آخر رد: Abdalazim19

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم