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

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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

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
301 utenti registrati

Pagina servita il 19/03/24 alle 12:01:22 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