CONECTAR A BANCO DE DADOS ACCESS 2007
Amigos, estou começando a usar o Visual Studio 2012 agora, antes eu usava o vb6, estou sem saber como fazer uma conexão com o banco de dados do access 2007, para conectar nesse banco de dados que está na pasta da aplicação e em seguida abrir a tabela [Ô]Clientes[Ô].
Banco de dados: Dados.accdb
Tabela do banco: Clientes
Para depois gravar itens nessa tabela.
No vb6 eu fazia assim:
Private Sub Form_Load()
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô]
Dim SQL As String
SQL = [Ô]Select * from Clientes[Ô]
Tabela.Open SQL, Conexao, adOpenKeyset, adLockOptimistic
End sub
Private Sub cmdCadastrar_Click()
Tabela.addnew
Tabela.Fields([Ô]Nome[Ô]) = txtNome.text
Tabela.update
End sub
Banco de dados: Dados.accdb
Tabela do banco: Clientes
Para depois gravar itens nessa tabela.
No vb6 eu fazia assim:
Private Sub Form_Load()
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô]
Dim SQL As String
SQL = [Ô]Select * from Clientes[Ô]
Tabela.Open SQL, Conexao, adOpenKeyset, adLockOptimistic
End sub
Private Sub cmdCadastrar_Click()
Tabela.addnew
Tabela.Fields([Ô]Nome[Ô]) = txtNome.text
Tabela.update
End sub
Vou dar um conselho a você.
Não use códigos de vb6 em vbnet.
Vai aparecer um cabeça de bagre e falar,eu faço e não tem nada.
Vai te orientar de como faz e depois vem o problema.
Para quem sabe é uma coisa e para quem está aprendendo é outra.
Vbnet é completamente diferente de Vb6.Eu relutei para não mexer
com o Vbnet,mas não teve jeito.Labuta.
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
[txt-color=#e80000]Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô][/txt-color]
Isto se chama ERRRRRRRRRRRRRRRRRRRO.
Não é assim que abre.
Não use códigos de vb6 em vbnet.
Vai aparecer um cabeça de bagre e falar,eu faço e não tem nada.
Vai te orientar de como faz e depois vem o problema.
Para quem sabe é uma coisa e para quem está aprendendo é outra.
Vbnet é completamente diferente de Vb6.Eu relutei para não mexer
com o Vbnet,mas não teve jeito.Labuta.
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
[txt-color=#e80000]Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô][/txt-color]
Isto se chama ERRRRRRRRRRRRRRRRRRRO.
Não é assim que abre.
Omar, eu só quis falar como eu fazia, quando eu utilizava o vb6, agora sei que vai ser diferente, porém, queria saber como é esse diferente, como vou fazer essa conexão em vb.net, estou utilizando o Visual Studio 2012.
Valew!
Valew!
Isto é um exemplo simples de como abri o Banco e preenche caixas e um combobox.
Dim strCon1 As String
strCon1 = ([Ô] Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Tabelas2.accdb;Persist Security Info=False;[Ô])
Dim conn1 As New OleDbConnection
Dim comando1 As New OleDbCommand
Try
conn1.ConnectionString = strCon1
conn1.Open()
comando1.Connection = conn1
comando1.CommandText = [Ô]Select * From Usuarios[Ô]
Dim dr1 As OleDbDataReader = comando1.ExecuteReader
Dim str1 As String = dr1.ToString
While (dr1.Read())
cbxretiraNota.Items.Add(dr1([Ô]Nome[Ô]))
TextBox1.Text = [Ô][Ô] & dr1([Ô]Id[Ô])
TextBox2.Text = [Ô][Ô] & dr1([Ô]Nome[Ô])
TextBox3.Text = [Ô][Ô] & dr1([Ô]Senha[Ô])
TextBox4.Text = [Ô][Ô] & dr1([Ô]Hora[Ô])
End While
conn1.Close()
Catch ex As OleDbException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn1.Dispose()
End Try
Dim strCon1 As String
strCon1 = ([Ô] Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Tabelas2.accdb;Persist Security Info=False;[Ô])
Dim conn1 As New OleDbConnection
Dim comando1 As New OleDbCommand
Try
conn1.ConnectionString = strCon1
conn1.Open()
comando1.Connection = conn1
comando1.CommandText = [Ô]Select * From Usuarios[Ô]
Dim dr1 As OleDbDataReader = comando1.ExecuteReader
Dim str1 As String = dr1.ToString
While (dr1.Read())
cbxretiraNota.Items.Add(dr1([Ô]Nome[Ô]))
TextBox1.Text = [Ô][Ô] & dr1([Ô]Id[Ô])
TextBox2.Text = [Ô][Ô] & dr1([Ô]Nome[Ô])
TextBox3.Text = [Ô][Ô] & dr1([Ô]Senha[Ô])
TextBox4.Text = [Ô][Ô] & dr1([Ô]Hora[Ô])
End While
conn1.Close()
Catch ex As OleDbException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn1.Dispose()
End Try
Tópico encerrado , respostas não são mais permitidas