Recherche dans une base de donnée [Résolu]
Ali_usto
- Messages postés
- 135
- Date d'inscription
- lundi 20 novembre 2006
- Statut
- Membre
- Dernière intervention
- 11 octobre 2010
- Messages postés
- 4992
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
A voir également:
- Locate delphi
- Adotable locate delphi - Meilleures réponses
- Adotable delphi - Meilleures réponses
- Visual Basic / VB.NET : Recherche dans une base de données en ado - CodeS SourceS - Guide
- ColdFusion : Moteur de recherche dans une base de données - CodeS SourceS - Guide
- Recherche d'une base de donnée ✓ - Forum - Delphi / Pascal
- Recherche dans une base de données ✓ - Forum - Visual Basic 6
- Recherche dans une base de donnée exemple d'un annuaire ✓ - Forum - PHP
8 réponses
Meilleure réponse
Salut
Pour réaliser une recherche dans une table paradox il existe la fonction locate
Pour réaliser une recherche dans une table paradox il existe la fonction locate
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
196 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4992
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
personne.locate('Nom;Prenom',VarArrayOf([RechNom,RechPrenom)],[]);
cantador
cantador
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
196 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
Hello,
Pourquoi ne pas, tout simplement, utiliser une requête ?
May Delphi be with you !
<hr color ="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/
Pourquoi ne pas, tout simplement, utiliser une requête ?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Db, DbTables;
type
TRecSearchResult = (srCanceled, srNotFound, srFound);
TForm1 = class (TForm)
Button1: TButton;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
function Recherche: TRecSearchResult;
end;
var
Form1: TForm1;
implementation
resourcestring
sEnregistrementIntrouvableDansLaT = 'Enregistrement introuvable dans la table';
sEntrerLeNomDeLaPersonne = 'entrer le nom de la personne :';
sEntrerLePrenomDeLaPersonne = 'entrer le prénom de la personne :';
sRecherche = 'Recherche';
{$R *.dfm}
function TForm1.Recherche(): TRecSearchResult;
var
nom, prenom: string;
Q: TQuery;
begin
Result : = srNotFound;
nom := InputBox(sRecherche, sEntrerLeNomDeLaPersonne, '');
prenom := InputBox(sRecherche, sEntrerLePrenomDeLaPersonne, '');
if (nom EmptyStr) <gras>and (prenom</gras> EmptyStr) then
begin
Result := srCanceled;
Exit;
end ;
nom : = QuotedStr(nom);
prenom := QuotedStr(prenom);
Q := TQuery.Create(self);
try
Q.DataBaseName := Table1.DataBaseName; Q.SQL.Text :'SELECT * FROM maTable WHERE nom :nom';
Q.ParamByName('nom').AsString := nom;
if prenom <> EmptyStr then
begin
Q.Sql.Add('AND prenom = :prenom');
Q.ParamByName('prenom').AsString := prenom;
end ;
Q.Open;
if Q.RecordCount > 0then
Result : = srFound;
finally
FreeAndNil(Q);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Recherche = srNotFound then
MessageDlg(sEnregistrementIntrouvableDansLaT,mtInformation,[mbOk], 0);
end ;
end.
Ce code n'est qu'un exemple simple pour illustrer la méthode préconisée.
May Delphi be with you !
<hr color ="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
196 internautes nous ont dit merci ce mois-ci
- Messages postés
- 11
- Date d'inscription
- dimanche 26 mars 2006
- Statut
- Membre
- Dernière intervention
- 15 juin 2007
Bonjour
Utilise une requête
Var ADO:Tadoquery;
ADO:=Tadoquery.creat(Nil);
ADO.ConnectionString:='Nom de la Connexion';
with ADO Do
Begin
Sql.clear;Sql.add('select Nom,Prenom ');
Sql.add('From table1where Nom='+Quotedstr(Nom));
Sql.add('and prenom='+Quotedstr(prenom));
open
End;
If ADO.isempty then
Showmessage('Client N''existe Pas');
Une Aute :
with ADO Do
Begin
Sql.clear;Sql.add('select Nom+''+Prenom as Client ');
Sql.add('From table1where Nom+''+Prenom=');
Sql.add('+Quotedstr(Nom+prenom));
open
End;
If ADO.isempty then
Showmessage('Client N''existe Pas');
Bon Contuniation
Utilise une requête
Var ADO:Tadoquery;
ADO:=Tadoquery.creat(Nil);
ADO.ConnectionString:='Nom de la Connexion';
with ADO Do
Begin
Sql.clear;Sql.add('select Nom,Prenom ');
Sql.add('From table1where Nom='+Quotedstr(Nom));
Sql.add('and prenom='+Quotedstr(prenom));
open
End;
If ADO.isempty then
Showmessage('Client N''existe Pas');
Une Aute :
with ADO Do
Begin
Sql.clear;Sql.add('select Nom+''+Prenom as Client ');
Sql.add('From table1where Nom+''+Prenom=');
Sql.add('+Quotedstr(Nom+prenom));
open
End;
If ADO.isempty then
Showmessage('Client N''existe Pas');
Bon Contuniation
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
196 internautes nous ont dit merci ce mois-ci
- Messages postés
- 446
- Date d'inscription
- vendredi 7 novembre 2003
- Statut
- Membre
- Dernière intervention
- 8 octobre 2008
- Messages postés
- 4992
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018