VBA obtient des lignes de sortie DBMS depuis la connection ADODB

J'ai écrit un code qui insère datatables Excel dans une table temporelle. J'appelle ensuite une procédure stockée pour exécuter et charger ces données sur des tables réelles. Je dois pouvoir returnner l'état ou les erreurs à l'user final.

La procédure stockée met l'état dans le dbms_output.put_line, mais je n'ai pas compris comment saisir cela.

J'ai des scripts perl qui le font, mais j'essaie de le convertir en une feuille de calcul pour être plus largement utilisé. Les scripts perl ont ces appels:

appel sqlplus user / mot de passe dbms_output.enable (1000000); définir serveroutput sur appel xxxx ();

• Erreur d'erreur de type lors de l'exécution d'une requête avec une valeur décimale dans ADODB.Parameter typescript adNumeric
• Appeler une autre macro de text objectStream.Write dans ma macro ne fonctionne pas
• insérez datatables d'un file Excel vers un autre utilisant ADODB
• L'erreur VBA SQL alter table après l'ajout d'une colonne unique
• Erreur de connection Excel .xlsx VBA ADODB lors de l'ouverture du file from sharepoint

Je ne sais pas comment écrire cela dans VBA. C'est ce que je fais avec succès pour appeler la procédure:

Dim connection As ADODB.connection Set connection = New ADODB.connection Dim cmd As ADODB.Command Set cmd = New ADODB.Command strCon = "Driver={Microsoft ODBC for Oracle}; " & _ "CONNECTSTRING=(DESCRIPTION=" & _ "(ADDRESS=(PROTOCOL=TCP)" & _ "(HOSTxxx)(PORT=xxxx))" & _ "(CONNECT_DATA=(SERVICE_NAME=xxx))); uid=userID; pwd=pwd;" connection.Open (strCon) With cmd .ActiveConnection = connection .CommandText = "procedure name" .CommandType = adCmdStoredProc .CommandTimeout = 0 .Execute End With 

connection.Close

Je dois simplement récupérer ce message s'il réussissait ou que ce soit par erreur.

Merci

• login ADODB à un file Excel sur SharePoint
• Accéder au classur Excel via ADODB – Mutiple users en même time
• Requête QTP VB pour sélectionner datatables «alphanumériques» d'excel
• ADODB.Connection undefined
• adodb. Question d'interface