Javafree
Página Inicial do Fórum > Apresentação

erro ao gravar dados do VB no Access



Criar novo tópico   Responder tópico


  1. tanjos2010
    Posts:1


    Comment Arrow

    Publicado em: 23/07/2016 05:54:17



    pessoal estou desevonvendo um aplicaçao em VB express 2010 para gravar no banco Access 2010

    porem salva e depois os dados somem poderia me ajudar

    segue codigo



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim NOME As String
    Dim MESANGEM_VAR As String
    Dim SUGESTAO_VAR As String
    Dim RECLAMACAO_VAR As String
    Dim DUVIDAS_VAR As String

    Dim sqlgravar As String
    Dim conexao As New OleDbConnection
    Dim Cm As New OleDbCommand

    NOME = CAMPO_NOME.Text
    MESANGEM_VAR = CAMPO_MSG.Text
    SUGESTAO_VAR = CheckSUGESTOES.Checked
    RECLAMACAO_VAR = CheckRECLAMACAO.Checked
    DUVIDAS_VAR = CheckDUVIDAS.Checked

    sqlgravar = "INSERT INTO TABELA_CADASTRO (NOME,MENSAGEM,DUVIDAS,SUGESTAO,RECLAMAÇAO) VALUES ('" + NOME + "',' " + MESANGEM_VAR + "','" + SUGESTAO_VAR + "','" + RECLAMACAO_VAR + "','" + DUVIDAS_VAR + " ')"
    conexao.ConnectionString = My.Settings.BANCO_CONTATOConnectionString
    conexao.Open()

    Cm.CommandType = CommandType.Text
    Cm.Connection = conexao
    Cm.CommandText = sqlgravar

    Cm.ExecuteNonQuery()
    Cm.Dispose()

    MessageBox.Show("O registo foi inserido na Base Dados :" & vbNewLine & "Nome : " & CAMPO_NOME.Text & vbNewLine & "Telemóvel : " & CAMPO_MSG.Text & "", "Registo do Cliente", MessageBoxButtons.OK, MessageBoxIcon.Information)
    conexao.Close()

    CAMPO_NOME.Clear()
    CAMPO_MSG.Clear()
    CheckRECLAMACAO.Checked = False
    CheckSUGESTOES.Checked = False
    CheckDUVIDAS.Checked = False
    CAMPO_NOME.Focus()

    End Sub



  1. Relacionados