Titolo: Ricerca su tutti i campi testuali di una Tabella
Categoria: Codice |
|
Ultimo Aggiornamento: 08/02/05 |
` Ricerca di una stringa su tutti i campi alfanumerici e testo di una tabella
` _________________________________________________________________
` $1 = Puntatore alla tabella
` _________________________________________________________________
C_POINTER($1)
C_STRING(80;$Alfa)
C_POINTER($PtrField;$PtrTable)
C_INTEGER($FieldNum;$TableNum;$NumeroMinimoCaratteri)
$PtrTable:=$1
$NumeroMinimoCaratteri:=3
$Alfa:=Request("Cerca...: (min. "+String($NumeroMinimoCaratteri)+" car.)")
If ((ok=1) & ($Alfa#""))
If (Length($Alfa)>=$NumeroMinimoCaratteri)
$TableNum:=Table($PtrTable)
$FieldNum:=Count fields($PtrTable)
For ($i;1;$FieldNum)
$PtrField:=Field($TableNum;$i)
If ((Type($PtrField->)=Is Alpha Field ) | (Type($PtrField->)=Is Text ))
QUERY($PtrTable->;$PtrField->=$Alfa;*)
$i:=$FieldNum+100
End if End for ` Verifica che abbia eseguito la query precedente
If ($i>($FieldNum+10))
For ($i;1;$FieldNum)
$PtrField:=Field($TableNum;$i)
If ((Type($PtrField->)=Is Alpha Field ) | (Type($PtrField->)=Is Text ))
QUERY($PtrTable->; | $PtrField->="@"+$Alfa+"@";*)
End if End for QUERY($PtrTable->)
Else Alert ("Assenza campi alfanumerici in tabella")
End if Else Alert ("Devi introdurre almeno "+String($NumeroMinimoCaratteri)+" caratteri")
End if End if ` _________________________________________________________________
| Inviato da: AirMac |
|
Visite: 12173 |
Se accedi con utente e password, puoi aggiungere dei commenti.
