奇怪ADODB.recordset不能返回數(shù)據(jù)？

goodidea

下面是關鍵代碼，strSQL 為正確的T-SQL語句，在查詢分析器可得到正確的結果，但以下代碼不能返回任何數(shù)據(jù)，原因才哪里？

Public Sub sdfad()

   Dim rst As ADODB.Recordset

   Dim strSQL As String

   

        If rst Is Nothing Then

            Set rst = New ADODB.Recordset

            rst.CursorLocation = adUseClient

            rst.CursorType = adOpenStatic

            rst.LockType = adLockReadOnly

            rst.ActiveConnection = CurrentProject.Connection

            rst.CacheSize = 30

        End If

        

        If rst.state <> 0 Then

            rst.Close

        End If

        

        strSQL = "_RPT @warehouse_code='1001 ',@range_code='200412'"

        Set rst = CurrentProject.Connection.Execute(strSQL, 20)

        

        Debug.Print CurrentProject.Connection.Errors.Count   '結果為 0

        Debug.Print Err.number   '結果為0

        

        'rst.Open strSQL, CurrentProject.Connection '同樣的錯誤，沒有返回任何數(shù)據(jù)

        Debug.Print rst.state = ADODB.adStateClosed '結果為True

        Debug.Print rst.Fields.Count, "F"

        Debug.Print rst.RecordCount, "R" '提示對象是關閉的

        Do Until rst.EOF

            Debug.Print rst.Fields(0)

        rst.MoveNext

        Loop

        rst.Close

End Sub

goodidea

strSQL = "_RPT @warehouse_code='1001 ',@range_code='200412'"

_RPT 為一個正確的存儲過程名稱。

HG

用ado.command.execute即可解決!

goodidea

用以上代碼，卻正確返回另外一個存儲過程的結果集

但是對于這一存儲過程，用HG的方法一樣失敗。

郁悶....

阿羅

先按照存儲過程的參數(shù)順序改成一個簡化的怎么樣？例如：

Set rst = CurrentProject.Connection.Execute("_RPT '1001','200412'", 20)

goodidea

奇怪的很，無論怎么搞都不行，以下不帶任何參數(shù)的測試樣本，結果也是一樣，無返回值��！

CREATE DATABASE _TempDbForTest

gouse _TempDbForTest

gocreate procedure _prc_test_retrunRows

as

begincreate table #abc

( f int,

  d char (100)

)insert into #abc

select 2,'fadsfdsf'

union all select 30, 'dfdetchnzi 'select * from #abcdrop table #abcendgoexecute _prc_test_retrunRows

go

zhuyiwen

弄清了你的問題，呵呵

事實上，你的存儲過程產(chǎn)生了兩個記錄集，第一個是由語句：



insert into #abc

select 2,'fadsfdsf'

union all select 30, 'dfdetchnzi '

產(chǎn)生的。這個事實上是產(chǎn)生的一個空記錄集，無結果！

第二個是由語句：



select * from #abc

產(chǎn)生的。這個產(chǎn)生的含有兩條記錄的記錄集。

因此，用ADO訪問時應該是這樣的：



Sub Test()

   Dim rs1 As ADODB.Recordset, rs2 As ADODB.Recordset

   Set rs1 = CurrentProject.Connection.Execute("Exec _prc_test_retrunRows")

   Set rs2 = rs1.NextRecordset

   Debug.Print rs2.RecordCount    ' 返回2 正確的記錄集

End Sub

[此貼子已經(jīng)被作者于2005-1-17 21:02:00編輯過]

阿羅

nextRecordSet方法，真是精彩! 另：在storedProc中用set nocount on應該也有效果吧？

goodidea

難怪我有部分過程可以“正確”返回數(shù)據(jù)~~~

沒有想到Set Nocount On還有這個作用。

多謝zhuyiwen, 阿羅, Tmtony.

再次感謝！