+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50264)
تعديل على جملة الاتصال - ZEEN4ZEEN - 03-09-24
السلام عليكم جميعا
اريد التعديل على جملة الاتصال بقاعدة البيانات
بحيت يتم الاتصال بقاعدة البيانات التى يتم كتابة اسمها فى مربع النص
حيت يوجد اكتر من قاعدة بيانات فى المشروع
ارجو التعديل ان امكن
If TextBox13.Text = "" Then Exit Sub
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source =" & Application.StartupPath & "\Data\ " & TextBox1.Text & " .mdb.ACCDB ;jet oledb:database password=123456 ")
RE: تعديل على جملة الاتصال - alachk - 03-09-24
وعليكم السلام ورحمه الله وبركاته
جرب هذا الكود
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\" & TextBox1.Text & ".accdb ;jet oledb:database password=123456 ")
RE: تعديل على جملة الاتصال - ZEEN4ZEEN - 03-09-24
(03-09-24, 01:40 AM)alachk كتب : وعليكم السلام ورحمه الله وبركاته
جرب هذا الكود
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\" & TextBox1.Text & ".accdb ;jet oledb:database password=123456 ")
بارك الله فيك