ALTERANDO A SENHA
Galera estou criando um form que muda a senha do usuario, gostaria saber no que estou errando na instrucao sql no insert
Private Sub cmdok_Click()
Dim CONN As Adodb.Connection
Dim rss As Adodb.Recordset
Set CONN = New Adodb.Connection
Set rss = New Adodb.Recordset
CONN.Open ("db1")
Dim nova As String
Dim consulta As String
consulta = "SELECT * FROM Senhas WHERE Nome='" & user & "' AND Senha='" & txtsenhaA.Text & "'"
rss.Open consulta, CONN, 1, 2
If rss.EOF Then
MsgBox " Senha inválida", vbCritical, "Acesso Negado"
Exit Sub
Else
CONN.Execute ("INSERT INTO Senhas(Senha) Values('" & txtsenhaN.Text & "')WHERE(Nome) Values('" & user & "')")
End If
End Sub
Private Sub cmdok_Click()
Dim CONN As Adodb.Connection
Dim rss As Adodb.Recordset
Set CONN = New Adodb.Connection
Set rss = New Adodb.Recordset
CONN.Open ("db1")
Dim nova As String
Dim consulta As String
consulta = "SELECT * FROM Senhas WHERE Nome='" & user & "' AND Senha='" & txtsenhaA.Text & "'"
rss.Open consulta, CONN, 1, 2
If rss.EOF Then
MsgBox " Senha inválida", vbCritical, "Acesso Negado"
Exit Sub
Else
CONN.Execute ("INSERT INTO Senhas(Senha) Values('" & txtsenhaN.Text & "')WHERE(Nome) Values('" & user & "')")
End If
End Sub
olha kra, poderia explicar melhor?
Se você vai alterar eu aconselho utilizar a instrução update;
Caso não funcione poste o erro...
Dúvida sanada=tópico encerrado
CONN.Execute ("Update Senhas set Senha = '" & txtsenhaN.Text & "' WHERE Nome = '" & user & "'")
Caso não funcione poste o erro...
Dúvida sanada=tópico encerrado
valeu galera esse site é demais!!!!!!!!!!!!!!!!!!!!!1
obrigado a todos.
obrigado a todos.
Tópico encerrado , respostas não são mais permitidas