Wäre nett, wenn ihr mal drüberschauen könntent und mir sagen könntet ob das mit den Kommentaren alles so übereinstimmt.
Das VB Skript sollte so gestaltet sein, dass zum jeder Befehlszeile ein erklärender Kommentar gehört!!
'Verbindungsparameter für den Datenbankzugriff auf den MySQL Server
'Verwendet wird der ODBC 3.51 Treiber; Ip des Servers: 10.17.171.200, Benutzername: root, Passwort: Kein Passwort, Datenbank: Benutzerverwaltung
strConnection="driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=Benutzerverwaltung;option=NUM"
bn=Inputbox ("Geben Sie den Benutzernamen ein!") 'Variable für das Eingabefeld des Benutzernamens
pw=Inputbox ("Geben Sie das Passwort ein!") 'Variable für das Eingabefeld des Passworts
ausgabe="Anmeldung fehlgeschlagen" 'Variable für die Ausgabe bei fehlgeschlagener Anmeldung
sql="SELECT * FROM benutzer;" 'Die MySQL Abfrage (* = Alle Spalten werden ausgegeben)
set adoConnection=CreateObject("ADODB.Connection") ' Die ADODB-Verbindung wird hergestellt
adoConnection.open strConnection ' Die Verbindung wird hergestellt
Set rs=adoConnection.execute (sql)
set Benutzername = rs.fields.item("Benutzername") '
set Passwort = rs.fields.item("Passwort") '
set Name = rs.fields.item("Nachname") '
set Vorname = rs.fields.item("Vorname") '
Do While Not rs.eof ' Durchlaufen des Recordsets
IF bn=Benutzername AND pw=Passwort THEN '
ausgabe= "Herzlich willkommen " & Vorname & " " & Name 'Die Variable "ausgabe" wird bei gefundenem Benutzer und Passwort geändert
END IF 'Die IF-Schleife wird beendet
rs.moveNext 'Springt zum nächsten Datensatz
Loop 'Zum Beenden der While-Schleife
MsgBox ausgabe 'Ausgabe in einer Nachrichtenbox
rs.close ' Verbindung zur Datenbank wird getrennt
Wäre super, wenn ihr mir die restlichen Zeilen noch ergänzen könntet oder falls ihr Verbesserungsvorschläge habt diese ergänzen könntet..
Gruß