Soyez le premier à donner votre avis sur cette source.
Vue 10 842 fois - Téléchargée 2 620 fois
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;
15 mars 2015 à 15:15
mytable1.sql.text:='select *from matable where date='+datetostr(datatimepicker1.date;
25 nov. 2006 à 21:30
Ravi de l'apprendre ..
Christophe
Un bouillonnais
22 nov. 2006 à 21:29
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.