🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #3986

Re: DEFI : Editer un �tat datareport en r�cup�rant une date dans un formulaire

#3986
From: Clive Lumb
Date: Tue, 18 Dec 2001 10:41
58 lines
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!tkmsftngp03
References: <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