UPDATE EM TABELA

JPAULO101 26/05/2010 16:06:09
#342853
Boa tarde calera blz. Estou tendo dificuldade e fazer alteração no banco. Estou usando o seguinte código

Private Sub cmdAlterar_Click()

On Error GoTo erro

Msg1 = [Ô][Ô]
Msg1 = Msg1 & [Ô] ** AVISO ** [Ô] & vbNewLine & vbNewLine
Msg1 = Msg1 & [Ô]Confirmar alteração do cadastro [Ô] & Format(rs.Fields([Ô]codigo[Ô]), [Ô]000[Ô]) & [Ô].[Ô] & vbNewLine
If MsgBox(Msg1, vbInformation + vbYesNo, [Ô]Pocket[Ô]) = vbYes Then

con.BeginTrans
con.Execute [Ô]UPDATE tblpocket [Ô] & _
[Ô]SET codigo=[ô][Ô] & atxtCodigo & [Ô][ô], sml=[ô][Ô] & atxtSml & [Ô][ô], escritorio=[ô][Ô] & atxtEscritorio & [Ô][ô], aparelho=[ô][Ô] & atxtAparelho & [Ô][ô], sn=[ô][Ô] & atxtsn & [Ô][ô], imei=[ô][Ô] & atxtImei & [Ô][ô], chiptimnovo=[ô][Ô] & atxtChip & [Ô][ô], responsavel=[ô][Ô] & atxtResp & [Ô][ô], manutencao=[ô][Ô] & atxtManut & [Ô][ô], reparo=[ô][Ô] & atxtReparo & [Ô][ô][Ô] & _
[Ô]WHERE codigo=[ô][Ô] & atxtCodigo & [Ô][ô];[Ô]
con.CommitTrans
MsgBox [Ô]Cadastro alterado com sucesso![Ô]
End If

erro:
con.RollbackTrans
MsgBox [Ô]Ocorreu um erro ao alterar o cadastro[Ô], vbExclamation, [Ô]Erro[Ô]

End Sub

Segue uma tela com a estrutura da tabela. Onde será que estou errando.

Agradeço ajuda de todos. Abraços
JONATHANSTECKER 26/05/2010 16:12:50
#342854
Tenta assim...

con.Execute([Ô]UPDATE tblpocket [Ô] & _
[Ô]SET codigo = [ô][Ô] & atxtCodigo & [Ô][ô], sml = [ô][Ô] & atxtSml & [Ô][ô], escritorio = [ô][Ô] & atxtEscritorio & [Ô][ô], aparelho = [ô][Ô] & atxtAparelho & [Ô][ô], sn = [ô][Ô] & atxtsn & [Ô][ô], imei = [ô][Ô] & atxtImei & [Ô][ô], chiptimnovo = [ô][Ô] & atxtChip & [Ô][ô], responsavel = [ô][Ô] & atxtResp & [Ô][ô], manutencao = [ô][Ô] & atxtManut & [Ô][ô], reparo = [ô][Ô] & atxtReparo & [Ô][ô][Ô] & _
[Ô]WHERE codigo = [ô][Ô] & atxtCodigo & [Ô][ô];[Ô])
JPAULO101 26/05/2010 17:17:14
#342857
olá amigo JONATHANSTECKER, tentei mais não deu certo, vai dereto para linha do erro.

MsgBox [Ô]Ocorreu um erro ao alterar o cadastro[Ô], vbExclamation, [Ô]Erro[Ô]
MARCELO.TREZE 26/05/2010 17:31:30
#342860 Resposta escolhida
Baseado na estrutura de sua tabela deveria ser assim

Private Sub cmdAlterar_Click()
Dim sSQL As String
On Error GoTo erro

        Msg1 = [Ô][Ô]
        Msg1 = Msg1 & [Ô] ** AVISO ** [Ô] & vbNewLine & vbNewLine
        Msg1 = Msg1 & [Ô]Confirmar alteração do cadastro [Ô] & Format(rs.Fields([Ô]codigo[Ô]), [Ô]000[Ô]) & [Ô].[Ô] & vbNewLine
        If MsgBox(Msg1, vbInformation + vbYesNo, [Ô]Pocket[Ô]) = vbYes Then

         con.BeginTrans
         sSQL = sSQL & [Ô]UPDATE tblpocket SET [Ô]
         sSQL = sSQL & [Ô]sml=[ô][Ô] & atxtSml & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]escritorio=[ô][Ô] & atxtEscritorio & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]aparelho=[ô][Ô] & atxtAparelho & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]sn=[ô][Ô] & atxtsn & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]imei=[ô][Ô] & atxtImei & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]chiptimnovo=[ô][Ô] & atxtChip & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]responsavel=[ô][Ô] & atxtResp & [Ô][ô],[Ô]
         sSQL = sSQL & [Ô]manutencao=#[Ô] & Format(atxtManut,[Ô]mm/dd/yyyy[Ô]) & [Ô]#,[Ô]
         sSQL = sSQL & [Ô]reparo=#[Ô] & Format(atxtReparo,[Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
         sSQL = sSQL & [Ô] WHERE codigo=[Ô] & atxtCodigo & [Ô];[Ô]
         con.Execute sSQL
         con.CommitTrans
         MsgBox [Ô]Cadastro alterado com sucesso![Ô]
    End If
    Exit Sub
erro:
   con.RollbackTrans
   MsgBox [Ô]Ocorreu um erro ao alterar o cadastro[Ô], vbExclamation, [Ô]Erro[Ô]
    
End Sub
JPAULO101 26/05/2010 18:47:01
#342867
MUITO OBRIGADO MARCELO-TREZE, DEU CERTINHO, VALEU JONATHANSTECKER TAMBéM PELA FORÇA.
Tópico encerrado , respostas não são mais permitidas
Voltar