HOUVE UM ERRO NA CONEXÃO COM O BANCO DE DADOS
Abri seu projeto do jeito do post
Houve o primeiro erro
Desbilitei o tratamento de erro
Correção do Bd
CodUsuario(Chave Primaria) Corrige isto para [txt-color=#e80000]CodUsuario[/txt-color]
Nunca imaginei isto.
Houve o primeiro erro
Desbilitei o tratamento de erro
Correção do Bd
CodUsuario(Chave Primaria) Corrige isto para [txt-color=#e80000]CodUsuario[/txt-color]
Nunca imaginei isto.
A versão do seu Banco é anterior ao 2007.
Por isso ele é .mdb
Não abri.
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Projeto\Visual Basic\Bibliotecario\Biblio.accdb
Deste jeito.
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Projeto\Visual Basic\Bibliotecario\Biblio.mdb
Eu uso assim por ser mais simples.
[Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & App.Path & [Ô]\Biblio.mdb[Ô]
Por isso ele é .mdb
Não abri.
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Projeto\Visual Basic\Bibliotecario\Biblio.accdb
Deste jeito.
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Projeto\Visual Basic\Bibliotecario\Biblio.mdb
Eu uso assim por ser mais simples.
[Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & App.Path & [Ô]\Biblio.mdb[Ô]
Deu certo, mas após o cadastro ser efetuado com sucesso verifiquei que não esta chamando a sub para limpar os dados da tela.
Após ativar a sub, esta dando erro no toollbar, run timer 424
Private Sub LimparTela()
[ô]Chama sub LimparDados para limpar os dados do formulário:
LimparDados
[ô]Desabilita o botão excluir:
Tollbar1.Buttons(3).Enable = False
[ô]Apaga o conteúdo do campo CodUsuário e lhe passa o foco:
txtCodUsuario.Text = Empty
txtCodUsuario.SetFocus
End Sub
Após ativar a sub, esta dando erro no toollbar, run timer 424
Private Sub LimparTela()
[ô]Chama sub LimparDados para limpar os dados do formulário:
LimparDados
[ô]Desabilita o botão excluir:
Tollbar1.Buttons(3).Enable = False
[ô]Apaga o conteúdo do campo CodUsuário e lhe passa o foco:
txtCodUsuario.Text = Empty
txtCodUsuario.SetFocus
End Sub
Após algumas alterações que fiz esta dando erro na alteração do cadastro:
Houve um erro durante a gravação dos dados na tabela.[Microsoft][Driver ]
Private Sub GravarDados()
Dim cnnComando As New ADODB.Command
Dim vConfMsg As Integer
Dim vError As Boolean
[ô]On Error GoTo errGravacao
[ô]Inicializa as variáveis auxiliares:
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
[ô]Verifica os dados digitados:
If txtNomeUsuario.Text = Empty Then
MsgBox [Ô]O nome não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtEndereco.Text = Empty Then
MsgBox [Ô]O endereco não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtCidade.Text = Empty Then
MsgBox [Ô]A cidade não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtEstado.Text = Empty Then
MsgBox [Ô]O estado não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtCEP.Text = Empty Then
MsgBox [Ô]O cep não foi preenchido.[Ô], vConfMsg, [Ô]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
[ô]Inclusão:
.CommandText = [Ô]insert into Usuarios[Ô] & [Ô](CodUsuario,NomeUsuario,Endereco,Cidade,[Ô] & [Ô]Estado,CEP,Telefone)values ( [Ô] & txtCodUsuario.Text & [Ô],[ô][Ô] & txtNomeUsuario.Text & [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & txtCidade.Text & [Ô][ô],[ô][Ô] & txtEstado.Text & [Ô][ô],[ô][Ô] & txtCEP.Text & [Ô][ô],[ô][Ô] & txtTelefone.Text & [Ô][ô]);[Ô]
Else
[ô]Alteração:
.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çao concluÃda com sucesso.[Ô], vbApplicationModal + vbInformation + vbOKOnly, [Ô]Gravação OK[Ô]
[ô]Chama a sub que limpa os dados do formulário:
[ô]LimparTela-> apostila vb
LimparDados
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 tabela.[Ô] & .Description, vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
[ô]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
Houve um erro durante a gravação dos dados na tabela.[Microsoft][Driver ]
Private Sub GravarDados()
Dim cnnComando As New ADODB.Command
Dim vConfMsg As Integer
Dim vError As Boolean
[ô]On Error GoTo errGravacao
[ô]Inicializa as variáveis auxiliares:
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
[ô]Verifica os dados digitados:
If txtNomeUsuario.Text = Empty Then
MsgBox [Ô]O nome não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtEndereco.Text = Empty Then
MsgBox [Ô]O endereco não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtCidade.Text = Empty Then
MsgBox [Ô]A cidade não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtEstado.Text = Empty Then
MsgBox [Ô]O estado não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If txtCEP.Text = Empty Then
MsgBox [Ô]O cep não foi preenchido.[Ô], vConfMsg, [Ô]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
[ô]Inclusão:
.CommandText = [Ô]insert into Usuarios[Ô] & [Ô](CodUsuario,NomeUsuario,Endereco,Cidade,[Ô] & [Ô]Estado,CEP,Telefone)values ( [Ô] & txtCodUsuario.Text & [Ô],[ô][Ô] & txtNomeUsuario.Text & [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & txtCidade.Text & [Ô][ô],[ô][Ô] & txtEstado.Text & [Ô][ô],[ô][Ô] & txtCEP.Text & [Ô][ô],[ô][Ô] & txtTelefone.Text & [Ô][ô]);[Ô]
Else
[ô]Alteração:
.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çao concluÃda com sucesso.[Ô], vbApplicationModal + vbInformation + vbOKOnly, [Ô]Gravação OK[Ô]
[ô]Chama a sub que limpa os dados do formulário:
[ô]LimparTela-> apostila vb
LimparDados
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 tabela.[Ô] & .Description, vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
[ô]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
Reparei que ele não esta indo para o update e sim para o insert.
HELP.
Verifica.
Muito obrigado, pelas suas dicas de todos que me ajudaram e descobri coisas a mais e que no final deu certo, neste caso vou encerrar o tópico.
Mas não encerrou!
Citação::
Mas não encerrou!
Desculpe a demora somente não encerrei devido que não acho justo a forma de avaliar, porque duas pessoas me ajudaram e não somente uma.
Tópico encerrado , respostas não são mais permitidas