Bonjour tout le monde,
Je suis entrain de m’initier aux strored procedure en access. Pour ce faire, j’ai essaye avec success l’exemple de code sur le lien suivant: http://support.microsoft.com/kb/202116
Mais je me suis rendu compte que je pouvais obtenir le meme resultat en passant par la function ci dessous que j’ai ecrite.
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60 Sub SubstitueStoredProc(prmCity As String) 'cette procedure retourne pour une ville donnee: _ Customer ID _ Company Name _ Contact Name. ' j'utile la table Customers de la DB Northwind 2003. Dim Cn As ADODB.Connection Dim rst As ADODB.Recordset Dim strSQL As String Set Cn = Application.CurrentProject.Connection Set rst = CreateObject("ADODB.recordset") strSQL = "Select * From Customers where City = " & Chr(34) & prmCity & Chr(34) 'Ouvrir le recordset. With rst .Source = strSQL .ActiveConnection = Cn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open , , , , adCmdText End With 'Parcourir le recordset. If rst.EOF <> True Then Do While rst.EOF <> True Debug.Print rst(0), rst(1), rst(2) rst.MoveNext Loop End If 'Liberer la memoire. rst.Close Cn.Close Set rst = Nothing Set Cn = Nothing End Sub Sub Call_SubstitueStoredProc() 'Appeler la procedure rstProc() avec pour arguments "London". Call SubstitueStoredProc("london") 'ceci me donne les memes resultats que la fct RSFromParameterQuery sur le lien _ http://support.microsoft.com/kb/202116. End Sub
Alors j’aimerais quels sont les advantages fondamentaux des Stored Procedures en general. Et dans le cas de mon exemple, quelle est la voie recommendee ma function ou l’exemple du lien.?
Merci d’avance de votre reponse.
Cordiallement,
Boner.
Partager