none
VB NET ACCESS (INSERT INTO) RRS feed

  • Pergunta

  • Pessoal boa tarde!

    Estou tendo dificuldade em gravar informações em uma tabela Access 2013 usando VB NET no VS2019.

    Vou postar o código abaixo.

    Imports System.Data.OleDb
    Imports System.Data.OleDb.OleDbDataReader
    
    Private conn As New OleDbConnection
    Private comm As New OleDbCommand
    Private myReader As OleDbDataReader
    
    Private SQL_Insere_Dados_Imposto As String
    Private T As String = 1
    
    'string de conexao ao banco de dados
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=dbsystem.accdb; Persist Security Info=False; Jet OLEDB:Database Password=;"
    
    '
    comm.Connection = conn
    
    'abre conexao com o banco de dados
    conn.Open()
    
    Try
    
          'Insere dados do imposto
          SQL_Insere_Dados_Imposto = "INSERT INTO Teste (TesteGeral) VALUES (" & T & ")"
          comm.CommandText = SQL_Insere_Dados_Imposto
          comm.ExecuteNonQuery()
    
    Catch ex As Exception
    
          'Mensagem que é exibida caso não haja conexão com o banco de dados.  
          MsgBox("Ocorreu um erro fatal... " & "    " & ex.Message)
    
    End Try

    Quando clico no botão para gravar, não apresenta erro algum. Quando uso Breakpoint também não gera erro algum.

    Só que não grava a informação na tabela do access.

    O que estou fazendo de errado?

    Desde já gradeço a atenção e ajuda!

    Alexandre Pacheco


    Alexandre Gonçalves Pacheco

    domingo, 24 de maio de 2020 19:35

Respostas

Todas as Respostas