24-05-16, 11:46 AM
السلام عليكم ورحمة الله وبركاته.
جماعة الخير.
اريد تعبئة الكومبو بوكس باسماء قواعد البيانات من نوع 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
وما الخطأ فى الكود
جماعة الخير.
اريد تعبئة الكومبو بوكس باسماء قواعد البيانات من نوع 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
وما الخطأ فى الكود