SQL Serverストアドプロシージャを介してMS Accessにテーブルを返す

Question

私は50以上の列を持つMS Accessにテーブルを返そうとしており、行は0から5000まで変化する可能性があります。タイプ。

私はストアドプロシージャを実行でき、正常に動作します。データをMS Accessに戻すのに問題があります。

ストアドプロシージャコード：

ALTER PROCEDURE [dbo].[pJDB_Export] 
    (@dteFrom int, 
    @dteTo int, 
    @Veh nvarchar(80)) 
AS 
BEGIN 
    SET NOCOUNT ON; 

    DECLARE @stWhere VARCHAR(200) 

    SELECT DISTINCT [Case] 
    INTO #tmp 
    FROM data 
    WHERE [VEHICLE TYPE] = @Veh 
     AND (CY BETWEEN @dteFrom AND @dteTo) 

    SELECT DISTINCT * 
    FROM dbo.vdata_Export_V3_3_2 v 
    INNER JOIN #tmp t ON v.[CASE] = t.[CASE] 

MSアクセスコード：

Function Exec_pJDB_export(sqlConn as string) 
    Dim conn As ADODB.Connection 
    Dim cmd As ADODB.Command 

    Dim iFrom, iTo As Integer 
    Dim stv As String 
    iFrom = 1999 
    iTo = 2002 
    stv = "1 TO 2 TON TRUCKS (COMMERCIAL)" 
    Set conn = New ADODB.Connection 

    conn.Open "DSN=Cars" 
    conn.ConnectionString = sqlConn 
    Set cmd = New ADODB.Command 
    cmd.ActiveConnection = conn 
    cmd.CommandType = adCmdStoredProc 
    cmd.CommandText = "pJDB_export" 

    cmd.Parameters.Append cmd.CreateParameter("@dteFrom", adInteger, adParamInput, , iFrom) 
    cmd.Parameters.Append cmd.CreateParameter("@dteTo", adInteger, adParamInput, , iTo) 
    cmd.Parameters.Append cmd.CreateParameter("@vehicle", adVarChar, adParamInput, 80, stv) 

    cmd.Execute 
    conn.Close 

End Function 

Answer 1

execute method戻るrecordset object。あなたのレコードを含むのはこのオブジェクトです。次に例を示します。

Function Exec_pJDB_export(sqlConn As String) 
    Dim conn As ADODB.Connection 
    Dim cmd As ADODB.Command 
    Dim rs As ADODB.Recordset    ' ADO recordset object, for accessing records. 

    Dim iFrom, iTo As Integer 
    Dim stv As String 
    iFrom = 1999 
    iTo = 2002 
    stv = "1 TO 2 TON TRUCKS (COMMERCIAL)" 
    Set conn = New ADODB.Connection 

    conn.Open "DSN=Cars" 
    conn.ConnectionString = sqlConn 
    Set cmd = New ADODB.Command 
    cmd.ActiveConnection = conn 
    cmd.CommandType = adCmdStoredProc 
    cmd.CommandText = "pJDB_export" 

    cmd.Parameters.Append cmd.CreateParameter("@dteFrom", adInteger, adParamInput, , iFrom) 
    cmd.Parameters.Append cmd.CreateParameter("@dteTo", adInteger, adParamInput, , iTo) 
    cmd.Parameters.Append cmd.CreateParameter("@vehicle", adVarChar, adParamInput, 80, stv) 

    ' This line has changed. 
    Set rs = cmd.Execute() 


    ' Loops over the records. 
    Do Until rs.EOF 

     ' Display the contents of column one to the user. 
     MsgBox rs.Fields(0).Value 

     rs.MoveNext 
    Loop 



    rs.Close 
    conn.Close 
End Function 

クイック概要：

1. ファイルの終わりを意味EOF。あなたがすべてのレコードを見たときは本当です。
2. MoveNextに電話することを忘れないでください。そうでないとdoループは永遠に続きます。

rs.Fields(0).Valueは、ご希望の場合はrs.Fields("YourFieldName").Valueに変更できます。私は位置ではなく名前でフィールドを参照する方が簡単だと分かります。