INSERT INTO VISUAL BASIC 2010 COM BANCO ACCESS

VITORGUERINI 16/02/2012 23:59:11
#394977

Ola, pessoal.

Já desenvolvialgumas coisas em VBA utilizando o excel com aplicativo e base de dados, agora estou querendo utilizar o Visual basic 2010 e um banco de dados no access. consegui conectar o banco e fazer uma consulta mas quando teto incluir dados atraves do VB nada acontece.

A tabela no access tem dois campos: ID_CONTA e CONTA_DEBITO, sendo que o campo ID_CONTA é do tipo numeração automatica.

Esse é o codigo que estou usando no formulario:



Public Class FRM_CONTA_DEBITO

Public STRCONEXAO As String
Public COMANDO As String
Public CONEXAO As New OleDb.OleDbConnection

Private Sub INCLUIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INCLUIR.Click


Dim CONEXAO As New OleDb.OleDbConnection(STRCONEXAO)
Dim CMD As New OleDb.OleDbCommand(COMANDO, CONEXAO)

COMANDO = [Ô]INSERT INTO TBA_CONTA_DEBITO(CONTA_DEBITO)[Ô]

COMANDO = COMANDO & [Ô] values ([Ô] & TXT_CONTA.Text & [Ô])[Ô]
CONEXAO = New OleDb.OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\banco\BD.mdb[Ô])

CONEXAO.Open()
CMD = New OleDb.OleDbCommand(COMANDO, CONEXAO)

Try
CMD.ExecuteNonQuery()
Catch ex As Exception
Finally
CONEXAO.Close()
End Try


End Sub
End Class