Boas Tardes!! Estou a precisar de ajuda, tou a criar um programa em VB para gerir uma Biblioteca, o que se passa é que me esta a dar um erro, num form que serve para registar utilizadores, tenho já uma base dados feita em acess. Não consigo descobrir o erro, gostaria que me ajudassem, Obigado
Pergunta
@lexi@
Boas Tardes!! Estou a precisar de ajuda, tou a criar um programa em VB para gerir uma Biblioteca, o que se passa é que me esta a dar um erro, num form que serve para registar utilizadores, tenho já uma base dados feita em acess. Não consigo descobrir o erro, gostaria que me ajudassem, Obigado
Deixo aqui o código:
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:
vbConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
'Verifica os dados digitados:
If txtNomeUtilizador.Text = Empty Then
MsgBox "O campo Nome não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
If txtMorada.Text = Empty Then
MsgBox "O campo Morada não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
If txtTelefone.Text = Empty Then
MsgBox "O campo Morada não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
If txtAno.Text = Empty Then
MsgBox "O campo Ano não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
If txtTurma.Text = Empty Then
MsgBox "O campo Turma não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
If txtNº.Text = Empty Then
MsgBox "O campo Nº não foi preenchido.", vbConfMsg, "Erro"
vErro = True
End If
'Se aconteceu um erro de digitação, sai da sub sem gravar:
If vErro Then Exit Sub
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnBiblio
.CommandType = adCmdText
'Verifica a operação e cria o comando SQL correspondente:
If vInclusao Then
'Inclusao:
.CommandText = "INSERT INTO Utilizadores" & "(CodUtilizador, NomeUtilizador, Morada, Telefone, Ano, Turma, Nº) VALUES ('" & txtCodUtilizador.Text & ",'" & txtNomeUtilizador.Text & ",'" & txtMorada.Text & ",'" & txtTelefone.Text & ",'" & txtAno.Text & ",'" & txtTurma.Text & ",'" & txtNº.Text & "');"
Else
'Alteração:
.CommandText = "UPDATE Utilizadores SET" & "NomeUtilizador ='" & txtNomeUtilizador.Text & "'," & "Morada ='" & txtMorada.Text & "'," & "Telefone ='" & txtTelefone.Text & "'," & "Ano ='" & txtAno.Text & "'," & "Turma ='" & txtTurma.Text & "'," & "Nº ='" & txtNº.Text & "' " & "WHERE CodUtilizador =" & txtCodUtilizador.Text & ";"
End If
.Execute
End With
MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK"
'Chama a sub que limpa os dados do formulário:
LimparDados
saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub
errGravacao:
With Err
If .Number <> 0 Then
MsgBox "Ocorreu um erro durante a gravação dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo saida
End If
End With
End Sub
Cumprimentos
Link para o comentário
Compartilhar em outros sites
4 respostass 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.