Discussion :

[lnikolanta]

Bonjour,

j ai un petit soucis lors d'une requete sql passe a mon objet data environment.

En gros pour faire un test j ai cree trois bouton: test 1, test 2 et reset.
le code du bouton 1 doit mon renvoyer dans une Grid (dgJobSlits) le resultats d'une requete sql:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
DEnv.Commands("CmdFilter").CommandText = "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '04/06/2009' AND '25/06/2009' "
dgJobSlits.DataMember = "CmdFilter"
dgJobSlits.Refresh
DEnv.rsCmdFilter.Close
DEnv.rsCmdFilter.Open

Le bouton 2 doit me renvoyer un autre resultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
DEnv.Commands("CmdFilter").CommandText = "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '04/06/2009' AND '25/06/2009' AND WIDTH = 500"
DEnv.Commands("CmdFilter").Execute
 
dgJobSlits.DataMember = "CmdFilter"
dgJobSlits.Refresh
Label4.Caption = DEnv.Commands("CmdFilter").CommandText
DEnv.rsCmdFilter.Close
DEnv.rsCmdFilter.Open

Code du bouton reset, cense me redonner toutes les infos de la base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dgJobSlits.DataMember = "JobSlits"
dgJobSlits.Refresh
Label4.Caption = DEnv.Commands("CmdFilter").CommandText

Or mon soucis est que Si je fais test1 en premier, les resultats du bouton test2 seront ceux de test1. Et si je commence par cliquer sur test2, les resultats de test1 seront ceux de test2.
Le bouton reset semble marcher comme je le veux..

Avez vous une idee ?

Merci beaucoup

[jfdmagic]

bonjour,

On a une vie de notre côté et la nuit on dort alors soit patient, merci

pour revenir à ton problème, au hasard, tu n'aurais pas oublié ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DEnv.Commands("CmdFilter").Execute

dans le code du bouton 1...?


(je n'utiliserai pas cette syntaxe personnellement : ça ne vaut pas dire qu'elle est fausse hein)

Bonne continuation =)

[lnikolanta]

Désolé pour le up, c'est vrai j'aurais pu attendre, mais j'avais juste un peu peur que le sujet tombe dans l'oublie.

Concernant mes nuits, je dors très bien merci, mais je suis désolé que quand je travaille ici en Nouvelle Zélande, ça corresponde à vos nuits en France

Merci pour ta proposition, mais j'avais déjà essayé et ça ne fonctionne malheureusement pas. J'ai juste du oublié de réécrire cette ligne lors du copier-coller. D'autant plus que le soucis est vraiment bizarre puisque les deux filtres fonctionnent, mais une seule fois. C'est plus comme si il y avait une mémoire cache que je n'aurais pas réinitialisée ou quelque chose comme ça.

merci de ton aide en tout cas.

Quelqu'un connait un tuto sur les data environment ?

[Delbeke]

Peut être un refresh apres le open ?

[lnikolanta]

Salut,

je viens d'essayer le refresh apres le open, et ca ne marche toujours pas.. Est-ce que quelqu'un a une idee ?


Pleeeaaassseeee

[ProgElecT]

Je ne connais que très peu l'objet Data environnement, je l'ai trouvé très peu pratique au début de mon apprentissage de la gestion de BD, je suis passé tout de suite aux objets ADO.
Malgré tout, peut être que ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
ExecuteLaRequete "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '04/06/2009' AND '25/06/2009' "
End Sub
 
Private Sub Command2_Click()
ExecuteLaRequete "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '04/06/2009' AND '25/06/2009' AND WIDTH = 500"
Label4.Caption = Denv.Commands("CmdFilter").CommandText
End Sub
 
Sub ExecuteLaRequete(Requete As String)
Denv.rsCmdFilter.Close
Denv.Commands("CmdFilter").CommandText = Requete
Denv.Commands("CmdFilter").Execute
Denv.rsCmdFilter.Open
If dgJobSlits.DataMember <> "CmdFilter" Then dgJobSlits.DataMember = "CmdFilter"
dgJobSlits.Refresh
End Sub

Je n'ai pas trouvé les objets correspondant à ton Denv et donc je n'ai pas peu faire d'essais, le code proposé n'ai qu'une réflexion d'un enchainement qui me paraitrait logique transposé aux objets ADO.

[lnikolanta]

Bonjour,

ça marche, merci beaucoup c'est vraiment gentil...

j'ai un peu adapté ton code car apparement il ne pouvait pas fermé un élément déjà fermé ...

finalement ça donne ça et ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dgJobSlits.DataMember = "JobSlits"
dgJobSlits.Refresh
date1 = Format$(DTPicker_date1.value, DATEFORMAT)
date2 = Format$(DTPicker_date2.value, DATEFORMAT)
 
If DEnv.rsCmdFilter.State = 1 Then DEnv.rsCmdFilter.Close
'DEnv.Commands("CmdFilter").CommandText = "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '" & DTPicker_date1.value & "' AND '" & DTPicker_date2.value & "'"
DEnv.Commands("CmdFilter").CommandText = "SELECT * FROM slitter.jobslits WHERE JobDate BETWEEN '" & date1 & "' AND '" & date2 & "'"
 
dgJobSlits.Refresh
DEnv.Commands("CmdFilter").Execute
DEnv.rsCmdFilter.Open
If dgJobSlits.DataMember <> "CmdFilter" Then dgJobSlits.DataMember = "CmdFilter"
dgJobSlits.Refresh

merci vraiment beaucoup