none
Problema com Banco de Dados Access RRS feed

  • 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

    Design da form de cadastro

    Se alguém puder me ajudar ficaria muito grato! :D

    domingo, 14 de janeiro de 2018 01:15

Respostas

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.

    segunda-feira, 15 de janeiro de 2018 12:29
    Moderador
  • 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

    domingo, 21 de janeiro de 2018 04:10
  • 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

    domingo, 21 de janeiro de 2018 22:17
  • 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.

    quarta-feira, 31 de janeiro de 2018 17:23
    Moderador