Rechercher ds une table avec un datetimepicker

Soyez le premier à donner votre avis sur cette source.

Vue 10 157 fois - Téléchargée 2 452 fois

Télécharger le projet

Commenter

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;