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 ClassSe alguém puder me ajudar ficaria muito grato! :D
