Discussion :

[DPhBxl]

Bonjour,

Voici un code VBA pour démarrer une STORED PROCEDURE placée sur un serveur SQL externe.
Ce code est de l'ADO et ne fonctionne pas.

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
Sub  ExecuteStoredProc()
 
    Dim dbs As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strSQL As String
 
    dbs.ConnectionString = "DSN=DBName"
    dbs.Open
 
    strSQL = "EXEC StoredProcedureName"
    Set rst = dbs.Execute(strSQL)
 
    rst.Close : Set rst = Nothing 
    dbs.Close : Set dbs = Nothing
 
End Sub

Pourriez-vous corriger ce code et surtout me donner l'équivalent en DAO ?

Merci,

DPhBxl

[DPhBxl]

J'ai trouvé pour la version ADO
En fait il y a plus simple...

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub ExecuteStoredProc()
 
    Dim Cmd As New ADODB.Command
 
    Cmd.ActiveConnection = "DSN=bdName"
    Cmd.CommandText = "spName"
    Cmd.CommandType = adCmdStoredProc
    Cmd.Execute
 
End Sub

Reste à trouver pour le DAO