[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== Access OLE (OpenInsight 32-bit) ====
=== At 16 MAY 2012 03:06:13AM Gerry Van Niekerk wrote: ===
 
{{tag>"OpenInsight 32-bit"}}
 
<QUOTE>
I am trying to read the data from several tables in an access database



So far I can connect and even count the number of records but then I get lost!!



oXl = OleCreateInstance('Access.Application')

filename = 'C:\Data\VP.mdb'

Application = OleCreateInstance("Access.Application")

Application->AutomationSecurity =  1

oSheet = Application->OpenCurrentDatabase(filename)

cdb = Application->CurrentDb()

tdefs = cdb->TableDefs

tcount = tdefs->Count

For i = 1 To tcount

   tdef = OleGetProperty(tdefs,'ITEM',i - 1)

   TableName = tdef->Name

Next i

** get fields in database 

flds = tdef->Fields

** get number of records in database

Rcnt = tdef->RecordCount

***** now how do I get the details of the database line by line?





Any help will be greatly appreciated...



Thanks,



Gerry van Niekerk
</QUOTE>

[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=C80AA73C0004ED948964DF900|View this thread on the  forum...]]