Discussion :

[petitcoucou31]

bonjour a tous,

je suis novice en base en base de données.
je cherche a faire une recherche dans un champ alpha d'une base de donnée paradox

j'arrive a faire la recherche :
si le contenu de ma recherche est = au contenu du champ
totato => totato
si le contenu de ma recherche est au debut de mon champ
to* => totato

mais je voudrai aussi trouver un therme qui se trouverait dans le champ
*ta* => totato

Est ce possible si oui , comment faire et si possible un exemple serait le bien venu je suis sur les BD depuis hier !

merci d'avance

[TicTacToe]

Salut,

Oui bien sur il y a des solutions à ton problèmes.
Mais d'abord, comment arrive-tu à tes 1ers résultats, via des requete SQL ou via des instructions type Table.SetRange, ou via la propriété Table.Filter ?

Car la solution, c'est soit par requete SQL (et la je te donnerai pas le code car je suis pas dedans du tout), soit via l'évènement Table.OnFilterRecord.

Tu peux dire via le parametre "Accept", si tu acceptes l'enregistrement courant de ta table ou non selon tes contraintes. En utilisant Pos(...) sur ton champs par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
     Accept := Pos( 'ta', Table1.FieldByName( 'TonChamp' ).AsString ) <> 0;
end;

bon courage

[petitcoucou31]

Salut TicTacToe et merci ,

J'utilise un Ttable,Tsatasource et Bdgrid. Voila les deux routine que j'utilise , une pour la recherche et une pour un filtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TMain.RechercheClick(Sender: TObject);
var Option : TLocateOptions;
begin
  if  RechSociete.Text='' then exit;
  Option := [loPartialKey];
  Table.Locate('Société',RechSociete,Option);
end;
 
procedure TMain.FiltreSocieteClick(Sender: TObject);
var CoFiltre : string;
begin
   Table.Filtered:=false;
    if Filtre.text='' then exit;
    CoFiltre := 'Société ='''+'' + Filtre.Text + '*''';
    Table.Filter := COFiltre;
    Table.Filtered := true;
end;

Pour la recherche j'avais pensé aussi mettre la table dans une boucle et controler avec un "ANSIPOS" l'enregistrement en question . Je pensais qu'une fonction existait ( pour optimisation) . Surtout que je peux aussi vouloir faire des combinaisons entre les colonnes.

En fait c'est dans le filtrage que je suis embetté , je sais confectionner un filtre du genre " TA* " qui marche, mais pas un filtre du genre " *TA* " qui ne marche pas ( enfin si j'ai pas deconné!! ) ,

Il est evident que la methode que tu m'as donné si dessus peut aussi faire l'affaire. Peut etre que cette methode est plus lente que la methode TTable.filtre. N'etant pas habitué aux bases de donnéex je ne sais pas si çà joue sur le temps de recherche ou de tri.

Si d'autre info vous viennent à l'esprit...merci

[rsc]

Syntaxe SQL pour une recherche partielle sur un champ texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(MonChamp LIKE '%DE%')

[ProgD]

Pour Effectué une recherche dans BDD il exist plusieurs méthode je vous explique les plus simple à utilisé
1 er Méthode
1-Recherche Directe:
La recherche directe consiste à utilisé l'index Primaire par exemple
je voudrais recherche un client par son code Client en utilisant la commande FindKey
Programme
Table1.FindKey([NUMCLIENT]);
1-Recherche Sequentiel
La recherche Sequentiel utilise l'index Secondaire par exemple
je voudrais recherche un client par son Nom Client
Programme
Table1.FindNereast([NOMCLIENT]);