VB控制ACCESS資料庫(新增.刪除.儲存.查詢.退出)COMMAND指令

以下按鈕COMMAND名稱都以Command1示範

以姓名欄位查詢

Private Sub Command1_Click()
searchstr$ = InputBox("請輸入姓名", "姓名查尋")
If searchstr$ = "" Then
reply = MsgBox("未輸入姓名", vbOKOnly, "錯誤訊息")
Exit Sub
Else
Data = "姓名='" & searchstr$ & "'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Data
End If
If Adodc1.Recordset.EOF = True Then
reply = MsgBox("找不到資料", vbOKOnly, "很抱歉找不到此筆資料")
Adodc1.Recordset.MoveFirst
End If
End Sub

新增資料

Private Sub Command1_Click()
reply = MsgBox("要新增資料?", vbOKCancel + vbQuestion, "新增資料")
If reply = vbOK Then
Adodc1.Recordset.AddNew
End If
End Sub

儲存資料

Private Sub Command1_Click()
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MovePrevious
Adodc1.Recordset.MoveNext
reply = MsgBox("資料已儲存", vbOKOnly, "儲存成功")
End If
End Sub

刪除資料

Private Sub Command1_Click()
Dim ret As Integer ' MsgBox的傳回值
' 顯示確認刪除的訊息對話方塊
Beep
ret = MsgBox("是否真的要刪除此筆資料", vbYesNo, "刪除資料")
' 確認刪除
If ret = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub

離開程式

Private Sub Command1_Click()
vale = MsgBox("真的要離開程式", vbOKCancel, "離開程式")
If 1 = vale Then
Debug.Print MsgBox("離開程式", vbOKOnly)
End
Else
Debug.Print MsgBox("不離開", vbOKOnly)
End If
End Sub

以上COMMAND按鈕常用指令使用前請確認VB表單已跟ACCESS資料庫鏈結成功

或資料庫鍊結路徑是否為正確.VB與ACCESS資料庫鍊結方式請參考以下文章

http://blog.xuite.net/eyestop.smw/00206/22102364