Olá amigos do forum por favor me de um help neste codigo
Dim cnnComando As New ADODB.Command
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnPDV
.CommandType = adCmdText
'Verifica a operação e cria o comando SQL correspondente:
If vInclusao Then
'Inclusão:
.CommandText = "INSERT INTO USUARIOS " & _
"(U1,U2,U3) VALUES ('" & _
txtu1.Text & _
txtu2.Text & _
txtu3.Text & ""
Else
'Alteração:
.CommandText = "UPDATE USUARIO SET " & _
"U1 = '" & txtu1.Text & "'," & _
"U2 = '" & txtu2.Text & "'," & _
"U3 = '" & txtu3.Text & "'" & _
"WHERE U1 = " & txtu1.Text & ";"
End If
.Execute
End With
MsgBox "Gravação concluída com sucesso.", _
vbApplicationModal + vbInformation + vbOKOnly, _
"Gravação OK"
'Chama a sub que limpa os dados do formulário:
txtu1.Text = ""
txtu2.Text = ""
txtu3.Text = ""
txtu4.Text = ""
Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub
Vamos ao problema update e busca funciona normal grava todas as alteração mas quando vou inserir um novo cadastro da a msgbox que gravado ai eu vou olhar na tabela do banco de dados não tem nada lá o está no insert into porque o update esta funciomando bela o banco access 2000 e a conexao perfeita como devo montar este insert into
