Hallo,
ich habe heute mit VBA angefangen und verstehe die Fehlermeldungen nicht. Mein Code:
Private Sub BtnLogin_Click()
Dim Connection As New OleDb.OleDBConnection
Dim Command As New OleDb.OleDbCommand
Dim Reader As New OleDb.OleDbDataReader
Dim User, Password As String
Dim Status As Boolean
Dim Count As Integer
User = TxtUser.Text
Password = TxtPassword.Text
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=./Datenbank.mdb"
Command.Connection = Connection
Command.CommandText = "SELECT COUNT(*) AS Hits FROM Benutzer WHERE Benutzername=" & User & "&& Passwort=" & Password
Try
Reader = Command.ExecuteReader()
While Reader.Read()
Anzahl = Reader("Hits")
End While
Reader.Close()
Connection.Close()
End Try
End Sub
Die Zeilen"End While
Reader.Close()
Connection.Close()
End Try" werden rot markiert in Access 2007. Die Fehlermeldung lautet "Erwartet: if oder select oder sub oder function oder property oder type oder with oder enum oder anweisungsende"
|