Usuário com melhor resposta
Problema com Banco de Dados Access

Pergunta
-
Versão Visual Studio: 2017, vb6
Versão Access: 2007
Bom Amigos, estou com um problema que não sei como solucionar, estou a criar um app que cria contas individuais para compra de produtos em uma lanchonete, criei um banco de dados com nomes, telefones, um valor limite de consumo e tals, e criei uma form para cadastrar novos clientes, para cada compra efetuada seja salva em sua conta(Requisitos do Banco de Dados) mas ao fechar a execução da form e retornar a abri-la, os valores somem, por exemplo os nomes dos clientes. Deixarei abaixo o código que estou a usar:
Public Class Processo_de_Cadastramento_de_Cliente Private Sub Processo_de_Cadastramento_de_Cliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.CadastroClientesTableAdapter.Fill(Me.LAF_2018DataSet.CadastroClientes) Me.CadastroClientesBindingSource.AddNew() Me.CadastroClientesBindingNavigator.Refresh() End Sub 'Evento para salvar cadastro Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Variável que permite a validação, caso não seja igual a 6 não permitira o salvamento do cadastro Dim ValidarCadastro As Double = 0 'Condições para as informações necessárias If NomeTextBox.Text = "" Then MsgBox("Insira um Nome Válido", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If Telefone_CelularTextBox.Text = "" Then MsgBox("Insira um Telefone/Celular Válido", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If Valor_LimiteTextBox.Text = "" Then MsgBox("Insira um Valor Limite", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If TurnoComboBox.Text = "" Then MsgBox("Insira o Turno que o Aluno Cursa", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If TurmaComboBox.Text = "" Then MsgBox("Insira a Turma do Aluno", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If Nome_do_ResponsávelTextBox.Text = "" Then MsgBox("Insira o Nome do Responsável", MsgBoxStyle.Information, Title:="Erro") Else ValidarCadastro += 1 End If If ValidarCadastro = 6 Then MsgBox("Salvo Com Sucesso!", MsgBoxStyle.Information, Title:="Sucesso!") Me.Validate() Me.CadastroClientesBindingSource.EndEdit() End If End Sub 'Evento para criar novo cadastro Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.CadastroClientesBindingSource.AddNew() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Hide() Form1.Show() End Sub End Class
Se alguém puder me ajudar ficaria muito grato! :D
Respostas
-
Use o AcceptChanges() em sua função de salvar!
Se a resposta for relevante ou tenha resolvido seu problema, marque como útil/resposta!
Rafael Almeida
Microsoft Developer .NET
Microsoft Certified Professional
Development Leader at JAMSOFT Informática
Email: ralms@ralms.net
Blog - GitHub - LinkedIn - Twitter- Marcado como Resposta Filipe B CastroModerator quarta-feira, 31 de janeiro de 2018 17:23
Todas as Respostas
-
Bom dia, Igor Luque. Tudo bem?
Obrigado por usar o fórum MSDN.
Poderia explicar melhor sobre o teu problema?
Atenciosamente,Filipe B de Castro
Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.
-
Boa noite Amigo Felipe
Não fui muito claro, desculpe. O caso é o seguinte, eu quero fazer como um login, onde vc se cadastra com email e senha e essa conta e salva, e quando ao fechar o programa e abri-lo novamente a conta ainda exista. Eu fiz esse exemplo anterior com um banco de dados Access mas ao fechar e abrir o programa ele exclui todos os dados.
Caso ainda não tenha sido claro, explico de outra forma
Atenciosamente Igor :D
-
Use o AcceptChanges() em sua função de salvar!
Se a resposta for relevante ou tenha resolvido seu problema, marque como útil/resposta!
Rafael Almeida
Microsoft Developer .NET
Microsoft Certified Professional
Development Leader at JAMSOFT Informática
Email: ralms@ralms.net
Blog - GitHub - LinkedIn - Twitter- Marcado como Resposta Filipe B CastroModerator quarta-feira, 31 de janeiro de 2018 17:23
-
Boa tarde,
Por falta de retorno essa thread está encerrada.
Se necessário favor abrir uma nova thread.
Atenciosamente,Filipe B de Castro
Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.