Autor Tópico: Acesso ao MS Access 2000  (Lida 2620 vezes)

eduardowolak

  • Full Member
  • ***
  • Mensagens: 146
  • Karma: +0/-0
Acesso ao MS Access 2000
« Online: 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.

Marcelo Cruz

  • Administrator
  • *****
  • Mensagens: 175
  • Karma: +0/-0
  • .
Re:Acesso ao MS Access 2000
« Responder #1 Online: 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.
 ;)


eduardowolak

  • Full Member
  • ***
  • Mensagens: 146
  • Karma: +0/-0
Re:Acesso ao MS Access 2000
« Responder #2 Online: 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"....



eduardowolak

  • Full Member
  • ***
  • Mensagens: 146
  • Karma: +0/-0
Re:Acesso ao MS Access 2000
« Responder #3 Online: 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.