(Resolvido) adicionar dados

[tito13]

se puderem, me digam onde estou errando, pois não ta gravando na tabela do access

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
    If vInclusao = True Then
        With rsSelecao
        .AddNew
        !Nome = TxtNomeCliente.Text
        !Telefone = TxtTel.Text
        !Cidade = TxtCidade.Text
        !Data_Inicio_Servico = TxtDataInicioServico.Text
        !Hora_InicioServico = TxtHoraInicioServico.Text
        !Produto = TxtProduto.Text
        !Motivo_Chamada = TxtMotivo.Text
        !Obs = TxtObs.Text
       End With
    End If
    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

Informa que foi incluido mas não grava.

fico no aguardo

[Fabin]

tenta assim brother e posta o que deu

Private Sub IncluirDados()
dim cnnComando as new adodb.command
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
    If vInclusao = True Then
        With cnnComando
        .connectionstring = nome do banco
        .commandtype = acmdtext
        .commandtext = "INSERT INTO tabela " & _
           "(Cidade, Data_Inicio_Serviço, Hora_InicioServiço, Produto, Motivo_Chamada, Obs) VALUES ('" & txtCidade.text & "', '" & TxtDataInicioServico.Text & "', '" & TxtHoraInicioServico.Text & "', '" & TxtProduto.Text "', '" & TxtMotivo.Text & "', "' & TxtObs.Text & "');"  Lembrando que se no bd for campo numerico colocar somente "& &"
       End With
    End If
    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

abraço

t+

[tito13]

Valeu Fabin

Ta me retornando 'Method or data not foud' e me sinalizando no connectioString então tentei mudar para ActiveConnection e ai volta a me dizer que inclui mas não inclui.

Vou revisar novamente.

Se tiver outra ideia, agradeço.

t+

[Fabin]

ah é esqci era activeconnection hehe

mas não gravo??

o banco fica em branco??

da uam revisada aew porque com o seu metodo e o meu era para ter gravado

abraço

t+

[tito13]

cara

o pior é que vou la na tabela do access, incluo dados volto pra vb e lá tá o novo item.

Vai entender???

Quatro dias e não consigo resolver.

Se alguém mais puder dar uma dica, to aceitando.

[Fabin]

brother qual a versao do seu access?

voce esta fazendo sua conexao por qual metodo??

posta aew como esta fazendo a conexao

abraço

t+

[tito13]

Estou usando o access 2003.

Faço a coneçao na tela de splash

Private Sub Tmr1_Timer()
Dim x As Long
    With ProgressBar1
        .Min = 0
        .Max = 50000
        .Value = 1
    End With
    For x = 1 To 50000
        ProgressBar1.Value = x
    Next
        
    On Error GoTo errConexão
    cnnCetecInfServiços.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & App.Path & "\CetecInfServiços.mdb;"
    cnnCetecInfServiços.Open
    Unload Me
    MDIFrm1.Show
    Exit Sub
errConexão:
    With Err
        If .Number <> 0 Then
            MsgBox "Houve erro na conexão com o Banco de Dados." & _
            vbCrLf & "O Sistema será encerrado.", vbCritical, vbOKOnly, "Erro de Conexão"
            .Number = 0
            Set cnnCetecInfServiços = Nothing
            End
        End If
    End With
End Sub

[Fabin]

pelol que eu vi aqui tua conexao ta blza brother, não sei porque ele não esta fazendo a inclusao

vamo ver se alguém sabe o porque não é?

abraço

t+

[tito13]

Pessoal, alterei a forma de acessar e deu certo.

Obrigado a todos.

Ficou assim

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