USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Declarações/Variáveis)

Título da Dica:  Uma Sub Funcional (Gravar Dados)
Postada em 14/12/2007 por Diego#27            
Private Sub GravarDados()
Dim cnnComando As New ADODB.Command
Dim vConfmsg As Integer
Dim vErro As Boolean
    On Error GoTo errGravacao
    'Inicializa as variáveis auxiliares:
    vConfmsg = vbExclamation + vbOKOnly + vbSystemModal
    vErro = False
    'Verifica os dados digitados:
    If txtCadFuncionarios.Text = Empty Then
        MsgBox "O campo Funcionários não foi preenchido.", vConfmsg, "Erro"
        vErro = True
    End If
    If vErro Then Exit Sub
    Screen.MousePointer = vbHourglass
        With cnnComando
            .ActiveConnection = cnnEpi
            .CommandType = adCmdText
            'Verifica a operação e cria o comando SQL correspondente:
                If vInclusao Then
                'inclusão:
                .CommandText = "INSERT INTO CadFunc " & _
                    "(CodFunc, nomeFunc, Setor, NumCalcado) VALUES (" & _
                    txtCodFuncionarios.Text & ",'" & _
                    txtCadFuncionarios.Text & "','" & _
                    txtCadSetor.Text & "','" & _
                    txtCadCalcado.Text & "');"
             Else
            'Alteração:
        .CommandText = "UPDATE CadFunc SET " & _
        "NomeFunc = " & txtCadFuncionarios.Text & _
        "Setor = '," & txtCadSetor.Text & "'," & _
        "NumCalcado = '," & txtCadSetor.Text & "' " & _
        "WHERE CodFunc = " & txtCodFuncionarios.Text & ";"
    End If
        .Execute
        End With
            MsgBox "Gravação concluída com sucesso.", _
            vbApplication + vbInformation + vbOKOnly, _
            "Gravação OK"
            'Chama a sub que limpa os dados do formulario:
        LimpaTela
saida:
        Screen.MousePointer = vbDefault
        Set cnnComando = Nothing
        Exit Sub
errGravacao:
        With Err
            If .Number <> 0 Then
                MsgBox "Houve um erro durante a gravação dos dados na tela.", _
                    vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
                    .Number = 0
                GoTo saida
            End If
        End With
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página