VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在取得数据库之数据前先計算数据总数
发表评论(0)作者:, 平台:, 阅读:10494, 日期:2000-04-02
主題: 在抓取資料庫之資料前先計算資料總筆數

來源:Peter Chyan

资料整理:影子 VB爱好者乐园 yingzi007.126.com





Sub Form1_Load()

Dim db As Database

Dim ds As Snapshot

Dim iNum As Integer '總筆數

Dim wsql As String 'SQL字串


wsql = "Select Count (*) from Authors Where AU_ID > 10"

Set db = OpenDatabase("c:\vb\biblio.mdb")

Set ds = db.CreateSnapshot(wsql)

iNum = ds(0)

MsgBox "總筆數為 " + Str$(iNum)

End Sub


※附帶說明:在剛剛您選擇了【個個擊破】的選單時,在【個個擊破】下方的說明頁中,出現的【...... 目前共有 XX 筆,其他...... 敬請密切期待......】就是使用這個方法做的,只不過稍微改了一下,改成 ASP + ADO,程式碼如下:

<%

sql = "select count(*) from question;"

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gbook.mdb")

Set rs=Conn.Execute(sql)

%>



目前共有 <%=rs(0)%> 筆,其他...... 敬請密切期待......




怎麼樣,是不是一樣呢,只差在一個是 ADO,一個是 DAO 而已!