Dim strConn, strSQL As String
Dim myConn As OleDbConnection
Dim myCommand As OleDbCommand
Dim dr As OleDbDataReader
dim cont as integer
cont = 0
strsql = "select * from table"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "/db1.mdb"
myConn = New OleDbConnection(strConn)
myCommand = New OleDbCommand(strSQL, myConn)
myConn.Open()
dr=myCommand.ExecuteReader()
while dr.read()
CONT = CONT + 1
end while
dr.close()
myConn.Close()
response.write(CONT)
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。