1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Base de Donnees
  5. Rechercher ds une table avec un datetimepicker

Rechercher ds une table avec un datetimepicker

Soyez le premier à donner votre avis sur cette source.

Vue 10 638 fois - Téléchargée 2 581 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;

Conclusion :


Enjoy

Christophe

http://membres.lycos.fr/annmysql/
Télécharger le projet

Codes Sources

A voir également

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

Ravi de l'apprendre ..

Christophe
Un bouillonnais
Signaler
Messages postés
49
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
29 novembre 2010
Merci

cette source resoud mon problème
S'inscrire maintenant

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.

Du même auteur (cs_jimmy69)