Silvio wrote:to print each structure table
wich is the command ?
FUNCTION MAIN()
LOCAL oCat
LOCAL i, j
oCat = CREATEOBJECT( "ADOX.Catalog" )
oCat:ActiveConnection = "Your connection string"
FOR i = 0 TO oCat:Tables:Count() - 1
? oCat:Tables( i ):Name
?
FOR j = 0 TO oCat:Tables( i ):Columns:Count() - 1
? SPACE( 4 ),;
PADR( oCat:Tables( i ):Columns( j ):Name, 20 ),;
STR( oCat:Tables( i ):Columns( j ):Type, 5 ),;
STR( oCat:Tables( i ):Columns( j ):DefinedSize, 10 ),;
STR( oCat:Tables( i ):Columns( j ):Precision, 5 )
NEXT
?
NEXT
RETURN NIL
Silvio wrote:I must open a fdb archive and list the structure of each table
How I can make it ?
Can I have a small sample pls. ?
Silvio wrote:NO
I have installed Firebird correctly VERSION 2.1
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 71 guests