Rechercher ds une table avec un datetimepicker

Soyez le premier à donner votre avis sur cette source.

Vue 10 842 fois - Téléchargée 2 620 fois

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

Ajouter un commentaire Commentaires
yahiaoui22 Messages postés 2 Date d'inscription lundi 2 mars 2015 Statut Membre Dernière intervention 17 mars 2015
15 mars 2015 à 15:15
salem pour moi la requte pour chercher une date sa marche pas
mytable1.sql.text:='select *from matable where date='+datetostr(datatimepicker1.date;
cs_jimmy69 Messages postés 778 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 27 novembre 2008 1
25 nov. 2006 à 21:30
salut salut,

Ravi de l'apprendre ..

Christophe
Un bouillonnais
kam_2006 Messages postés 49 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 29 novembre 2010
22 nov. 2006 à 21:29
Merci

cette source resoud mon problème

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.