Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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: 11494

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
318 utenti registrati

Pagina servita il 09/10/24 alle 17:47:51 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad