Recherche dans une base de donnée [Résolu]
Ali_usto
- Messages postés
- 135
- Date d'inscription
- lundi 20 novembre 2006
- Dernière intervention
- 11 octobre 2010
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
A voir également:
- Code source delphi base de données
- Locate delphi - Meilleures réponses
- Delphi adotable locate - Meilleures réponses
- Delphi / Pascal : Delphi base de données sql jointures dbgrid calculs - CodeS SourceS - Guide
- Insertion de résultats d'un code dans une base de donnée par une requete SQL. ✓ - Forum - Visual Basic
- Code source Delphi pour calculatrice en polonaise inverse ? ✓ - Forum - Delphi / Pascal
- Delphi / Pascal : Creer une base de donnée - CodeS SourceS - Guide
- Delphi / Pascal : Access avec tadotable (base de données) - CodeS SourceS - Guide
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
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- 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
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- 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
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 11
- Date d'inscription
- dimanche 26 mars 2006
- 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
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 446
- Date d'inscription
- vendredi 7 novembre 2003
- Dernière intervention
- 8 octobre 2008
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.