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

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

??

?

代碼如下（僅供參考）：

在寫如之前，首先要確定輸入數(shù)據(jù)庫中的各個(gè)數(shù)據(jù)不能為空。

Option Explicit '———————————————————————— '窗體：添加用戶窗體 '說明：查詢每個(gè)文本框不為空，兩次密碼相同，最后把添加信息寫入U(xiǎn)SER—info 表 中 '————————————————————————Private Sub cmdOk_Click()Dim mrc As ADODB.RecordsetDim MsgText As StringDim txtSQL As StringDim time1 As StringDim date1 As String'各個(gè)文本框不能空著,且密碼和確認(rèn)密碼值要想同If Not Testtxt(Text1.Text) ThenMsgBox "請輸入用戶名！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusExit SubEnd IfIf Not Testtxt(Text2.Text) ThenMsgBox "請返回上一個(gè)界面選擇用戶級別！", 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 "請確認(rèn)密碼！", 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 '在表中建立新的列，寫入添加數(shù)據(jù)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 '在上一個(gè)窗體中設(shè)置用戶級別End Sub

?

?

?

?

?

版權(quán)聲明：本文為博主原創(chuàng)文章，未經(jīng)博主允許不得轉(zhuǎn)載。

轉(zhuǎn)載于:https://www.cnblogs.com/lucari/p/4608598.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。