[walkady]

السلام عليكم ورحمة الله وبركاته
كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى  بدل Module؟؟؟
بحيث يتم تغيير الاتصال بقاعدة البيانات بالتعديل فى الملف النصى بدل الدخول الى البرنامج وتعديل Module الذى يحتوى على الرباط

[HASAN6.0]

ما هو كود الاتصال

[walkady]

(21-11-15, 11:20 PM)HASAN6.0 كتب : ما هو كود الاتصال

Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\main.accdb;Jet OLEDBatabase Password=123456;"

[HASAN6.0]

ضع ملف نصي بجانب البرنامج اسمه Path.txt مثلاً

اكتب السطر الاول اسم قاعدة البيانات
والسطر الثاني الرقم السري

واكتب الFunction التالي

كود :

Public Function ConnectionString() As String
       Dim list As New List(Of String)
       Using r As StreamReader = New StreamReader(Application.StartupPath & "\path.txt")
           Dim line As String
           line = r.ReadLine
           Do While (Not line Is Nothing)
               list.Add(line)
               line = r.ReadLine
           Loop
       End Using
       Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\" & list(0) & ";Jet OLEDBBig Grinatabase Password=" & list(1) & ";"
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox(ConnectionString)
   End Sub

[walkady]

بارك الله فيك اخى
اشكر على مجهودك جعله الله فى ميزان حسناتك

---

كما انى وجدت طريقة اخرى فى مشاركة سابقة للاخ mbk2006
http://vb4arb.com/vb/thread-12375.html

[HASAN6.0]

يمكنك ايضاً حفظ اسم قاعدة البيانات والرقم السري في الـ Registry
كودالحفظ
savesetting("AA","BB","CC",databasePath)
كود الاسترجاع
GetSetting("AA", "BB", "CC")

[silverlight]

بدلا من استخدام ملف نصي الأفضل أن تضع ConnectionString في  App.config و هذا ما تنصح به مايكروسوفت لحماية ConnectionString

ولتنفيذ ذلك عليك ان تفتح ملف App.config من داخل الفيجوال استوديو ثم تضيف ConnectionString و سيكون شكل الملف في النهاية كالتالي

PHP كود :

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>


  <connectionStrings>
    <add name="ProjectConnectionString"
        connectionString="Data Source=.;Initial Catalog=MyDatabase;Integrated Security=True"
        providerName="System.Data.SqlClient" />
  </connectionStrings>

</configuration> 


و لاسترجاع Connection String عليك استخدام الكود بالشكل التالي:
او بالطريقة التي تريدها
لا تنسي فقط ان تضيف فضاء الاسماء System.Configuration الي مشروعك

PHP كود :

   Private ReadOnly Property ConnectionString As String
        Get
            Return ConfigurationManager.ConnectionStrings("ProjectConnectionString").ConnectionString
        End Get
    End Property 


[walkady]

HASAN6.0
silverlight
بارك الله فيكم شباب