Rechercher ds une table avec un datetimepicker
Soyez le premier à donner votre avis sur cette source.
Vue 10 208 fois - Téléchargée 2 480 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...
Enjoy
Christophe
http://membres.lycos.fr/annmysql/
--------------------------------------------------------------------
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
- Rechercher ds une table avec un datetimepicker
- Rechercher ds une table avec evenement onchange - Codes sources - Delphi / Pascal (Base de Donnees)
- Insérer des données d'un champ de formulaire ds une table - sqlserver - Codes sources - ASP / ASP.NET (Base de données)
- Recherche dans deux tables access en sql ✓ - Forum - Visual Basic 6
- Recherche dans 4 table mysql ✓ - Forum - PHP
- Simplification de code pour effectuer une recherche dans une table ✓ - Forum - Visual Basic 6
Commentaires
mytable1.sql.text:='select *from matable where date='+datetostr(datatimepicker1.date;
Ravi de l'apprendre ..
Christophe
Un bouillonnais
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.