[asemshahen5]

PHP كود :

Dim cn As New SqlConnection("Server=" & ComboServer.Text & ";database=master;integrated security=true")
                Dim da As New SqlDataAdapter("select name from sysdatabases", cn) 'sys.databases
                Dim dt As New DataTable
                da.Fill(dt)
                For i As Integer = 0 To dt.Rows.Count - 1
                    ComboDatabase.Items.Add(dt.Rows(i)("Name").ToString)
                Next