17-12-19, 02:27 PM
(16-12-19, 08:28 PM)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
شكرا اخي ?
