AJUADA [Ô] ATUALIZAR TODOS OS CAMPS DE UMA TABELA
ajuada [Ô] atualizar todos os campos de uma tabela acess
minha funçaõ de pesquisa
Connect
RS.Open [Ô]SELECT * FROM caixa WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
On Error GoTo TrataErro01
List1.AddItem RS.Fields(1).Value
TrataErro01:
If Err.Number = 94 Then
[ô] MsgBox [Ô]Erro de Conversão de Letra para Número ![Ô]
End If
List1.ListIndex = List1.ListIndex + 1
RS.MoveNext
Loop
minha funçaõ de pesquisa
Connect
RS.Open [Ô]SELECT * FROM caixa WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
On Error GoTo TrataErro01
List1.AddItem RS.Fields(1).Value
TrataErro01:
If Err.Number = 94 Then
[ô] MsgBox [Ô]Erro de Conversão de Letra para Número ![Ô]
End If
List1.ListIndex = List1.ListIndex + 1
RS.MoveNext
Loop
explique melhor pois ficou meio estranho sua pergunta, com o código ficou mais ainda.
tenho um campo na tabela dom acess que fica assim estatos os fechada ou aberta certo
queria colocar quando alguem clicar no botao cancelar coloca todos os campos da tabela acess em aberto entende
queria colocar quando alguem clicar no botao cancelar coloca todos os campos da tabela acess em aberto entende
tente:
UPDATE suaTabela SET seuCampo = seuEstado
ou
UPDATE suaTabela SET seuCampo = seuEstado WHERE seu critério
UPDATE suaTabela SET seuCampo = seuEstado
ou
UPDATE suaTabela SET seuCampo = seuEstado WHERE seu critério
NAO ENTENDI ME EXPLICA MELHOR
Update Maluco é alterar os dados de um campo ou todos de uma tabela.
Ai você decide com vai atualizar a tabela.
Ai você decide com vai atualizar a tabela.
huahuahua entendi so que nao estou sabendo colocar a sintax
simples
RS.Open [Ô]UPDATE suaTabela SET seuCampo = seuEstado[ô][Ô], CON, adOpenStatic, adLockOptimistic
RS.Open [Ô]UPDATE suaTabela SET seuCampo = seuEstado[ô][Ô], CON, adOpenStatic, adLockOptimistic
VOU SIMPLIFICAR A PERGUNTA
QUERO EM TODOS OS CAMPOS ESTADOS DA TABELA OSENTRA DOS CODIGOS 0001 COLOCAR
ALTERAR PARA ABERTA PARA FECHA OU VISE VERÇA
TODOS OS REGISTRO 0001 PASSAR PARA FECHADO
QUERO EM TODOS OS CAMPOS ESTADOS DA TABELA OSENTRA DOS CODIGOS 0001 COLOCAR
ALTERAR PARA ABERTA PARA FECHA OU VISE VERÇA
TODOS OS REGISTRO 0001 PASSAR PARA FECHADO
é assim
RS.Open [Ô]UPDATE suaTabela SET campo1 = [Ô] & valor1 & [Ô], campo2=[Ô] & valor2 & [Ô], campo3 = [Ô] & valor3 & [Ô] WHERE codigo = [ô]001[ô][ô][Ô], CON, adOpenStatic, adLockOptimistic
AE GALERA FIZ DESSA FORMA E DEU CERTINHO OK
Connect
RS.Open [Ô]SELECT * FROM OSENTRA WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
Text1.Text = RS.Fields(21).Value
RS!STATUSOS = [Ô]FECHADA[Ô]
RS.MoveNext
Loop
Disconnect
Connect
RS.Open [Ô]SELECT * FROM OSENTRA WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
Text1.Text = RS.Fields(21).Value
RS!STATUSOS = [Ô]FECHADA[Ô]
RS.MoveNext
Loop
Disconnect
Tópico encerrado , respostas não são mais permitidas