Appel a une procedure stockée en vba [À faire]

**bidou** · 14/03/2003, 15h28

il y a confusion dans ton code (et peut être dans ton esprit) camarade.
ce doit être

Code :

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

1
2
3
 
Cmd("@Criteria")= Txt_Criteria.Text
Cmd.Execute

**Mouse** · 14/03/2003, 15h29

Je n'ai jamais reussi a faire ce que tu veux faire
Mais si jamias tu trouves, envoie moi un mail ET mais un post sur le forum.

**The_Nail** · 17/03/2003, 11h05

Salut,

Mouse, je butte exactement au meme endroit que toi...impossible de faire :

Code :

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

1
2
3
4
5
 
Dim Req As ADODB.Recordset
...
    Set Req = Cmd.Execute
    Me.Lst_Resultat.RowSource = Req

il ya une imcompatibilité de type au niveau du rowsource de la listbox...

Ya pas un moyen de contourner le probleme? Ou une facon totalement differente de proceder?

**bidou** · 17/03/2003, 11h13

Set Me.Lst_Resultat.RowSource = Req
serai peut être mieux

**The_Nail** · 17/03/2003, 11h50

nop....il me dit qu'il y a "utilisation incorrecte de la propriété", et toujours au niveau du row source...

Sniff...

**Mouse** · 17/03/2003, 15h19

Avec Access, et VBA, il n'EST PAS POSSIBLE d'affecter directement le resultat d'un recordset a un listbox.

Me.listbox.rowsource attends du string, et non et un objet recordset

**The_Nail** · 17/03/2003, 15h30

Serieusement?
Affecter le resultat d'un recordset a un objet aussi utilisé et populaire qu'un listbox ne devrait pas poser autant de probleme....

Je trouve ca plutot decevant de la part de Microsoft. Ils nous vendent Access 2000 comme un outil revolutionnaire (et cher) capable de faire "facilement" du Client/Serveur avec SQL Server via les projet adp, et on s'apercoit en fait qu'on est vite limité (ca fait que 2 semaines que je bosse sous access)

Mouse, as-tu reussi a contourner le probleme? J'imagine que je ne suis pas le premier a vouloir alimenter un listbox par un recordset...

Merci tout de meme a tous ceux m'ont aidé.

**Mouse** · 17/03/2003, 15h41

Pour resoudre ton probleme, tu n'es pas obliger de passer par une procedure stockee...

Code :

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

1
2
3
4
Dim CodeSQl as string
CodSQL="SELECT [T-CLIENT].NOMC, [T-CLIENT].ADRESSEC1 FROM [T-CLIENT] WHERE [T-CLIENT].NOMC = ' " & Txt_Criteria.Text & "'"
 
Lst_Resultat.RowSource = CodeSQL

**The_Nail** · 17/03/2003, 16h00

En fait je voulais utiliser une proc. stockée dans le but de faciliter la gestion de toutes les requetes SQL de mon appli....je souhaitais pouvoir tout gerer depuis le server SQL.
Ta methode marche bien en tout cas.
Merci

**The_Nail** · 18/03/2003, 15h06

je sais que ca ne resoud pas vraiment mon probleme mais j'ai trouvé un lien interressant qui explique par un exemple précis l'utilisation d'une proc. stockée, une vue, ou une fonction sql depuis un projet access.adp.

Au cas ou ca interresserai quelqu'un, voici l'adresse :
http://<br /> http://support.micros...;q281870<br />

a+

**The_Nail** · 01/04/2003, 11h07

et non ce topic n'est toujours pas résolu...enfin presque.

En fait j'ai reussi à realiser l'appel à la procedure stockée et l'affectation du resultat correspondant dans une listebox de la maniere suivante :

Code :

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

1
2
3
4
5
 
    With Me.Lst_Resultat
        .RowSource = "exec Ps_Rec_Cli '" & Me!Txt_Criteria & "'"
        .Requery
    End With

