Article View: free.it.visual-basic
Article #3986Re: DEFI : Editer un �tat datareport en r�cup�rant une date dans un formulaire
From: Clive Lumb
Date: Tue, 18 Dec 2001 10:41
Date: Tue, 18 Dec 2001 10:41
58 lines
3289 bytes
3289 bytes
Cr�er une command dans le DataEnvironment (DE1 dans mon cas)
Voici la mienne.
No de la commande: Essai,
Connexion: ReadInventory (nom de ma connexion)
Source de donn�es SQL (utiliser le g�n�rateur SQL)
SELECT WS_Name, MAC_Address, Date_Last_Updated FROM T_WS_Main WHERE
(Date_Last_Updated >= ?) ORDER BY WS_Name
Maintenant aller dans l'onglet "Param�tres"
Mettre un nom plus parlant pour le "?" (dans mon cas R_Date)
Changer le type de donn�es H�te en Date(VT_Date)
NOTE: Il y a un bug qui RAZ les types de donn�es si on modifie la cha�ne SQL
par la suite, donc � refaire..
Maintenant dans ton code:
Dim MyDE as New DE1
Dim MyDate As Date
MyDate = "01/12/01" '(ou recuperer de ton textbox)
With MyDE
If .rsEssai.State <> 0 Then .rsEssai.Close ' fermer le recordset
d'abord, evite des probs avec le DataReport qui affiche
'toujours la premi�re requ�te.
.Essai MyDate
Load Nom_Du_DataReport
Nom_Du_DataReport.Show vbModal
End With
"jc" <jean_claude.mourlot@libertysurf.fr> wrote in message
news:9vfj3e$11c$1@news2.isdnet.net...
> Je veux que mon �dition n'imprime que les enregistrements r�pondant � un
> crit�re de date fournit dans un controltext d'une feuille formulaire du
> projet. je ne sais pas comment je peux affecter la requete SQL integrant
> cette date � la propri�t� commandtext du dataenvironnement.
> Je souhaitais affecter cette requ�te � la propri�t� commandText de la m�me
> mani�re qu'il est possible de le faire avec un controle ADODC et sa
> propri�t� RecordSource :
> *MaRequete = "SELECT NOM_NETBIOS as `SUBDIVISIONS`, `DATE`,
> SUM(DUREE_CONNEXION) AS `DUREE DE CONNEXION` From
CONNEXION
> GROUP BY NOM_NETBIOS, `DATE` HAVING `DATE` >= #" & date_select
&
> "# ORDER BY `DATE` asc ,NOM_NETBIOS"
> *ADODC.CommandType = adCmdText
> *ADODC.RecordSource = MaRequete
> *ADODC.Refresh
> Je m'en remet apr�s une semaine de recherche infructueuse � la source
> in�puisable d'informations de la communaut�.
> Merci au bienfaiteur qui me mettra sur la voie...
> Jean-Claude
>
>
Technical Details
Message-ID:
<O5OWlC7hBHA.1012@tkmsftngp03>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!hub1.nntpserver.com!nntp-relay.ihug.net!ihug.co.nz!newsfeed00.sul.t-online.de!t-online.de!tkmsftngp01!tkmsftngp03References:
<9vfj3e$11c$1@news2.isdnet.net>Show Full Headers
Complete Article Headers
X-Google-Language: FRENCH,ASCII X-Google-Thread: f94ee,5098c2941daaffdb X-Google-Attributes: gidf94ee,public X-Google-Thread: f6b7b,5098c2941daaffdb X-Google-Attributes: gidf6b7b,public X-Google-Thread: 111825,5098c2941daaffdb X-Google-Attributes: gid111825,public X-Google-ArrivalTime: 2001-12-18 02:43:03 PST From: "Clive Lumb" <clumb@free.fr> References: <9vfj3e$11c$1@news2.isdnet.net> Subject: Re: DEFI : Editer un �tat datareport en r�cup�rant une date dans un formulaire Date: Tue, 18 Dec 2001 11:41:26 +0100 Lines: 60 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: <O5OWlC7hBHA.1012@tkmsftngp03> Newsgroups: free.it.visual-basic,microsoft.public.fr.vb,microsoft.public.fr.vstudio NNTP-Posting-Host: pry.hosts.sediver.fr 194.183.199.4 Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!hub1.nntpserver.com!nntp-relay.ihug.net!ihug.co.nz!newsfeed00.sul.t-online.de!t-online.de!tkmsftngp01!tkmsftngp03