Rechercher ds une table avec un evenement onchange (Juillet 2004)
-------------------------------------------------------------------------------
P'tit exemple tout simple qui montre comment on peut
rechercher dans une table ici sql serveur 2000 avec un evenement onchange sur un edit.
Tout est dans le .zip
Pour faire tourner ce script :
--------------------------------
1 => Copiez et coller le fichier en .sql (repertoire sql) dans l'analyseur de requetes de sql serveur
2 => Tant que nous sommes sous sql serveur, inserez y des records ....afin de pouvoir tester ce p'tit prog
3 => Ouvrez le fichier projet_onchange.dpr
4 => Ensuite, parametrez votre connexion
5 => Compilez ca roule ...
Si vous deviez rencontrer un stress n'hesitez pas a m'en faire part...
Source / Exemple :
/*
Procedure stockee sous sql serveur
pour ceux qui ne savent pas ce qu'est une procedure stockee et leur avantange suivez ce lien
http://www.delphifr.com/code.aspx?ID=22175
CREATE proc RECHERCHER
@nom varchar(20)
as
select * from personnes where nom like @nom +'%' ORDER BY nom
procedure TFonchange.ErechercheChange(Sender: TObject);
begin
//CHANGE LE DATASOURCE POUR POINTER SUR LA GRILLE
datasource.DataSet := adorecherche;
with ADOrecherche do
begin
active := false;
//ENVOIT CONTENU DE ERECH.TEXT DS @NOM
parameters.parambyname('@nom').value := erecherche.text;
execproc;
active := true;
end;
end;
Conclusion :
Enjoy
Christophe
Http://membres.lycos.fr/annmysql/
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.