VB 資料庫常用指令
宣告變數:Dim 變數 As 資料型態 Ex: Dim rs1, rs2, rs3 As Recordset, Dim da1, da2 As Date
以輸入盒輸入資料
Ex: da1 = InputBox("輸入起始日期(格式: 1999/9/1)" ( 取得資料為字串型) 資料轉型函數: da1 = CDate(da1)
變數給值
物件變數:Set dbs = CurrentDb,
Set rs1 = dbs.OpenRecordset("操性成績總表") 一般變數:i =1, na = “xxxx”
註解:Rem Me![dispmsg].SetFocus,
或在指令開頭加單引號:’da1 = CDate(da1) 宣告區段:
With 物件名 ……… End With, 夾在區段內之物件名稱可以省略 Ex: With rs1
.Index = "學號" (原來之表示法為 rs1.index ="學號") End With
迴圈
1. 計數迴圈: For ……….. Next
2. 條件迴圈: Do While 條件式 ……. Loop 3. 條件迴圈: While 條件式 ……. Wend 4. 搭配資料表
Do While Not .EOF() |
|
Exit Do (強制跳出迴圈) |
.MoveNext (移至次筆記錄) |
Loop
條件判斷:1. If 條件式 Then …….. EndIf 2. If 條件式 Then
| Else | EndIf
3. Select Case 狀況變數
Case 狀況值 1 Case 狀況值 2 Case 狀況值 3 |
End Select 開啟資料庫:
1. 指向已開啟之資料庫:Set db = CurrentDb
2. 指向未開啟之資料庫:Set db = OpenDatabase(“含路徑之資料庫名稱”) 開啟資料表:
Set rs = db.OpenRecordset(“資料表名稱”) 關閉資料表:rs.Close
開啟索引表:rs.Index = “索引表名稱”
移動記錄指標:次筆 .MoveNext 上筆 .MovePrevious 第一筆 .MoveFirst 最末筆 .MoveLast
搜尋記錄(未搭配索引表): Find (條件式)
搜尋記錄(搭配索引表): rs.Seek “=”, 條件值 (鍵值欄位之值) rs.Seek “=”, 條件值 1, 條件值 2 (兩個鍵值欄位) If .NoMatch Then (未找到合乎條件之記錄)
If Not .NoMatch Then (找到合乎條件之記錄) 新增一筆空白記錄: rs.AddNew …… rs.Update 編輯記錄: rs.Edit ……… rs.Update
刪除記錄: rs.Delete
取出欄位資料: na = rs![“欄名”], 或是 na = rs(“欄名”),na = rs(i) (第 i 欄) 資料寫入欄位:rs![“欄名”] = 變數 (或是欄名、運算式等)
rs(“欄名”) = 變數 rs(i) = 變數
須搭配rs.Update 寫回資料庫