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