[VB6 + Access] Problème avec des requêtes dans un moduleRésolu

Question

Bonjour &#224; tous!



Tout d'abord avant d'exposer plus en d&#233;tail mon probl&#232;me, j'aimerais
tout simplement savoir s'il &#233;tait possible d'effectuer des requ&#234;tes
dans un module.

Je demande cela car dans mon programme j'ai plusieurs forms dans
lesquelles j'effectue plusieurs fois les m&#234;me requ&#234;tes d'o&#249; l'int&#233;r&#234;t
de mettre celle-ci dans un module. Mais le probl&#232;me c'est que j'ai &#224;
chaque fois un message d'erreur dans le module au niveau de mon code de
requ&#234;te et je ne sais pas pourquoi. C'est d'autant plus bizarre que si
je fais un copier/coller de ce que j'ai dans mon module et que je le
copie dans mon form &#231;a marche nickel !!!

D'o&#249; ma question: peut-on faire des requ&#234;tes dans un module dans VB6?



Merci d'avance pour votre aide.

cs_wape · Accepted Answer

Bonjour,

Essaye avec :

MaForm.lst_serviceA.AddItem req_ent!LibService

o&#249; MaForm correspond au nom de la form qui contient la listbox lst_serviceA

wape

cs_frop01 · Answer

Salut,

Oui ! les modules, on s'en sert pour déclarer des variables des procédures et fonctions 

Donc on peut bien faire une fonction d'update, une autre pour les ajout... en passant des paramètres commes les noms des tables, champs ...

Mets ton code ici pour ananlyser l'erreur !!

PS: N'oubliez pas de spécifier VB6 ou VB.NET

NeT_SlipKnoT · Answer

Voil&#224; un exemple de code qui g&#233;n&#232;re une erreur dans mon module:



Public Sub ListService(req_ent)



    Call Fonctions.Connexion(cnx)



    Set req_ent = New Recordset

    req_ent.Open "select distinct LibService from
Service order by LibService", cnx, adOpenDynamic, adLockOptimistic

    req_ent.MoveFirst

    While req_ent.EOF = False

        lst_serviceA.AddItem req_ent!LibService

        req_ent.MoveNext

    Wend



End Sub



Et donc lorsque le programme passe par le code il g&#233;n&#232;re l'erreur "Un objet est requis" &#224; la ligne &#233;crite en bleu.

Dans mon form j'appelle mon module ainsi:



Call ListService(req_ent)



Voil&#224;, si tu pouvais m'aider &#231;a serait vraiment sympa de ta part...

cs_frop01 · Answer

Si Tu utilises ADODB alors

Public Sub ListService(req_ent as ADODB.RecordSet)

  Call Fonctions.Connexion(cnx)

Set req_ent = New ADODB.Recordset


-----------
Quel est le code dans Fonctions.Connexion(cnx) et puis quelles sont les déclarations de cnx (private ou public??)

NeT_SlipKnoT · Answer

Alors j'ai chang&#233; la 1&#232;re ligne et j'ai marqu&#233; comme t'as dit: Public Sub ListService(req_ent as ADODB.RecordSet) mais &#231;a ne change rien au probl&#232;me...



Voil&#224; mon code pour la fonction Connexion (qui se trouve dans le m&#234;me module intitul&#233; "Fonctions" et qui fonctionne tr&#232;s bien):



Public Sub Connexion(cnx)



    Dim RS As New ADODB.Recordset



    Set cnx = New ADODB.Connection  'connection &#224; la base

    cnx.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\Gestionnaire_de_licences.mdb"

  

    cnx.Open

    Set RS = New Recordset

    

End Sub



cnx est d&#233;clar&#233; dans le G&#233;n&#233;ral de mon form de cette fa&#231;on:



Dim cnx As New ADODB.Connection



J'esp&#232;re que t'arriveras &#224; m'aider...

NeT_SlipKnoT · Answer

Effectivement wape c'&#233;tait &#231;a... Il faut pr&#233;ciser le nom de la form devant. Merci pour ta r&#233;ponse.



Du coup &#231;a m'emb&#234;te devant le principe de mon module... En effet, mon
prog effectue ce qu'il y a dans le module dans 3 forms diff&#233;rentes. Je
voulais donc faire un module pour que je n'ai pas &#224; devoir taper le
m&#234;me code dans les 3 forms en question et faire appel &#224; la place &#224; un
module. Mais &#233;tant donn&#233; que dans le module il faut pr&#233;ciser le nom du
form avant le nom de la Listbox, on ne peux pas faire un module pour
les 3 forms...



Quelqu'un aurait une alternative &#224; mon probl&#232;me? C'est-&#224;-dire utiliser
le code d'un module pour trois froms diff&#233;rentes ou une autre astuce
pour ne pas &#224; avoir &#224; taper le m&#234;me code dans 3 forms.



Merci.

tof008 · Answer

Je ne vois vraiment pas comment tu peux faire ca, mais je dois avouer que je suis bien curieux de savoir comment tu pourrais faire....


(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

NeT_SlipKnoT · Answer

Pour l'instant personne ne semble avoir de solution... :-(

cs_wape · Answer

Boinjour,

Tu peux appeler le m&#234;me module depuis les 3 forms, en lui passant la form en question comme param&#232;tre. Par exemple :

Dans Form1

Private Sub Command1_Click()


Call MonModule(Me)


End Sub

Dans Form2

Private Sub Command1_Click()


Call MonModule(Me)


End Sub

Dans Form3


Private Sub Command1_Click()


Call MonModule(Me)


End Sub

Dans un module

Sub MonModule(oFrm As Form)


oFrm.lst_serviceA.AddItem req_ent!LibService


End Sub

N.B. Cet exemple part du principe que la listbox lst_serviceA existe dans les 3 forms...

wape

cs_wape · Answer

Re,

Et pour faire du traitement diff&#233;renci&#233; dans le module :

Sub MonModule(oFrm As Form)


Select Case oFrm.Name
Case "Form1"
   'Traitement pour Form1
   MsgBox "Je suis Form1"
Case "Form2"
   'Traitement pour Form2
   MsgBox "Je suis Form2"
Case "Form3"
   'Traitement pour Form3
   MsgBox "Je suis Form3"
End Select

End Sub

wape

[VB6 + Access] Problème avec des requêtes dans un module

10 réponses

Discussions similaires