Ir para conteúdo
Fórum Script Brasil
  • 0

Gravação De Dados No Bd


taffarel

Pergunta

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????

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...