標題: [發問] 請問如何取得資料庫總筆數 [打印本頁]

---

作者: ltc    時間: 2010-10-10 11:55     標題: 請問如何取得資料庫總筆數

請問以下程式需如何修改
才能取得資料庫總筆數
感謝您
    Dim MYCON As ADODB.Connection
    Dim MYRS As ADODB.Recordset
    Set MYCON = New ADODB.Connection
    MYCON.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 資料庫
    Set MYRS = New ADODB.Recordset
   
    With MYRS
        .Source = "SELECT * FROM DATA"
        .ActiveConnection = MYCON          '指定所使用的Connection物件
        .Open
    End With
   
    MsgBox 資料庫總筆數
   
    MYRS.Close
    Set MYRS = Nothing
    MYCON.Close
    Set MYCON = Nothing

---

作者: ltc    時間: 2010-10-10 16:24

不好意思，再請問
MsgBox 現在位於資料庫第幾筆資料
麻煩各位大大

---

作者: et5323    時間: 2010-10-11 00:42

本帖最後由 et5323 於 2010-10-11 11:18 編輯

MsgBox "資料庫總筆數=" & MYRS.recordcount

---

作者: ltc    時間: 2010-10-11 08:42

回復 3# et5323


    您好，感謝您的回答
我使用了 MsgBox MYCON.RecordCount
結果程式回應下列訊息
執行階段錯誤'3001'
引數中可能發生類型、超過可接受的定義範圍、或與其他引數發生衝突。

如果使用 MsgBox MYRS.RecordCount
會傳回 -1

如果使用 MsgBox MYRS.Fields("內容")
會傳回 正確資料

仍然無法取得 總筆數及目前位置

---

作者: et5323    時間: 2010-10-11 11:31

两个方法:
1.
With MYRS
        .CursorLocation = adUseClient     '设置游标服务的位置
        .Source = "SELECT * FROM DATA"
        .ActiveConnection = MYCON          '指定所使用的Connection物件
        .Open
    End With
    MsgBox MYRS.RecordCount
2.
MYRS.Open "SELECT * FROM DATA", MYCON, 1, 1
    MsgBox MYRS.RecordCount

相关内容看:
Microsoft ADO 程序员参考

---

作者: ltc    時間: 2010-10-11 23:43

回復 5# et5323


感謝您的回答
我用第一個方法OK，傳回正確的103筆
第二個方法傳回15筆(錯誤)

謝謝您給的連結

---

作者: cai168    時間: 2010-11-28 10:03

thank you你的回答學習了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)