Die Rückgabe von Werten aus einer pass-through Abfrage per VBA

Habe ich VBA-code, um eine Abfrage ausführen, die in SQL-Server 2008. Es läuft wunderbar und zeigt die Tabelle, die ich brauche. Der code, der dies tut, ist hier:

Set db = CurrentDb
Set qdf = db.QueryDefs("MyStoredProcedure")

qdf.SQL = "exec [WCNS_Ops].[dbo].MyStoredProcedure [plus a bunch of parameters]"   
DoCmd.OpenQuery "MyStoredProcedure"

zeigt diese Tabelle:

Die Rückgabe von Werten aus einer pass-through Abfrage per VBA

Meine Frage ist: Wie kann ich programmatisch zurück, diese Werte VBA-code ohne Anzeige der Tabelle?

InformationsquelleAutor Speed | 2011-02-09
  1. 3

    Folgende code ist ungetestet, aber sollte Euch schon in die richtige Richtung: 

    Set db = CurrentDb

Set qdf = db.QueryDefs("MyStoredProcedure")
qdf.ReturnsRecords = True
qdf.SQL = "exec [WCNS_Ops].[dbo].MyStoredProcedure [plus a bunch of parameters]"  

With qdf.OpenRecordset(dbOpenSnapshot)  'could also be dbOpenDynaset, etc. '
    Do Until .EOF
        Debug.Print !firstid
        Debug.Print !lastid
        .MoveNext
    Loop
End With
    • Funktionierte perfekt. Ich danke Ihnen so sehr.
    InformationsquelleAutor mwolfe02
  2. 1

    Alles, was Sie tun müssen, ist, die Abfrage auszuführen und legen Sie die Ausgabe in ein recordset. Aus der Spitze von meinem Kopf, so etwas wie dieses

    Dim dbCon as new ADODB.Connection
Dim rst as new ADODB.Recordset
Dim cmd as new ADODB.Command

dbCon.ConnectionString=”Your Connection String”
with cmd
    .comandtype=adCmdStoredProc
    .commandtext=”Your SP name”
    .Parameters.Append .CreateParameter("@Pram1", adVarChar, adParamInput, 50, “WhatEver”)
    .ActiveConnection=dbCon
    .NamedParameters = True
    Set rst = .Execute
end with

with rst
    if .EOF=false then
        myVar=!Column1
    end if
end with

rst.close
dbcon.close
set cmd=nothing
    InformationsquelleAutor Kevin Ross
Schreibe einen Kommentar