? ?? 在機房收費系統中，新注冊的用戶，更改的密碼，上機下級記錄，上機收費記錄等等都要寫入數據庫，這樣，后面的查詢才能生效。像數據庫中寫入數據，首先，找到你要寫入數據的數據庫中的表，在表中建立新的行，讓后再把相對應的數據寫書數據庫，保存，更新。我認為大概就是這樣，以機房收費系統注冊用戶為例，看看寫入數據庫的代碼吧！

添加用戶窗體如下所示（以它為例）：

??

?

代碼如下（僅供參考）：

在寫如之前，首先要確定輸入數據庫中的各個數據不能為空。

Option Explicit '———————————————————————— '窗體：添加用戶窗體 '說明：查詢每個文本框不為空，兩次密碼相同，最后把添加信息寫入USER—info 表 中 '————————————————————————Private Sub cmdOk_Click()Dim mrc As ADODB.RecordsetDim MsgText As StringDim txtSQL As StringDim time1 As StringDim date1 As String'各個文本框不能空著,且密碼和確認密碼值要想同If Not Testtxt(Text1.Text) ThenMsgBox "請輸入用戶名！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusExit SubEnd IfIf Not Testtxt(Text2.Text) ThenMsgBox "請返回上一個界面選擇用戶級別！", vbOKOnly + vbExclamation, "警告"frmadduser.ShowUnload MeExit SubEnd IfIf Not Testtxt(Text3.Text) ThenMsgBox "請輸入用戶名！", vbOKOnly + vbExclamation, "警告"Text3.SetFocusExit SubEnd IfIf Not Testtxt(Text4.Text) ThenMsgBox "密碼不能為空！", vbOKOnly + vbExclamation, "警告"Text3.SetFocusExit SubEnd IfIf Not Testtxt(Text5.Text) ThenMsgBox "請確認密碼！", vbOKOnly + vbExclamation, "警告"Text5.SetFocusExit SubEnd IfIf Text4.Text <> Text5.Text ThenMsgBox "兩次輸入密碼不一致，請重新輸入！", vbOKOnly + vbExclamation, "警告"End If Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "select * from User_Info"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNew '在表中建立新的列，寫入添加數據mrc.Fields(0) = Trim(Text1.Text)mrc.Fields(1) = Trim(Text4.Text)mrc.Fields(2) = Trim(Text2.Text)mrc.Fields(3) = Trim(Text3.Text)mrc.Fields(4) = UserNamemrc.UpdateMsgBox "添加用戶成功成功！", vbOKOnly + vbExclamation, "警告"mrc.CloseMe.HideEnd Sub Private Sub Form_Load()Text2.Text = level '在上一個窗體中設置用戶級別End Sub

?

?

?

?

?

版權聲明：本文為博主原創文章，未經博主允許不得轉載。

轉載于:https://www.cnblogs.com/lucari/p/4608598.html

總結

以上是生活随笔為你收集整理的VB查询数据库之写入数据库——机房收费系统总结（三）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。