[ragab saleh]

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

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

[Adrees]

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

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() 


[طالب 22]

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

[الوادي]

يا رجب،

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

[الوادي]

يا رجب،

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

PHP كود :

conn.ConnectionString = ("server=" & ComboBox1.Text & ";user id=" & TextBox1.Text & ";" & "password=" & TextBox2.Text & ";")