USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  VB6 - Erro no comando Execute
alam
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2008 10:48 hs            
             'Inclusao:
    vSQL = "INSERT INTO CadDados (Pront, Processo, Sit, Sexo, EstCi, Nome, DTNasc, Classe, Pai, " & _
            "Mae, Endereco, Bairro, Cidade, UF, Cep, fone, Fone1, Depto, Divisao, " & _
            "Fixa, Incar, Alteracao, Pis, Cic, Cnh, Cat, Ra, Tie, Sec, Zon, ObsProc, RG) VALUES ('"
    vSQL = vSQL & Trim(txtPront.Text) & "','"
    vSQL = vSQL & Trim(txtProcesso.Text) & "','"
    vSQL = vSQL & Trim(txtSit.Text) & "','"
    vSQL = vSQL & Trim(txtSexo.Text) & "','"
    vSQL = vSQL & Trim(txtEstCi.Text) & "','"
    vSQL = vSQL & Trim(txtNome.Text) & "','"
    vSQL = vSQL & Trim(txtDTNasc.Text) & "','"
    vSQL = vSQL & Trim(txtClasse.Text) & "','"
    vSQL = vSQL & Trim(txtPai.Text) & "','"
    vSQL = vSQL & Trim(txtMae.Text) & "','"
    vSQL = vSQL & Trim(txtEndereco.Text) & "','"
    vSQL = vSQL & Trim(txtBairro.Text) & "','"
    vSQL = vSQL & Trim(txtCidade.Text) & "','"
    vSQL = vSQL & Trim(txtUF.Text) & "','"
    vSQL = vSQL & Trim(txtCep.Text) & "','"
    vSQL = vSQL & Trim(txtfone.Text) & "','"
    vSQL = vSQL & Trim(txtFone1.Text) & "','"
    vSQL = vSQL & Trim(txtDepto.Text) & "','"
    vSQL = vSQL & Trim(txtDivisao.Text) & "','"
    vSQL = vSQL & Trim(txtFixa.Text) & "','"
    vSQL = vSQL & Trim(txtDTIncar.Text) & "','"
    vSQL = vSQL & Trim(txtAlteracao.Text) & "','"
    vSQL = vSQL & Trim(txtPis.Text) & "','"
    vSQL = vSQL & Trim(txtCic.Text) & "','"
    vSQL = vSQL & Trim(txtCnh.Text) & "','"
    vSQL = vSQL & Trim(txtCat.Text) & "','"
    vSQL = vSQL & Trim(txtRa.Text) & "','"
    vSQL = vSQL & Trim(txtTie.Text) & "','"
    vSQL = vSQL & Trim(txtSec.Text) & "','"
    vSQL = vSQL & Trim(txtZon.Text) & "','"
    vSQL = vSQL & Trim(txtObsProc.Text) & "','"
    vSQL = vSQL & Trim(txtRG.Text) & "')"
        Else
            'Alteração:
      vSQL = "UPDATE CadDados SET (Pront, Processo, Sit, Sexo, EstCi, Nome, DTNasc, Classe, Pai, " & _
            "Mae, Endereco, Bairro, Cidade, UF, Cep, fone, Fone1, Depto, Divisao, " & _
            "Fixa, Incar, Alteracao, Pis, Cic, Cnh, Cat, Ra, Tie, Sec, Zon, ObsProc, RG) VALUES ('"
    vSQL = vSQL & Trim(txtPront.Text) & "','"
    vSQL = vSQL & Trim(txtProcesso.Text) & "','"
    vSQL = vSQL & Trim(txtSit.Text) & "','"
    vSQL = vSQL & Trim(txtSexo.Text) & "','"
    vSQL = vSQL & Trim(txtEstCi.Text) & "','"
    vSQL = vSQL & Trim(txtNome.Text) & "','"
    vSQL = vSQL & Trim(txtDTNasc.Text) & "','"
    vSQL = vSQL & Trim(txtClasse.Text) & "','"
    vSQL = vSQL & Trim(txtPai.Text) & "','"
    vSQL = vSQL & Trim(txtMae.Text) & "','"
    vSQL = vSQL & Trim(txtEndereco.Text) & "','"
    vSQL = vSQL & Trim(txtBairro.Text) & "','"
    vSQL = vSQL & Trim(txtCidade.Text) & "','"
    vSQL = vSQL & Trim(txtUF.Text) & "','"
    vSQL = vSQL & Trim(txtCep.Text) & "','"
    vSQL = vSQL & Trim(txtfone.Text) & "','"
    vSQL = vSQL & Trim(txtFone1.Text) & "','"
    vSQL = vSQL & Trim(txtDepto.Text) & "','"
    vSQL = vSQL & Trim(txtDivisao.Text) & "','"
    vSQL = vSQL & Trim(txtFixa.Text) & "','"
    vSQL = vSQL & Trim(txtDTIncar.Text) & "','"
    vSQL = vSQL & Trim(txtAlteracao.Text) & "','"
    vSQL = vSQL & Trim(txtPis.Text) & "','"
    vSQL = vSQL & Trim(txtCic.Text) & "','"
    vSQL = vSQL & Trim(txtCnh.Text) & "','"
    vSQL = vSQL & Trim(txtCat.Text) & "','"
    vSQL = vSQL & Trim(txtRa.Text) & "','"
    vSQL = vSQL & Trim(txtTie.Text) & "','"
    vSQL = vSQL & Trim(txtSec.Text) & "','"
    vSQL = vSQL & Trim(txtZon.Text) & "','"
    vSQL = vSQL & Trim(txtObsProc.Text) & "','"
    vSQL = vSQL & Trim(txtRG.Text) & "')"
        End If
    With cnnComando
        .ActiveConnection = cnnCadPol
        .CommandType = adCmdText
        .CommandText = vSQL
        .Execute
    End With

EDITADO PARA INCLUIR O COMANDO SET - TAMBÉM NÃO FUNCIONOU.
TÓPICO EDITADO
  
Ash Katchup
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 20/10/2008 10:49 hs            
-Que erro está acontecendo?
-Que banco vc usa?

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )
   
alam
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2008 10:52 hs            
Banco access 2007. (.mdb)
Dá erro no comando .Execute
   
alam
SÃO PAULO
SP - BRASIL
Postada em 20/10/2008 10:55 hs            
Complementado msg de Erro:
"Run time error 2147217900 (80040e14)
Erro se sintaxe na instrução UPDATE
     
Ash Katchup
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 20/10/2008 10:56 hs            
Consegue a descrição do erro?Coloca um breakpoint e no imediate digita "?Err.Description"

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )
TÓPICO EDITADO
  
Ash Katchup
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 20/10/2008 10:58 hs            
Vc não colocou a instrução "SET" no Update.
Eu acho que é isso...
"UPDATE CadDados SET (Pront..."

Além de que eu não tenho certeza se vc pode fazer UPDATE desta maneira (campos, valores).Eu sempre faço assim:

Update CLIENTES
SET Codigo = '2', Email = '@@@', Endereco = 'SEHUSAEHSAU', UF = 'RS'

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )
TÓPICO EDITADO
  
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site 		Topo da página