OVH Cloud OVH Cloud

Dataenvironment

4 réponses
Avatar
JCB
Bonjour,
J'ai développé une application en VB 6.0 SP5 accédant à ube base de données
SQL SERVER 2000 et utilisant le concept du DataEnvironment.
Mon client m'ayant demandé de pouvoir ouvrir plusieurs fenetres
simiultanément à l'intérieur de l'application (Fenetre Maitre MDI et fenetres
ouvertes en MDIChild) je me heurte au problème suivant :

Une table (ou plusieurs) étant utilisée dans une première fenetre est
également utilisée dans une autre fenetres (besoin de consulter une
information par exemple). Lorsque l'utilisateur retourne à la première
fenetre le jeu d'enregistrement précédent et modifié par les critères de
visualisationb de la seconde fenetre.
Comment faire pour que le jeu d'enregistrement soit spécifique à chaque
fenetre sans etre obligé de déclarer les tables pour chaque fenetre dans le
DataEnvironment ?

Merci de votre aide.

JCB

4 réponses

Avatar
Clive Lumb
"JCB" a écrit dans le message de
news:
Bonjour,
J'ai développé une application en VB 6.0 SP5 accédant à ube base de


données
SQL SERVER 2000 et utilisant le concept du DataEnvironment.
Mon client m'ayant demandé de pouvoir ouvrir plusieurs fenetres
simiultanément à l'intérieur de l'application (Fenetre Maitre MDI et


fenetres
ouvertes en MDIChild) je me heurte au problème suivant :

Une table (ou plusieurs) étant utilisée dans une première fenetre est
également utilisée dans une autre fenetres (besoin de consulter une
information par exemple). Lorsque l'utilisateur retourne à la première
fenetre le jeu d'enregistrement précédent et modifié par les critères de
visualisationb de la seconde fenetre.
Comment faire pour que le jeu d'enregistrement soit spécifique à chaque
fenetre sans etre obligé de déclarer les tables pour chaque fenetre dans


le
DataEnvironment ?

Merci de votre aide.

JCB



Simple...

Pour chaque utilisation créer un nouvel objet (sans oublier de le detruire
après)

Sub MontrerListe
Dim MonDe as New Nom_de_mon_dataenvironment

MonDe.Nom_de_commande [Paramètres eventuelles]
With MonDe.rsNom_de_commande
.movefirst
etc.
End With
Set MonDe=Nothing
End Sub

Clive
Avatar
JCB
Merci,

Si j'ai bien compris il me suffit de déclarer sur chaque form :
Dim DataEnv as new DataEnvironment1
....
et de mettre l'instruction :
Set DataEnv = Nothing
dans l'évenement Unload de cette Form

Peut être est il judicieux d'attribuer un nom exclusif à chaque Form ?

Encore une fois merci

JCB

"Clive Lumb" a écrit :


"JCB" a écrit dans le message de
news:
> Bonjour,
> J'ai développé une application en VB 6.0 SP5 accédant à ube base de
données
> SQL SERVER 2000 et utilisant le concept du DataEnvironment.
> Mon client m'ayant demandé de pouvoir ouvrir plusieurs fenetres
> simiultanément à l'intérieur de l'application (Fenetre Maitre MDI et
fenetres
> ouvertes en MDIChild) je me heurte au problème suivant :
>
> Une table (ou plusieurs) étant utilisée dans une première fenetre est
> également utilisée dans une autre fenetres (besoin de consulter une
> information par exemple). Lorsque l'utilisateur retourne à la première
> fenetre le jeu d'enregistrement précédent et modifié par les critères de
> visualisationb de la seconde fenetre.
> Comment faire pour que le jeu d'enregistrement soit spécifique à chaque
> fenetre sans etre obligé de déclarer les tables pour chaque fenetre dans
le
> DataEnvironment ?
>
> Merci de votre aide.
>
> JCB

Simple...

Pour chaque utilisation créer un nouvel objet (sans oublier de le detruire
après)

Sub MontrerListe
Dim MonDe as New Nom_de_mon_dataenvironment

MonDe.Nom_de_commande [Paramètres eventuelles]
With MonDe.rsNom_de_commande
.movefirst
etc.
End With
Set MonDe=Nothing
End Sub

Clive





Avatar
Clive Lumb
"JCB" a écrit dans le message de
news:
Merci,

Si j'ai bien compris il me suffit de déclarer sur chaque form :
Dim DataEnv as new DataEnvironment1
....
et de mettre l'instruction :
Set DataEnv = Nothing
dans l'évenement Unload de cette Form

Peut être est il judicieux d'attribuer un nom exclusif à chaque Form ?




Même pas nécessaire, mais cela peut aider la lecture du code.

Clive
Avatar
JCB
Encore une fois merci.

JCB

"Clive Lumb" a écrit :


"JCB" a écrit dans le message de
news:
> Merci,
>
> Si j'ai bien compris il me suffit de déclarer sur chaque form :
> Dim DataEnv as new DataEnvironment1
> ....
> et de mettre l'instruction :
> Set DataEnv = Nothing
> dans l'évenement Unload de cette Form
>
> Peut être est il judicieux d'attribuer un nom exclusif à chaque Form ?
>

Même pas nécessaire, mais cela peut aider la lecture du code.

Clive