Titolo: Esporta descrizione struttura di una Tabella
Categoria: Codice |
|
Ultimo Aggiornamento: 09/11/05 |
C_LONGINT($Table_l;$i)
DEFAULT TABLE([Strutture])
$Table_l:=
Table(
Current default table)
$doc:=Create document("")
If (ok=1)
SEND PACKET($doc;"TABLE "+
Table name($Table_l)+Char(
Carriage return))
For ($i;1;
Count fields($Table_l))
$t:=
Type(
Field($Table_l;$i)->)
Case of : (($t=Is LongInt ) | ($t=Is Integer ))
$tipo:="Long"
: ($t=Is Real )
$tipo:="Real"
: ($t=Is Alpha Field )
$tipo:="Alfa"
: ($t=Is Text )
$tipo:="Text"
: ($t=Is Boolean )
$tipo:="Bool"
: ($t=Is Date )
$tipo:="Date"
: ($t=Is Time )
$tipo:="Time"
: ($t=Is Picture )
$tipo:="Pict"
Else $tipo:="blob "+String($t)
End case SEND PACKET($doc;Char(
Tab)+$tipo+Field name($Table_l;$i)+Char(
Carriage return))
End for CLOSE DOCUMENT($doc)
End if
Inviato da: Umberto Migliore |
|
Visite: 11601 |
Se accedi con utente e password, puoi aggiungere dei commenti.