Vous remarquerez que c'etait ridiculement anecdotique......

Bref, mon pb est resolu.

Par contre je fais toujours une grosse confusion concernant ADO : dans mon code VBA de mon projet Access, je n'utilise plus la méthode "ADODB.Connection". En effet, mes traitements ADO fonctionnent parfaitement sans utiliser de methode de connection (j'utilise directement les methodes ADODB.Command et ADODB.parameter)

Comment ce fait-ce?

Autre question : la portion de code ecrite ci-dessus est-elle de l'ADO?

merci d'eclairer ma lanterne sur ce sujet.

**bidou** · 01/04/2003, 13h36

tu utilises probablement des connections implicite, pour le confirmer il faudrait voir le code.
Si c'est le cas, il vaut mieux éviter car tu va créer autant de connection que de command.

**The_Nail** · 01/04/2003, 13h53

Cher Bidou,

Voici un exemple de code recurrent dans mon appli :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub btRemove_Click()
 
Dim Cmd As ADODB.Command
Dim prmStudentID As ADODB.Parameter, prmCourseID As ADODB.Parameter
 
   Set Cmd = New ADODB.Command
   Cmd.ActiveConnection = CurrentProject.Connection
   Cmd.CommandType = adCmdStoredProc
   Cmd.CommandText = "EnrollmentDel"
 
   Set prmStudentID = Cmd.CreateParameter("@StudentID", adInteger, adParamInput)
   Set prmCourseID = Cmd.CreateParameter("@CourseID", adInteger, adParamInput)
 
   Cmd.Parameters.Append prmStudentID
   prmStudentID.Value = Me!StudentID
   Cmd.Parameters.Append prmCourseID
   prmCourseID.Value = Me!lstCourses.Value
 
   Cmd.Execute
 
   Set Cmd = Nothing
   Set prmStudentID = Nothing
   Set prmCourseID = Nothing
 
 
    Call FillCoursesList
 
End Sub
 
----
 
Private Sub Form_Current()
    Call FillCoursesList
End Sub
 
----
 
Private Sub FillCoursesList()
 
    With Me.lstCourses
        .RowSource = "exec courseenrollment '" & Me!StudentID & "'"
        .Requery
    End With
 
End Sub

tu remarques qu'il n'y a aucun appel fait a la methode de connection ADO (par ex : Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open CurrentProject.Connection )

et pourtant mon projet access marche nikel!.......Est ce que je bosse correctement?
Est ce une connection implicite? Si oui, quels sont les problemes liés à ce type de connection?

merci

**bidou** · 01/04/2003, 14h19

non c'est une connection explicite puisque

Code :

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

Cmd.ActiveConnection = CurrentProject.Connection

Donc pour te répondre tu utilises la connection ADO de ton projet, ce qui est plutôt bien tant que la sécurité utilisateur n'est pas activé.

**The_Nail** · 01/04/2003, 14h26

Ok je commence à saisir .....

Merci beaucoup pour ton aide precieuse!

**Mouse** · 01/04/2003, 16h24

Alors la Howard je sais pas quoi dire,

J'ai cherche cela pendant des moi, et maintenant je suis navre par temps de simpliciter.
J'avais reussis a tout faire autrement, mais je suis bien content de savoir...

**The_Nail** · 01/04/2003, 16h44

Salut mouse,

c'est vrai que notre probleme commun etait affligeant de simplicité.
Au passage, j'ai trouvé la solution sur le site de support microsoft :

http://support.microsoft.com/default.aspx?scid=kb;en-us;304252

c'est une mine d'or d'information avec pleins de "how to" très clairs et très detaillé.
(exemple : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnapg/html/apgintro.asp )

Bon, je crois que je peux maintenant me permettre de passer ce topic en mode [RESOLU]

ypppppppppppppppppppiiiiiiiiiiiiiiii !

a+

Appel a une procedure stockée en vba [À faire]

VBA Access

Discussions similaires

Partager

Partager