BANCO DE DADOS ACESS
Pessoal,
Trabalho com vb6 em uma pequena empresa, acontece que o sistema usa o banco de dados access versão 2003, como faço para migrar para uma versão mais moderna do access. Tentei e toda vez da erro.
Desde já agradeço
Clebio
Trabalho com vb6 em uma pequena empresa, acontece que o sistema usa o banco de dados access versão 2003, como faço para migrar para uma versão mais moderna do access. Tentei e toda vez da erro.
Desde já agradeço
Clebio
Não sei se é isso que vc precisa
Converter um banco de dados no formato de arquivo .accdb
Converter um banco de dados no formato de arquivo .accdb
pessoal converter o banco tudo bem porém o vb6 não reconhece. Esse é o meu problema
Se o seu problema for para abrir o banco, o comando muda um pouco com a nova versão, ficaria algo assim
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô]
Agora senão for isso, diga onde esta dando o erro
Dim Conexao As New ADODB.Connection
Dim Tabela As New ADODB.Recordset
Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Dados.accdb;[Ô]
Agora senão for isso, diga onde esta dando o erro
Eu abro o banco da seguinte forma:
Set Bck = OpenDatabase(App.path + [Ô]\Banco.mdb[Ô]) (o banco na versão 2003)
Quanto quero usar o objeto Data uso da seguinte forma:
Data.DatabaseName = App.path + [Ô]\Banco.mdb[Ô]
Data.RecordSource = [Ô]SELECT DISTINCTROW as variaveis da Tabela from Tabela where condição[Ô]
Data.Refresh
Para usar uma tabela uso da seguinte forma:
Set xxx = Bck.OpenRecordset([Ô]Tabela[Ô], dbOpenTable)
xxx.Index = [Ô]Variavel indexada da tabela[Ô]
xxx.Seek [Ô]=[Ô], variavel preenchida pelo usuário
If Not xxx.NoMatch Then
Pergunto como usar as situações acima no banco de dados access atual?
Desde já agradeço a oportunidade
Set Bck = OpenDatabase(App.path + [Ô]\Banco.mdb[Ô]) (o banco na versão 2003)
Quanto quero usar o objeto Data uso da seguinte forma:
Data.DatabaseName = App.path + [Ô]\Banco.mdb[Ô]
Data.RecordSource = [Ô]SELECT DISTINCTROW as variaveis da Tabela from Tabela where condição[Ô]
Data.Refresh
Para usar uma tabela uso da seguinte forma:
Set xxx = Bck.OpenRecordset([Ô]Tabela[Ô], dbOpenTable)
xxx.Index = [Ô]Variavel indexada da tabela[Ô]
xxx.Seek [Ô]=[Ô], variavel preenchida pelo usuário
If Not xxx.NoMatch Then
Pergunto como usar as situações acima no banco de dados access atual?
Desde já agradeço a oportunidade
é como o AlvaroVB2009 mostrou, o que vai mudar é a string de conexão e não a forma que você usa.
Nossa senhora, isso é muito antigo, você usa DAO, e não ADO, terás que mudar para ADO, e ai sim com ADO você pode conectar com qualquer banco. DAO é muito antigo.
Citação::
Nossa senhora, isso é muito antigo, você usa DAO, e não ADO, terás que mudar para ADO, e ai sim com ADO você pode conectar com qualquer banco. DAO é muito antigo.
sugestão melhor ainda, começar a estudar a vinda pro VisualStudio, e ai sim usar um BD realmente
Tópico encerrado , respostas não são mais permitidas