extract access database schema

[Anna82]

hi,

i'm looking for some lines of code to extract the database (table) schema from an access database.

i tried the access.udf, but can't access the schema

can anyone give me a hint?

thanks

[kylomas]

Anna,

I use the following set of functions for most of my Accedd DB stuff...

func table_exists($tbl)
local $rows, $nbrows, $nbcols, $ret
    $ret = _SQLite_GetTable2d(-1, "select * from sqlite_master where name = " & "'" & $tbl  & "'" & ";", $rows, $nbrows, $nbcols)
    If @error Then ConsoleWrite(@error & ' ' & @extended & ' ' & $ret & @LF)
if $nbrows > 0 then
  return true
Else
  return False
endif
endfunc
func table_list()
local $rows, $nbrows, $nbcols
    $ret = _SQLite_GetTable2d(-1, "select * from sqlite_master;", $rows, $nbrows, $nbcols,1000)
    If @error Then ConsoleWrite(@error & ' ' & @extended & ' ' & $ret & @LF)
return $rows
endfunc
func column_list($tbl)
local $rows, $nbrows, $nbcols
    $ret = _SQLite_GetTable2d(-1, "pragma table_info(" & $tbl & ");", $rows, $nbrows, $nbcols)
    If @error Then ConsoleWrite(@error & ' ' & @extended & ' ' & $ret & @LF)
return $rows
endfunc
func table_clear($tbl)
local $ret
if not _SQLite_Exec (-1, "delete from " & $tbl & ";") = $sqlite_ok then MsgBox(16, "SQLite Error", _SQLite_ErrMsg ())
    If @error Then ConsoleWrite(@error & ' ' & @extended & ' ' & $ret & @LF)
endfunc

kylomas

Edited November 23, 2011 by kylomas

[jchd]

Are you actually using _SQLite_* functions to access an Access database with any success?

[kylomas]

Anna, Jchd,

Sorry !!! My mistake, I converted everything form access to sqlite last year.

Anna,

Access has the same sort of functionality, just do a google search for ADOX and you will get vbscript examples. THese are easily converted to AutoIT.

Again, sorry for the misleading info,

kylomas