Problemas com gravação de dados no mdb

[bordoni]

Bom dia a todos. Estou aprendendo VB6 para criar uma agenda de fornecedores personalizada para minha função aqui na empresa onde trabalho. Estou adaptando um exemplo de uma apostila, mas cheguei em um ponto em que estagnei.

O programa cadastra e pesquisa fornecedores em um banco de dados mdb. Na rotina GravarDados, o programa gera um erro em tempo de execução. Aparentemente, a string que é construída em .CommandText está muito extensa (na janela locals a string aparece cortada). Segue abaixo o pedaço do código onde acontece o problema. Se alguém souber o que gera o erro e puder sugerir alguma solução, fico agradecido.

Private Sub GravarDados()
    Dim cnnComando As New ADODB.Command
    Dim vConfMsg As Integer
    Dim vErro As Boolean
    On Error GoTo errGravacao
    'Inicializa as variáveis auxiliares:
    vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
    vErro = False
    'Verifica os dados digitados:
    If txtEmpresa.Text = Empty Then
        MsgBox "O campo Empresa não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If (txtTelefone1.Text = Empty And txtTelefone2.Text = Empty) Then
        MsgBox "Pelo menos um campo Telefone deve ser preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    'Se aconteceu um erro de digitação, sai da sub sem gravar:
    If vErro Then Exit Sub
    Screen.MousePointer = vbHourglass
    With cnnComando
        .ActiveConnection = cnnAgenda
        .CommandType = adCmdText
        'Verifica a operação e cria o comando SQL correspondente:
        If vInclusao Then
            'Inclusão:
            .CommandText = "INSERT INTO Fornecedor " & _
            "(CodFornec, Empresa, HomePage, Natureza, Cidade, Estado, " & _
            "Pais, Prazo, FatMinimo, Faturamento, Moeda, Regime, " & _
            "FOB, CIF, Contato1, Funcao1, Telefone1, Ramal1, Celular1, " & _
            "Fax1, Email1, MSN1, Skype1, Portugues1, Contato2, Funcao2, Telefone2, " & _
            "Ramal2, Celular2, Fax2, Email2, MSN2, Skype2, Portugues2, Revisado) VALUES ('" & _
            txtCodFornec.Text & "','" & txtEmpresa.Text & "','" & _
            txtHomePage.Text & "','" & cmbNatureza.Text & "','" & _
            txtCidade.Text & "','" & txtEstado.Text & "','" & _
            cmbPais.Text & "','" & txtPrazo.Text & "','" & _
            txtFatMinimo.Text & "','" & cmbFaturamento.Text & "','" & _
            cmbMoeda.Text & "','" & vRegime & "','" & _
            vFOB & "','" & vCIF & "','" & _
            txtContato1.Text & "','" & txtFuncao1.Text & "','" & _
            txtTelefone1.Text & "','" & txtRamal1.Text & "','" & _
            txtCelular1.Text & "','" & txtFax1.Text & "','" & _
            txtEmail1.Text & "','" & txtMSN1.Text & "','" & _
            txtSkype1.Text & "','" & vPortugues1 & "','" & txtContato2.Text & "','" & _
            txtFuncao2.Text & "','" & txtTelefone2.Text & "','" & _
            txtRamal2.Text & "','" & txtCelular2.Text & "','" & _
            txtFax2.Text & "','" & txtEmail2.Text & "','" & _
            txtMSN2.Text & "','" & txtSkype2.Text & "','" & _
            vPortugues2 & "','" & vRevisado & "');"
        Else
            'Alteração:
            .CommandText = "UPDATE Fornecedor SET " & _
            "Empresa = '" & txtEmpresa.Text & "',HomePage = '" & txtHomePage.Text & "'," & _
            "Natureza = '" & cmbNatureza.Text & "',Cidade = '" & txtCidade.Text & "'," & _
            "Estado = '" & txtEstado.Text & "',Pais = '" & cmbPais.Text & "'," & _
            "Prazo = '" & txtPrazo.Text & "',FatMinimo = '" & txtFatMinimo.Text & "'," & _
            "Faturamento = '" & cmbFaturamento.Text & "',Moeda = '" & cmbMoeda.Text & "'," & _
            "Regime = '" & vRegime & "',FOB = '" & vFOB & "'," & _
            "CIF = '" & vCIF & "',Contato1 = '" & txtContato1.Text & "'," & _
            "Funcao1 = '" & txtFuncao1.Text & "',Telefone1 = '" & txtTelefone1.Text & "'," & _
            "Ramal1 = '" & txtRamal1.Text & "',Celular1 = '" & txtCelular1.Text & "'," & _
            "Fax1 = '" & txtFax1.Text & "',Email1 = '" & txtEmail1.Text & "'," & _
            "MSN1 = '" & txtMSN1.Text & "',Skype1 = '" & txtSkype1.Text & "'," & _
            "Portugues1 = '" & vPortugues1 & _
            "Contato2 = '" & txtContato2.Text & "',Funcao2 = '" & txtFuncao2.Text & "'," & _
            "Telefone2 = '" & txtTelefone2.Text & "',Ramal2 = '" & txtRamal2.Text & "'," & _
            "Celular2 = '" & txtCelular2.Text & "',Fax2 = '" & txtFax2.Text & "'," & _
            "Email2 = '" & txtEmail2.Text & "',MSN2 = '" & txtMSN2.Text & "'," & _
            "Skype2 = '" & txtSkype2.Text & "',Portugues2 = '" & vPortugues2 & "'," & _
            "',Revisado = '" & vRevisado & ";"
        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:
    LimparTela
