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