منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ (/showthread.php?tid=13893)

كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - walkady - 21-11-15

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

RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - HASAN6.0 - 21-11-15

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

RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - walkady - 21-11-15

(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 OLEDBBig Grinatabase Password=123456;"

RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - HASAN6.0 - 21-11-15

ضع ملف نصي بجانب البرنامج اسمه 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


RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - walkady - 21-11-15

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

RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - HASAN6.0 - 21-11-15

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

RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - silverlight - 21-11-15

بدلا من استخدام ملف نصي الأفضل أن تضع 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 


RE: كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟ - walkady - 22-11-15

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