Salve, potreste aiutarmi a capire quale è l'errore in questo codice?
E' un form per inserire un nome utente e una password in un db
La connessione funziona, il controllo della presenza del nomeutente e password pure, quello che non funziona è l'inserimento dei dati nel db...
credo quindi che la parte "incriminata" sia questa:
objConn.Execute "Insert into inserimento (utente, password) Values ( '" & strUtente & " ' ,' " & strPassword & "')"
MsgBox "utente inserito correttamente"
manca qualcosa?
Grazie
Option Explicit
Dim strUtente As String
Dim strPassword As String
Dim objConn As Object
Dim objRs As Object
Private Sub cmdEntra_Click()
strUtente = txtUtente.Text
strPassword = txtPassword.Text
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "inserimento"
Set objRs = CreateObject("ADODB.Recordset")
objRs.Open "inserimento", objConn
Do While Not objRs.EOF
If strUtente = objRs("utente") Then
If strPassword = objRs("password") Then
MsgBox "utente già inserito"
Else
objConn.Execute "Insert into inserimento (utente, password) Values ( '" & strUtente & " ' ,' " & strPassword & "')"
MsgBox "utente inserito correttamente"
End If
End If
objRs.MoveNext
Loop
End Sub