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

السلام عليكم ورحمة الله وبركاته.
جماعة الخير.
اريد تعبئة الكومبو بوكس باسماء قواعد البيانات من نوع  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

وما الخطأ فى الكود

الخطأ في جملة الاستعلام
ثانيا الكمبو بوكس يجب ان تحدد له نوع الحقل المراد عرضه اسم قاعدة البيانات او رقمها الخ...
 لان مصدر البيانات يحمل العديد من الحقول.

address = نظرة ثاقبة + حل سريع = نتيجة ترضي كل الاطراف

يا رجب،

اللي اعرفه ان الاستعلام "show Databases" خاص ب MySql وليس SqlServer تاكد سؤالك.

يا رجب،

ثاني شي الفاصلة الموجود مع server مكانها خطأ ولازم تكون بعد ComboBox1.Text