تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى ؟؟؟
#1
السلام عليكم ورحمة الله وبركاته
كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى  بدل Module؟؟؟
بحيث يتم تغيير الاتصال بقاعدة البيانات بالتعديل فى الملف النصى بدل الدخول الى البرنامج وتعديل Module الذى يحتوى على الرباط
الرد }}}}
تم الشكر بواسطة:
#2
ما هو كود الاتصال
الرد }}}}
تم الشكر بواسطة:
#3
(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;"
الرد }}}}
تم الشكر بواسطة:
#4
ضع ملف نصي بجانب البرنامج اسمه 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
الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك اخى
اشكر على مجهودك جعله الله فى ميزان حسناتك

كما انى وجدت طريقة اخرى فى مشاركة سابقة للاخ mbk2006
http://vb4arb.com/vb/thread-12375.html
الرد }}}}
تم الشكر بواسطة: HASAN6.0
#6
يمكنك ايضاً حفظ اسم قاعدة البيانات والرقم السري في الـ Registry
كودالحفظ
savesetting("AA","BB","CC",databasePath)
كود الاسترجاع
GetSetting("AA", "BB", "CC")
الرد }}}}
تم الشكر بواسطة:
#7
بدلا من استخدام ملف نصي الأفضل أن تضع 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 
الرد }}}}
تم الشكر بواسطة:
#8
HASAN6.0
silverlight
بارك الله فيكم شباب
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في حفظ أعدات البرنامج طـلال 2 24 منذ 2 ساعة مضت
آخر رد: silverlight
  الاتصال بقاعدة البيانات العيدروس 2 19 منذ 2 ساعة مضت
آخر رد: العيدروس
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 7 916 22-10-17, 03:14 PM
آخر رد: رمضان محمد
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 79 16-10-17, 12:42 PM
آخر رد: silverlight
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 66 16-10-17, 07:41 AM
آخر رد: khaled12345
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 150 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 93 14-10-17, 10:55 PM
آخر رد: ابو روضة
  ظهور البرنامج عند نسخ رابط ابو روضة 8 175 12-10-17, 02:47 PM
آخر رد: ابو روضة
  [سؤال] رسالة خطأ بعد تنصيب البرنامج على جهاز آخر aftfm 1 59 09-10-17, 06:57 PM
آخر رد: Adrees
  [سؤال] استعراض حالة عمل البرنامج ابو روضة 7 190 08-10-17, 11:22 AM
آخر رد: ابو روضة

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


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