[發問] 請問如何取得資料庫總筆數

請問以下程式需如何修改
才能取得資料庫總筆數
感謝您
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

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

2^#

發表於 2010-10-10 16:24 | 只看該作者

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

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

3^#

發表於 2010-10-11 00:42 | 只看該作者

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

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

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

4^#

發表於 2010-10-11 08:42 | 只看該作者

回復 3# et5323

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

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

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

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

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

5^#

發表於 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 程序员参考

TOP

ltc