20-11-17, 11:44 PM
(آخر تعديل لهذه المشاركة : 20-11-17, 11:45 PM {2} بواسطة 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شكرا للاخ / أحمد النجار
دائما مبدع ونحن نستفيد من خبرته الكبيرة ومن دروسة في اليوتيوب ومن مشاركاته الجميلة .


