Frage : Nicht arbeitende SQL-Aussage

Dieser Code scheint, überzeugend zu sein selbst, dass der Text in der area per informazioni ein Spaltenname ist.  Haben ungefähr mit einzelnen qouotes, Anführungszeichen und aller Art aber seinem Nr.gebrauch gespielt.  In dem Augenblick als es gerade das Kennwort aber zurückbringt, fort das Kennwort in den txtPassword Gleichen zu überprüfen fährt der Wert in der entsprechenden Reihe im SQL. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Dim cnPubs als ADODB.Connection
cnPubs einstellen = neues ADODB.Connection

'Den Anschluss jetzt öffnen.
'Auf Störung Goto- Error1
cnPubs.Open strConn
Mit rsPubs
    'Das Verbindungsobjekt zuweisen.
    .ActiveConnection = cnPubs
    'Die erforderlichen Aufzeichnungen extrahieren.
    . Öffnen „VORWÄHLEN * von den Benutzern, WO Username= „frmLogin.txtUsername.Text““
    'Die Aufzeichnungen in Zelle A1 auf Sheet1 kopieren.
   'Sheet1.Range („A1“) .CopyFromRecordset rsPubs
    Bis .EOF tun
    MsgBox (! Kennwort)
    .MoveNext
    Schleife

Antwort : Nicht arbeitende SQL-Aussage

Es ist möglich für Benutzer, einzelne Anführungsstriche in txtUserName durch Fehler einzusetzen oder absichtlich, also müssen Sie die Aussage schützen

    . Geöffnet „* von den Benutzern VORWÄHLEN, IN DENEN Username= „“ u. ersetzen (frmLogin.txtUsername.Text, „“ „,“ '' ") u.“ '„

Sie sind zur SQL-Einspritzung noch geöffnet, also würde die bessere Weise, die Frage zu parameterisieren sein.
Weitere Lösungen  
 
programming4us programming4us