Saida:
    Screen.MousePointer = vbDefault
    Set cnnComando = Nothing
    Exit Sub
errGravacao:
    With Err
        If .Number <> 0 Then
            MsgBox "Houve um erro durante a gravação dos dados na tabela.", _
            vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
            .Number = 0
            GoTo Saida
        End If
    End With
End Sub

Abs,

bordoni

Curitiba, PR

Editado Fevereiro 3, 2011 por bordoni
Adicionar tag CODE

[kuroi]

estranho, qual a mensagem de erro?? diz q é muito extenso??

acho q eu já fiz strings maiores q essa e deu td certo.

[bordoni]

estranho, qual a mensagem de erro?? diz q é muito extenso??

acho q eu já fiz strings maiores q essa e deu td certo.

Oi Kuroi. Desculpe a pergunta, mas como posso ver qual o erro? Sou um total iniciante, e minha única experiência anterior com programação foi um pouco de C na faculdade.

A minha desconfiança pelo tamanho da string é porque:

1 - Eu fiz uma versão menor, com menos campos, e funcionou;

2 - Na janela Locals, do VS, o CommandText mostra a string cortada bem na posição 256.

Abs,

bordoni.

Editado Fevereiro 3, 2011 por bordoni

[raphael_suporte]

você pode usar a janela do immediate para verificar o valor da sua string...

o que pode acontecer é que ou um campo está errado ou você esqueceu de alguma vírgula no meio( ou algo do tipo). Tenta ir tirando campo por campo para descobrir qual o erro que está dando...é um trabalho demorado mas deve ajudar...

[bordoni]

você pode usar a janela do immediate para verificar o valor da sua string...

o que pode acontecer é que ou um campo está errado ou você esqueceu de alguma vírgula no meio( ou algo do tipo). Tenta ir tirando campo por campo para descobrir qual o erro que está dando...é um trabalho demorado mas deve ajudar...

O erro é -2147217913 (80040e07)

Tipo de Dados Incompatível na expressão de critério.

Eu não sabia como ver o erro. Acho que agora já tenho uma pista do que possa ser. Parece mesmo que é algum campo definido de maneira errada.

Obrigado raphael_suporte e kuroi pela ajuda e paciência!

Abs,

Glaucio.

[kuroi]

tb veja q no final do update você esquece de fehcar uma aspa ó:

"',Revisado = '" & vRevisado & ";"

e outra coisa, você ta fazendo um update sem where, isso vai levar ele a atualizar sua tabela intera de uma vez.