[Resolvido] inclusao ok mas nao grava na tabela

[nereu1301 0]

Scorpio

Fiz essa mudança antes da sua dica.

Entao deve ter sido isso

[scorpio 7]

Opaaa pessoal rápido pra postar...

 

 

sem problemas, resolvido.

[nereu1301 0]

valeu pessoal

Tres teimoso num assunto só, nao podia dar outra

[Mário Monteiro 179]

que bom que resolveu

 

parabéns

[nereu1301 0]

código ficou assim:

 

Private Sub IncluirDados()
Dim vConfMsg As Integer
Dim vErro As Boolean
    'inicializa as variaveis auxiliares
    vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
    vErro = False
    'verifica os dados digitados
    If TxtNomeCliente.Text = Empty Then
        MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtTel.Text = Empty Then
        MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtCidade.Text = Empty Then
        MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtDataInicioServico.Text = Empty Then
        MsgBox "O campo Data Entrada não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtHoraInicioServico.Text = Empty Then
        MsgBox "O campo Hora Entrada não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtProduto.Text = Empty Then
        MsgBox "O campo Produto não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtMotivo.Text = Empty Then
        MsgBox "O campo Motivo da Chamada não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    If TxtObs.Text = Empty Then
        MsgBox "O campo Observação não foi preenchido.", vConfMsg, "Erro"
        vErro = True
    End If
    'Se acontece um erro sai da sub sem gravar
    With cnnComando
        .ActiveConnection = cnnCetecInfServiços
        .CommandType = adCmdText
        'cria o modulo sql
        .CommandText = "INSERT INTO  Clientes" & _
        "(Nome, Telefone, Cidade, Data_Inicio_Servico, Hora_Inicio_Servico, Produto, Motivo_Chamada, Obs) Values( '" & TxtNomeCliente.Text & "', '" & TxtTel.Text & "', '" & TxtCidade.Text & "', '" & TxtDataInicioServico.Text & "', '" & TxtHoraInicioServico.Text & "', '" & TxtProduto.Text & "', '" & TxtMotivo.Text & "', '" & TxtObs.Text & "');"
        .Execute
    End With
    MsgBox "Inclusão ok", vbInformation + vbOKOnly + vbApplicationModal, "OK"
    LimparTela
errGravacao:
    With Err
        If .Number <> 0 Then
        MsgBox "Houve erro na inclusão dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
        .Number = 0
        End If
    End With
End Sub

[scorpio 7]

Obrigado por compartilhar a solução.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif