143.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

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


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 而已！