Imports System.IO
Imports System.Data
 
 
Private Sub frmDBConnect_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.Text = "DatenbankConnect"
        Me.btnConnect.Enabled = False
        Me.StatusBarPanel1.Text = "Not Connected"
        LoadSQLServers(Me.cboDBServers.SelectedItem)
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnCancel.Click
        Dim antwort As Integer
        antwort = MsgBox("Wollen Sie das Programm tatsächlich beenden?", _
          MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question, "Programm beenden")
        If antwort = vbYes Then
            Application.Exit()
        End If
    End Sub
 
Sub LoadSQLServers(ByRef cboDBServers As ComboBox)
        Dim currSQL As Integer
        Dim dbServerNames As SQLDMO.NameList
        Dim SQLApp As New SQLDMO.Application()
 
        dbServerNames = SQLApp.ListAvailableSQLServers
 
        If dbServerNames.Count = 0 Then
            Me.cboDBServers.Items.Add("(local)")
        End If
 
        For currSQL = 1 To dbServerNames.Count
            Me.cboDBServers.Items.Add(dbServerNames.Item(currSQL))
        Next currSQL
 
        Me.cboDBServers.SelectedItem = 1
    End Sub
 
    Private Sub cboDBServers_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      cboDBServers.SelectedIndexChanged
        If Me.cboDBServers.SelectedIndex > -1 And _
        Me.lstDatabases.SelectedItems.Count > 0 Then
            Me.btnConnect.Enabled = True
        Else
            Me.btnConnect.Enabled = False
        End If
        GetSQLDatabases(Me.cboDBServers.SelectedItem, Me.lstDatabases)
 
    End Sub
 
    Function GetSQLDatabases(ByVal strSQLServer As String, ByRef lstTemp As _
      ListBox)
        Dim currDB As Integer
        Dim db As SQLDMO.Database
        Dim strDB As String
 
        Dim dbSrv As SQLDMO.SQLServer
        dbSrv = New SQLDMO.SQLServer()
 
        dbSrv.LoginSecure = True
 
        Try
            dbSrv.Connect(strSQLServer)
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Connection-Error")
            Exit Function
        End Try
 
        lstTemp.Items.Clear()
 
        For Each db In dbSrv.Databases
                    lstTemp.Items.Add(db.Name)
        Next
    End Function
 
 
    Private Sub lstDatabases_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      lstDatabases.SelectedIndexChanged
        If Me.cboDBServers.SelectedIndex > -1 And _
        Me.lstDatabases.SelectedItems.Count > 0 Then
            Me.btnConnect.Enabled = True
        Else
            Me.btnConnect.Enabled = False
        End If
    End Sub
 
    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnConnect.Click
        sqlConn = New SqlClient.SqlConnection(BuildDBConnectString( _
        Me.cboDBServers.SelectedItem, Me.lstDatabases.SelectedItem))
 
        Try
            SqlConn.Open()
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Connection-Error")
            Exit Sub
        End Try
 
        Me.StatusBarPanel1.Text = "Connected to: " & Me.cboDBServers.Text
        SqlConn.Close()
        Dim frmlogon As New frmlogon()
        frmlogon.ShowDialog()
        Me.Hide()
 
End Sub