说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在抓取資料庫之資料前先計算資料總筆數 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
在抓取資料庫之資料前先計算資料總筆數 -VB资料


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,程式碼如下:


目前共有 筆,其他...... 敬請密切期待......


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



备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