返回列表 上一主題 發帖

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

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

請問以下程式需如何修改
才能取得資料庫總筆數
感謝您

    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

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

TOP

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

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

TOP

回復 3# et5323


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

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

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

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

TOP

两个方法:
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

回復 5# et5323


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

謝謝您給的連結

TOP

thank you你的回答學習了

TOP

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題