(20-09-20, 09:26 AM)Anas Mahmoud كتب : بكل بساطة ملف قاعدة البيانات غير موجود في المسار الذي حددته

لا تضع مسار محدد في نص الاتصال لانه سيكون مقتصر على جهازك فقط

(20-09-20, 02:23 PM)mrfodri كتب : قم بإنشاء متغير في الSettings الخاص بالمشروع باسم s1 مثلا

ضع هذا الكود في بداية الحدث Form1_Load

كود :

       If IO.File.Exists(My.Settings.s1) = False Then
           Dim OpenFileDialog1 As New OpenFileDialog
           OpenFileDialog1.Filter = "database|*.mdb"
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Close()
           My.Settings.s1 = OpenFileDialog1.FileName
       End If
       con = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.s1 & "")

(20-09-20, 03:24 PM)Anas Mahmoud كتب : لاتوجد طريقة سحرية ، فقط عدل نص الاتصال في الجزء Data Source الى مسار قاعدة البيانات الذي هو بجانب البرنامج 

كود :

Data Source=|DataDirectory|\Client.mdb;

ليصبح نص الاتصال مثلا :

كود :

Provider = Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Client.mdb;

الان كل ما تحتاجه ان يكون ملف قاعدة البيانات بجانب البرنامج

---

تعقيبا على رد الاخ ، Settings البرنامج هي طريقة لتخزين قيم تحتاجها طوال عمل البرنامج ، مثلا مسار قاعدة البيانات ، هذه نحصل عليها مرة ونريد الاحتفاظ به للمرات التالية التي سيعمل بها البرنامج


للوصول للسيتينج 




الان اصبح لديك setting اسمه s1 استخدم كود الاخ كما هو لا تعدل شيء

(20-09-20, 03:24 PM)Anas Mahmoud كتب : لاتوجد طريقة سحرية ، فقط عدل نص الاتصال في الجزء Data Source الى مسار قاعدة البيانات الذي هو بجانب البرنامج 

كود :

Data Source=|DataDirectory|\Client.mdb;

ليصبح نص الاتصال مثلا :

كود :

Provider = Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Client.mdb;

الان كل ما تحتاجه ان يكون ملف قاعدة البيانات بجانب البرنامج

---

تعقيبا على رد الاخ ، Settings البرنامج هي طريقة لتخزين قيم تحتاجها طوال عمل البرنامج ، مثلا مسار قاعدة البيانات ، هذه نحصل عليها مرة ونريد الاحتفاظ به للمرات التالية التي سيعمل بها البرنامج


للوصول للسيتينج 




الان اصبح لديك setting اسمه s1 استخدم كود الاخ كما هو لا تعدل شيء

(20-09-20, 03:55 PM)Anas Mahmoud كتب : عدل اول سطر في الكود فوق بعد Public Class Form3

الى

Dim con as OleDbConnection فقط لتعمل طريقة السيتنج