|
|
|
Dim strConnection as String = "MeinConnectionString"
Dim strSQL as string = "SELECT Benutzer, Passwort FROM User"
Dim objConnection as New OledbConnection(strConnection)
Dim objCommand as New OledbCommand(strSQL, objConnection)
Dim objDataReader as OledbDataReader
Dim strResultsHolder as String
objConnection.Open()
objDataReader = objCommand.ExecuteReader()
Do While objDataReader.Read()=True
strResultsHolder +=objDataReader("Benutzer")
strResultsHolder +=", "
strResultsHolder +=objDataReader("Passwort")
strResultsHolder +="\r\n"
Loop
textBox1.Text = strResultsHolder
objDataReader.Close()
objConnection.Close()
|
|
|
