Gravação De Dados No Bd

[taffarel]

Private Sub GravarDados()

Dim cnnComando As New ADODB.Command

Dim vConfMsg As Integer

Dim vErro As Boolean

    On Error GoTo errGravacao

    vConfMsg = vbExclamation + vbOKOnly + vbSystemModal

    vErro = False

 If txtNomeUsuario.Text = Empty Then

    MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"

    vErro = True

 End If

 If txtEndereco.Text = Empty Then

    MsgBox "O campo Endereço 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 txtEstado.Text = Empty Then

    MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro"

    vErro = True

   End If

 If txtCEP.Text = Empty Then

    MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro"

    vErro = True

    End If

 If vErro Then Exit Sub

  Screen.MousePointer = vbHourglass

  With cnnComando

       .ActiveConnection = cnnBiblio

       .CommandType = adCmdText

     If vInclusao Then

       .CommandText = "INSERT INTO Usuario " & _

       " (CodUsuario, NomeUsuario, Endereco, Cidade, " & _

       " Estado, CEP, Telefone) VALUES ('" & _

       txtCodUsuario.Text & ",'" & _

       txtNomeUsuario.Text & ",'" & _

       txtEndereco.Text & ",'" & _

       txtCidade.Text & ",'" & _

       txtEstado.Text & ",'" & _

       txtCEP.Text & ",'" & _

       txtTelefone.Text & ",');"

  Else

    .CommandText = "UPDATE Usuarios SET " & _

    "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _

    "Endereco = '" & txtEndereco.Text & "'," & _

    "Cidade = '" & txtCidade.Text & ",'" & _

    "Estado = '" & txtEstado.Text & ",'" & _

    "CEP = '" & txtCEP.Text & ",'" & _

    "Telefone = '" & txtTelefone.Text & ",'" & _

    "WHERE CodUsuario = " & txtCodUsuario.Text & ";"

   End If

    .Execute

   End With

    MsgBox "Gravação concluída com sucesso.", _

    vbApplicationModal + vbInformation + vbOKOnly, _

    "Gravação OK"

    LimparTela

   

Saida:

  Screen.MousePointer = vbDefault

   Set cnnComando = Nothing

   Exit Sub

   

errGravação:

 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

aparece isso quando eu tente gravar os dados na db como eu faço pra resolver????

[Graymalkin]

Aparece "isso" o quê? Já experimentou retirar o "On Error Goto errGravacao" para ver se dá algum erro que não seja esperado?

Abraços,

Graymalkin