WindevBrasil - Fórum Windev, Webdev e WindevMobile

Dúvidas e soluções => Windev, WebDev e WindevMobile => Tópico iniciado por: eduardowolak em Outubro 04, 2011, 04:57:27 pm

Título: Acesso ao MS Access 2000
Enviado por: eduardowolak em Outubro 04, 2011, 04:57:27 pm
Pessoal, pergunta simples...
Nao estou conseguindo acessar uma tabela em ACCESS, alguem poderia ajudar?

Até aqui funciona... mas nao entendi como recupero uma tabela e suas colunas...

HDescribeConnection("Access2000","","","C:\pedidos.mdb","",hOledbAccess2000,hOReadWrite,"")
HOpenConnection("Access2000")
HChangeConnection("*", "Access2000")


Obrigado a todos.
Título: Re:Acesso ao MS Access 2000
Enviado por: Marcelo Cruz em Outubro 04, 2011, 10:43:25 pm
Ola
Tenho um sistema com access mas não uso uma única linha de código pra acessá-lo.
Ao criar a Analise do projeto, ele te pergunta se seu banco esta criado, onde ele esta, se quer mantê-lo access ou convertê-lo,e outras coisas.
Informando isto, todas as tabelas ficam ativas e podem seracessadas normalmente.
Por exemplo.

Hreadfirst(estoque) //acho que a sintaxe é esta mesmo.
Variavelquantidade = Estoque.quantidade

Bem fácil.
 ;)

Título: Re:Acesso ao MS Access 2000
Enviado por: eduardowolak em Outubro 05, 2011, 08:25:06 am
Sim, mas gostaria de acessar a tabela e registro via codigo... por exemplo,

HDescribeConnection("Access2000","","","C:\Users\Wolak\Desktop\PALM\Forçavenda\pedidos.mdb","",hOledbAccess2000,hOReadWrite,"")
HOpenConnection("Access2000")
HChangeConnection("tabClientes", "Access2000")
FileList is string
FileList = HListFile("Access2000")
Info(FileList)
tabClientes is Data Source
HExecuteSQLQuery(tabClientes,hQueryDefault,"SELECT * FROM tabClientes")
Info(HErrorInfo())

Erro:
Error in the SQL code of <tabClientes> query. Unable to initialize the query.
tabClientes file unknown

Nao sei se estou utilizando o comando corretamente para retornar os registros do "tabClientes"....


Título: Re:Acesso ao MS Access 2000
Enviado por: eduardowolak em Outubro 05, 2011, 08:39:25 am
Pessoal, agradeco a todos.. achei o problema, só uma dica...

HDescribeConnection("Access2000","","","C:\Users\Wolak\Desktop\PALM\Forçavenda\pedidos.mdb","",hOledbAccess2000,hOReadWrite,"")
HOpenConnection("Access2000")
HChangeConnection("tabClientes", "Access2000")
FileList is string
FileList = HListFile("Access2000")
Info(FileList)

tabClientes is Data Source
HExecuteSQLQuery(tabClientes,"Access2000",hQueryWithoutCorrection,"SELECT * FROM tabClientes")
HReadFirst(tabClientes)
WHILE NOT HOut
   Info(tabClientes.codigo)
   HReadNext(tabClientes)   
END

Por default o Windev usa hQueryDefault, só trocar para hQueryWithoutCorrection

Wolak.