Rechercher ds une table avec un datetimepicker

Description

Rechercher ds une table avec un datetimepicker (Juin 2004)
--------------------------------------------------------------------

P'tit exemple qui montre comment on peut rechercher ds une table (sql serveur 2000) en utilisant
un composant (win32) datetimepicker.

Ce n'est qu'un exemple tres simple....

Tout est dans le .zip

Pour tester ce p'tit exemple chez vous :
----------------------------------------------

=> Commencer par créer une base de données (sous sql serveur)
=> ensuite, copiez coller le contenu du fichier .sql dans le query analyser
=> ensuite ouvrez Projet_calendar.dpr et construisez le chemin de connection.
=> compilez....

Ca devrait rouler...

Source / Exemple :


procedure TForm1.Button1Click(Sender: TObject);
begin
//envoit de la requete
adoQuery.sql.Clear;
ADOquery.sql.add ('SELECT id_table,nom, prenom, dateinserer FROM calendar where dateinserer = '''+DATETOSTR(DATETIMEPICKER.Date)+'''');
Adoquery.Open;
 // si le select est vide = true alors
if (ADOquery.IsEmpty = true)then
   begin
     form1.Caption:='La table est vide';
     showmessage('La table est vide pour la date du :' + ' ' + DATETOSTR(DATETIMEPICKER.Date));
     Windows.Beep(100,500); //beep
     Label3.caption:='0 Enregistrements'
   end
  
//sinon
   else
   begin
     form1.Caption:='Y''a quelque chose ds la table';
     //nombre de lignes ds dbgrid
     label3.caption := IntToStr(DBgrid.DataSource.DataSet.RecordCount)+' Enregistrements';
     showmessage('Enregistrement trouves dans la table pour la date du : '  + ' ' + DATETOSTR(DATETIMEPICKER.Date));
   end;

end;

Conclusion :


Enjoy

Christophe

http://membres.lycos.fr/annmysql/

Codes Sources

A voir également

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.