Titolo: [v11 SQL] Risalire al numero di tabella (o alla sua esistenza)
Categoria: Info |
|
Ultimo Aggiornamento: 11/05/10 |
Col seguente codice si può chiedere a 4D se una tabella esiste:
C_TEXT($1) ` Table name
C_BOOLEAN($0)
C_LONGINT($i)
$i:=1
$0:=
FalseWhile(($i<=Get last table number)&(Not($0)))
If (Is table number valid($i))
If (Table name($i)=$1)
$0:=
True End if End if $i:=$i+1
End while Una variante può permettere di sapere il numero di tabella, se non esiste restituisce -1:
C_TEXT($1) ` Table name
C_LONGINT($i;$0)
$i:=1
$0:=-1
While($i<=Get last table number)
If (Is table number valid($i))
If (Table name($i)=$1)
$0:=$i
$i:=Get last table number+1
End if End if $i:=$i+1
End while
Inviato da: PierPaolo Sichera |
|
Visite: 10326 |
Se accedi con utente e password, puoi aggiungere dei commenti.