MSSQL: Verbindung herstellen / Daten auslesen

localhorst · Beitrag von **localhorst** » 13.02.2013, 21:48

Imports System.Data.SqlClient

Dim conString As String = vbNullString
Dim dbCon As SqlConnection = Nothing
Dim dbCmd As SqlCommand
Dim drDB As SqlDataReader

'Für Anmeldung über Datenbanknutzer:
conString = "server=SERVER\DB_INSTANZ;database=DBNAME;User ID=DBUSER;Pwd=DBUSER_PASSWORT"

'Für Anmeldung über Windows-Authentifizierung (nur direkt auf dem Server):
conString = "server=.\DB_INSTANZ;database=DBNAME;trusted_connection=true"

Try
   dbCon = New SqlConnection(conString)
   dbCon.Open()
   dbCmd = New SqlCommand("SELECT * FROM table", dbCon)
   drDB = dbCmd.ExecuteReader()
   While drDB.Read()
      Msgbox(drDB(0).ToString)
      MsgBox(drDB(1).ToString)
      MsgBox(drDB(2).ToString)
   End While
Catch ex As Exception
   Console.Write(ex.Message)
Finally
   If dbCon.State <> ConnectionState.Closed Then dbCon.Close()
End Try

dbCon.Dispose()