[VB6] Stringa SQL - comparazione non riuscita

[StegcO]

Mi da errore nella stringa SQL, probabilmente è sbagliata la sintassi di comparazione tra il Campo del DB e la Variabile, ma ho provato di tutto e non va..

qualche idea?

Option Explicit

Public Autenticato As Boolean

Dim Con As ADODB.Connection
Dim StringaConn As String
Dim query As String
Dim Rst As ADODB.Recordset
Dim UserName As String
Dim Password As String

Sub Form_Load()

Autenticato = False

Set Con = New ADODB.Connection
Set Rst = New ADODB.Recordset

StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\LucaCo\Desktop\Progetti\Gestione IT Zara\it_works.mdb;Persist Security Info=False"
Con.Open StringaConn

End Sub

Private Sub cmd_log_in_Click()

UserName = LCase(txt_username.Text)
Password = LCase(txt_password.Text)

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

If Rst.EOF Or Rst.BOF Then
    MsgBox "Errore LogIn!", vbExclamation
    Else
    If txt_password.Text = Rst.Fields("Passwor").Value Then
        Autenticato = True
        MsgBox "LogIn Eseguito!", vbExclamation
    End If
End If

End Sub

[Stoicenko]

Che errore ti da? Sicuro che valori possano essere uguali? Sicuro che la connessione sia giusta?

StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\LucaCo\Desktop\Progetti\Gestione IT Zara\it_works.mdb;Persist Security Info=False"

E' giusta senza doppio apice nel campo data source?

[oregon]

Questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

e' sbagliata ...

[Stoicenko]

giustamente:

questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

diventa questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username= " & Username &" AND Passwor=" & Password)

[StegcO]

Che errore ti da?

Sicuro che valori possano essere uguali?

In che senso? quell'errore me lod a qualsiasi cosa inserisco come USR/PSW

Sicuro che la connessione sia giusta?

StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\LucaCo\Desktop\Progetti\Gestione IT Zara\it_works.mdb;Persist Security Info=False"

E' giusta senza doppio apice nel campo data source?

Se metto il doppio apice dove dici mi da errore (prevista fine istruzione).. presumo di si..

Questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

e' sbagliata ...

Immaginavo, è sbagliata a livello di sintassi?

[StegcO]

Originariamente inviato da Stoicenko
giustamente:

questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

diventa questa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username= " & Username &" AND Passwor=" & Password)

purtroppo mida lo stesso errore

[StegcO]

quindi le variabili in VB in una stringa SQL vengono circontate da "& &" ??

[Stoicenko]

sicuro che i valori di username e password non siano nulli?
e poi è giusto che il campo equivalente alla password si chiami passwor?

[StegcO]

si si chiama passwor

in effetti l'errore è: "nerssun valroe specificato per alcuni parametri necessari"


però i valori li recupero...


UserName = LCase(txt_username.Text)
Password = LCase(txt_password.Text)

[Stoicenko]

doppio errore quindi:

la query che ti ho scritto io non è giusta perchè Username (scritto nella tua query e riportato da me) in realtà è UserName (vb6 è case sensitive)

quindi diventa

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username= " & UserName &" AND Passwor=" & Password)