Jump to content
Fórum Script Brasil
  • 0

Gravação De Dados No Bd


taffarel

Question

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 to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...