Recherche dans une base de donnée [Résolu]
Ali_usto
Membre Dernière intervention
11 octobre 2010
- - Dernière réponse :
cs_cantador
Modérateur Dernière intervention
27 mars 2018
- 26 mai 2007 à 18:42
- Messages postés
- 135
- Date d'inscription
- lundi 20 novembre 2006
- Statut
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
A voir également:
- Locate delphi
- Adotable locate delphi - Meilleures réponses
- Adotable delphi - Meilleures réponses
- Recherche dans une base de données en ado - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Moteur de recherche dans une base de données - Codes sources - ColdFusion (E-Commerce)
- 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
133 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
personne.locate('Nom;Prenom',VarArrayOf([RechNom,RechPrenom)],[]);
cantador
cantador
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
133 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Statut
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
133 internautes nous ont dit merci ce mois-ci
- Messages postés
- 11
- Date d'inscription
- dimanche 26 mars 2006
- Statut
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
133 internautes nous ont dit merci ce mois-ci
- Messages postés
- 446
- Date d'inscription
- vendredi 7 novembre 2003
- Statut
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut