UPDATE - SQL
Pessoal. Quando usuário clica no botão ok no meu formulário grava algumas informações no banco, por exemplo. Se o usuário clicar no botão ok o status do cliente na tabela cadastro vai para sim (siginifica que tem locação em aberto).
No entanto, não estou conseguindo adicionar essa informação no banco. Vejam se é correto o que estou fazendo:
Dim CONSULTASQL As String
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='" & "sim" & "' where like nomcli'" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
tabcadastro é o nome da tabela no acess
locacao é o status "sim" ou "não"
No entanto, não estou conseguindo adicionar essa informação no banco. Vejam se é correto o que estou fazendo:
Dim CONSULTASQL As String
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='" & "sim" & "' where like nomcli'" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
tabcadastro é o nome da tabela no acess
locacao é o status "sim" ou "não"
Dim CONSULTASQL As String
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim' where nomcli like '%" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
Tenta como acima...
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim' where nomcli like '%" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
Tenta como acima...
Utilizei a SQL (abaixo) não funcinou, o banco de dados fica estatico, nem entra nem altera informação naquele campo (locacao). Aonde posso está errando??!!?
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim' where nomcli like '%" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim' where nomcli like '%" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
Provavelmente no filtro.
O que está na clausula where provavelmente faz com que ele não encontre registros para atualizar.
O que está na clausula where provavelmente faz com que ele não encontre registros para atualizar.
Estrando porque o critério de busa está em smelhança com a informação no banco, porém eu também acredito que seja este o motivo
Fiz conforme abaixo
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim'
Sem qualquer critério de busca tambem não funcionou
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim'
Sem qualquer critério de busca tambem não funcionou
Véio de boa essa syntaxe que vc usou abaixo está muito ruim hein...
Dim CONSULTASQL As String
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='" & "sim" & "' where like nomcli'" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
Tente usar "where codcliente".
Outra coisa que achei estranho foi vc usar o "tabcadastro.locacao", se vc está atualizando a tabela tabcadastro, por que usar isso? use só o nome da coluna.
Do resto está legal, se não funcionar, dropa a tabela e crie-a novamente.
Abraços
Alê [S77][S77][S77][S77]
Dim CONSULTASQL As String
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='" & "sim" & "' where like nomcli'" & lblcli.Caption & "%'"
CON.Execute (CONSULTASQL)
Tente usar "where codcliente".
Outra coisa que achei estranho foi vc usar o "tabcadastro.locacao", se vc está atualizando a tabela tabcadastro, por que usar isso? use só o nome da coluna.
Do resto está legal, se não funcionar, dropa a tabela e crie-a novamente.
Abraços
Alê [S77][S77][S77][S77]
Citação:Fiz conforme abaixo
CONSULTASQL = "UPDATE tabcadastro SET tabcadastro.locacao='sim'
Cara, muito estranho.
Qual o tipo do campo locacao?
Da algum erro quando vc executa ou simplesmente não acontece nada?
Tópico encerrado , respostas não são mais permitidas