【正文】
Optimistic Call 顯示信息 End Sub ‘顯示信息過程 Public Sub 顯示信息 () If = True And = True Then Call 清除 Else = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) End If End Sub ‘清除信息過程 Public Sub 清除 () = = = = = = = = = = = End Sub 查看記錄中的第一條、下一條、上一條、最后一條,代碼類似,以第一條為例,代碼如下: Private Sub Cmdbfir_Click() 39?;?Excel VBA 的數(shù)據(jù)庫訪問技術(shù)的探究 李娜 1 武春杰 2 ( 1. 海軍蚌埠士官學(xué)校 計(jì)算機(jī)教研室,安徽 蚌埠 233012; ,山東 煙臺(tái) 264000) 摘 要 采用 Excel 自帶的 VBA 編程環(huán)境設(shè)計(jì)程序代碼,利用 ADO 技術(shù)訪問 Access 數(shù)據(jù)庫,實(shí)現(xiàn)了數(shù)據(jù)的查詢、添加、刪除、更新等操作。第一條記錄 If = True And = True Then Exit Sub Else Call 顯示信息 End If End Sub 查詢記錄、添加記錄、刪除記錄、更新記錄等操作代碼類似,以查