Question

VB怎样查询数据库里的记录有多少条？

有一个command 有一个text 当点击command时 text显示出来结果 ACCESS数据库就在工程当前文件夹里 名字是AFC

Answer 1

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
Private Sub Command1_Click()
db.Open "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=AFC.mdb;Jet OLEDB:Database Password="
SQL = "select * from 表1"
rs.Open SQL, db, 1, 3
Text1.Text = rs.RecordCount
rs.Close: db.Close
Set rs = Nothing
Set db = Nothing
End Sub
'注意，表1更改为你需要的表

Answer 2

ok

Answer 3

主要是你不用调用数据库 说是说不清楚的