[sendbad100]

(20-11-17, 11:07 PM)العيدروس كتب :

كود :

   Public Sub dbase_conn()
       If con.State = ConnectionState.Open Then con.Close()
       Try
           con = New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;Data Source=D:\DB\MAXDATABASE.accdb")
           con.Open()
       Catch ex As Exception
           MessageBox.Show(ex.Message, "لم يتم الربط مع قاعدة البيانات", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
           con.Close()
           End
       End Try
   End Sub

جرب   استخدم جملة الاتصال في الاعلى  
بعد ان  

تضع  مجلد جديد باسم DB  في  القرص  D

ثم تضع فيه قاعدة البيانات 

ورد لي خبر 

كود :

أحمد النجار
شكرا للاخ sendbad100  على المشاركة وبعد اذنك حل اخر

لو انك مستورد قاعدة البيانات في Solution exeplorer

قم بتحديدها ثم من الخصائص اختر خيار Copy to output directory

اختر الخيار do not copy

شكرا  للاخ /   أحمد  النجار 

 دائما  مبدع  ونحن نستفيد من خبرته الكبيرة ومن دروسة في اليوتيوب  ومن مشاركاته الجميلة .