Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
cmbserver.Items.Add(My.Computer.Name.ToString & "\SQLExpress")
cmbserver.Items.Add("Localhost\SQLExpress")
Catch ex As Exception
MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub GetServerList()
Dim Server As String = String.Empty
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim table As System.Data.DataTable = instance.GetDataSources()
For Each row As System.Data.DataRow In table.Rows
Server = String.Empty
Server = row("ServerName")
If row("InstanceName").ToString.Length > 0 Then
Server = Server & "\" & row("InstanceName")
End If
cmbserver.Items.Add(Server)
Next
cmbserver.SelectedIndex = cmbserver.FindStringExact(Environment.MachineName)
End Sub