+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعبئة الكومبوبوكس باسماء قواعد البيانات sql (/showthread.php?tid=15896)
تعبئة الكومبوبوكس باسماء قواعد البيانات sql - ragab saleh - 24-05-16
السلام عليكم ورحمة الله وبركاته.
جماعة الخير.
اريد تعبئة الكومبو بوكس باسماء قواعد البيانات من نوع sql الموجودة على السيرفر.
ارجو المساعدة فضلا وليس امرا.
مشكورينز
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As SqlConnection
Dim myCommand As New SqlCommand
Dim myAdapter As New SqlDataAdapter
Dim dataset As New DataSet
Dim SQL As String
Dim myData2 As New DataTable
conn = New SqlConnection
conn.ConnectionString = ("server=;" & ComboBox1.Text & "user id=" & TextBox1.Text & ";" & "password=" & TextBox2.Text & ";")
Try
conn.Open()
MessageBox.Show("Connection Opened Successfully!")
Catch myerror As SqlException
MessageBox.Show("Error was encountered when connecting" & myerror.Message)
Finally
End Try
SQL = "show Databases;"
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData2)
ComboBox1.DataSource = myData2
ComboBox1.DisplayMember = "Database"
conn.Close()
End Sub
وما الخطأ فى الكود
RE: تعبئة الكومبوبوكس باسماء قواعد البيانات sql - Adrees - 24-05-16
الخطأ في جملة الاستعلام
ثانيا الكمبو بوكس يجب ان تحدد له نوع الحقل المراد عرضه اسم قاعدة البيانات او رقمها الخ...
لان مصدر البيانات يحمل العديد من الحقول.
PHP كود :
Dim conn As SqlConnection
Dim myCommand As New SqlCommand
Dim myAdapter As New SqlDataAdapter
Dim dataset As New DataSet
Dim SQL As String
Dim myData2 As New DataTable
conn = New SqlConnection
conn.ConnectionString = ("server=;" & ComboBox1.Text & "user id=" & TextBox1.Text & ";" & "password=" & TextBox2.Text & ";")
Try
conn.Open()
MessageBox.Show("Connection Opened Successfully!")
Catch myerror As SqlException
MessageBox.Show("Error was encountered when connecting" & myerror.Message)
Finally
End Try
SQL = "SELECT * FROM sys.databases d WHERE d.database_id>4"
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData2)
For Each dr As DataRow In myData2.Rows
ComboBox2.Items.Add(dr(0))
Next
conn.Close()
RE: تعبئة الكومبوبوكس باسماء قواعد البيانات sql - طالب 22 - 24-05-16
address = نظرة ثاقبة + حل سريع = نتيجة ترضي كل الاطراف
RE: تعبئة الكومبوبوكس باسماء قواعد البيانات sql - الوادي - 24-05-16
يا رجب،
اللي اعرفه ان الاستعلام "show Databases" خاص ب MySql وليس SqlServer تاكد سؤالك.
RE: تعبئة الكومبوبوكس باسماء قواعد البيانات sql - الوادي - 24-05-16
يا رجب،
ثاني شي الفاصلة الموجود مع server مكانها خطأ ولازم تكون بعد ComboBox1.Text
PHP كود :
conn.ConnectionString = ("server=" & ComboBox1.Text & ";user id=" & TextBox1.Text & ";" & "password=" & TextBox2.Text & ";")