上一節我們部署了資料庫的連接VB數據保存到資料庫簡單嗎?主要還是掌握方法,這節我直接調用,就可以將數據保存到庫裡了,先看一下,我已在根目錄已創建了一個MDB資料庫,庫中有一個「用戶表」,表中有5個欄位,
打開上節課的工程,設計一個提交數據的窗體,
雙擊「保存」按鈕,進入單擊事件編寫代碼,
Private Sub Command1_Click() '「保存」單擊事件If OpenConn = 0 Then Exit Sub '判斷,上節已寫好的 OpenConn 函數過程,如果返回 0 ,那麼資料庫打開失敗了,則退出過程'如果打開成功Set Rs = New ADODB.Recordset '設置新記錄集類模塊Rs.Open "select * from 用戶表", Db, 1, 3 '打開記錄集 Rs.AddNew '新增記錄 Rs!姓名 = Text1.Item(0).Text '保存姓名到欄位 Rs!性別 = Text1.Item(1).Text '保存性別到欄位 Rs!電話 = Text1.Item(2).Text '保存電話到欄位 Rs!地址 = Text1.Item(3).Text '保存地址到欄位 Rs.Close '關閉記錄集Set Rs = Nothing '清除記錄集對象Call CloseConn '關閉資料庫MsgBox "保存成功", 64, "完成" '提示信息End Sub '結束事件過程
這樣數據就可以保存到庫中了。
另外有個事需要大家糾正一下,由於上節課模塊中聲明的兩個變量:
DimDb As New ADODB.Connection '聲明新的 ADO 連接類模塊Dim Rs As New ADODB.Recordset '聲明新的 ADO 記錄集類模塊
此兩個變量需要在整個工程使用的,所以我們需要改為公有聲明
PublicDb As New ADODB.Connection '聲明新的 ADO 連接類模塊Public Rs As New ADODB.Recordset '聲明新的 ADO 記錄集類模塊
Dim改為 Public。
下一節我們學習如何讀取數據,注意關注。