منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تعديل على جملة الاتصال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم جميعا
اريد التعديل على جملة الاتصال بقاعدة البيانات 
بحيت يتم الاتصال بقاعدة البيانات التى يتم كتابة اسمها فى مربع النص 
حيت يوجد اكتر من قاعدة بيانات فى المشروع 
ارجو التعديل ان امكن 

 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 ")
وعليكم السلام ورحمه الله وبركاته
جرب هذا الكود
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\" & TextBox1.Text & ".accdb ;jet oledb:database password=123456 ")
(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 ")

بارك الله فيك