ABRIR MDB ACCESS 2003 COM ADO
Pessoal uso o oficce 2003 pra criar minhas base de dados mas tenho que converter toda vez pra formato do access 97 e uso o seguinte codigo pra abrir no formato do 97
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
[ô]CLIENTES
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Clientes order by NOME[Ô]
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF
CLIENTE.AddItem dyn([Ô]NOME[Ô]) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
este e um codigo pra abrir em um combobox os nomes ja cadastrados como eu faria para adptar meu codigo pra abrir ja no 2003 como eu abriria abase de dados pra isso ?
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
[ô]CLIENTES
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Clientes order by NOME[Ô]
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF
CLIENTE.AddItem dyn([Ô]NOME[Ô]) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
este e um codigo pra abrir em um combobox os nomes ja cadastrados como eu faria para adptar meu codigo pra abrir ja no 2003 como eu abriria abase de dados pra isso ?
Posso estar enganado, mas acho que você precisa instalar o Service Pack 6 para que o VB possa reconhecer o acess 2003. Pelo menos comigo funciona!
Amigo, precisa instalar o SP igual ao amigo disse.
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CursoADO\Curso.mdb[Ô]
rst.Open [Ô]SELECT * FROM Clientes;[Ô], cnn, adOpenKeyset, adLockOptimistic, adCmdText
Msgbox rst.RecordCount
Do Until rst.EOF
rst.MoveNext
Loop
rst.Close
cnn.Close
Pessoal inst mas nao abriu nao nao resolveu outro coisa me digitei errado gostaria de abrir mdb do 2003 usando DAO e nao ADO !
Eu uso o código abaixo
[ô]Primeiro faço a referencia da DAO 3.6 no projeto.
Dim db as database
Dim query As String
Dim rs As recordset
[ô]CLIENTES
Set db = OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Clientes order by NOME[Ô]
Set rs = db.openRecordset(query,dbOpenDynaset)
While Not rs.EOF
CLIENTE.AddItem rs([Ô]NOME[Ô]) & [Ô][Ô]
rs.MoveNext
Wend
rs.close
db.Close
[ô]Primeiro faço a referencia da DAO 3.6 no projeto.
Dim db as database
Dim query As String
Dim rs As recordset
[ô]CLIENTES
Set db = OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Clientes order by NOME[Ô]
Set rs = db.openRecordset(query,dbOpenDynaset)
While Not rs.EOF
CLIENTE.AddItem rs([Ô]NOME[Ô]) & [Ô][Ô]
rs.MoveNext
Wend
rs.close
db.Close
fininho ese codigo e pra abrir no formato do access 97 tb nao pois deu o mesmo erro que o meu pra abrir no access 2003
Não, eu uso ele para abrir tanto o 2000 quanto o 2003 e funciona normalmente.
Você tá usando a DAO 3.6 no projeto?
Você tá usando a DAO 3.6 no projeto?
hun nao 3.51 pode ser isso entao
era isso mesmo hehehe nao percebi o topo da sua resposta valeu!
Acredito que sim.
Tópico encerrado , respostas não são mais permitidas