ADO調(diào)用存儲過程之后 RecordCount=-1 解決辦法

盜夢

問題描述：
       今天 roych斑竹 發(fā)了一些有關(guān)ADO的貼。其中有用Command調(diào)用存儲過程的示例。
我嘗試了一下�？梢苑祷赜涗浖�。
       不過，這個記錄集有些不一樣：RecordCount=-1。而且使用rs.MoveLast方法也會報錯。好像是沒有游標導(dǎo)致的。
       我再把這個記錄集賦給一個子窗體，就報錯了。
      

解決方法：
       再通過Command對象打開一次記錄集即可。        

1. Dim rs As New ADODB.Recordset
   
2. Dim Cmd As New ADODB.Command
   
3.         
   
4. Cmd.ActiveConnection = Conn '設(shè)置連接
   
5. Cmd.CommandText = "execute 存儲過程名 '參數(shù)1','參數(shù)2'"
   
6. 
   
7. 'Set rs = Cmd.Execute  '此操作，不能獲取記錄集的RecordCount的值，永遠只能返回-1
   
8. '方法二：用Cmd打開記錄集
   
9. Cmd.Execute
   
10. rs.Open Cmd, , adOpenKeyset, adOpenKeyset    '此方法可以獲取 RecordCount

復(fù)制代碼

        這樣處理之后，可以返回RecordCount，也可以將記錄集賦給子窗體
        PS:這里也引出一個東西。我們打開記錄集Open方法，還可以通過Command對象打開

注：roych斑竹的貼：【新手進階】之十八：淺談ADO之Command（下）
       http://ctxi.cn/thread-119044-1-1.html

roych

謝謝關(guān)注，當時只測試了單個數(shù)值條件的存儲過程。誠如你所說，確實不能使用RecordCount屬性。不打開記錄集的時候，我們還是可以用MoveNext方法，以及EOF屬性來執(zhí)行循環(huán)的。

1. Sub showpro()
   
2. Dim rst As New ADODB.Recordset
   
3. Dim cmd As New ADODB.Command
   
4. cmd.ActiveConnection = CurrentProject.Connection
   
5. cmd.CommandText = "execute mypro 1"
   
6. Set rst = cmd.Execute
   
7. Do Until rst.EOF
   
8. Debug.Print rst(1)
   
9.     rst.MoveNext
   
10. Loop
    
11. End Sub

復(fù)制代碼

cfedf

想問一下樓主，這個測試是怎么做，在哪里做？需要在窗體建立command按鍵然后在里面寫代碼，是這個過程嗎？

盜夢

cfedf 發(fā)表于 2014-11-12 14:00
想問一下樓主，這個測試是怎么做，在哪里做？需要在窗體建立command按鍵然后在里面寫代碼，是這個過程嗎？
...

除了弄按鈕，還需要在SQL數(shù)據(jù)庫中創(chuàng)建一個存儲過程以供測試

盜夢

roych 發(fā)表于 2014-11-12 13:56
謝謝關(guān)注，當時只測試了單個數(shù)值條件的存儲過程。誠如你所說，確實不能使用RecordCount屬性。不打開記錄集 ...

主要是想把記錄集賦給子窗體，才會發(fā)現(xiàn)這個錯誤

roych

盜夢 發(fā)表于 2014-11-12 14:11
主要是想把記錄集賦給子窗體，才會發(fā)現(xiàn)這個錯誤

當時以access來測試，而且只是用單值，沒考慮那么周全。不管怎么說，發(fā)現(xiàn)問題，一起研究下對大家都是有幫助的。

roych

cfedf 發(fā)表于 2014-11-12 14:00
想問一下樓主，這個測試是怎么做，在哪里做？需要在窗體建立command按鍵然后在里面寫代碼，是這個過程嗎？
...

也可以在模塊里建立，然后Call它。

盜夢

roych 發(fā)表于 2014-11-12 14:18
當時以access來測試，而且只是用單值，沒考慮那么周全。不管怎么說，發(fā)現(xiàn)問題，一起研究下對大家都是 ...

研究了一個上午。應(yīng)該是游標的問題

zhuyiwen

你定義連接的游標試試

呵呵

盜夢

zhuyiwen 發(fā)表于 2014-11-12 15:09
你定義連接的游標試試

呵呵