VB查询数据库之写入数据库——机房收费系统总结（三）

     在机房收费系统中，新注册的用户，更改的密码，上机下级记录，上机收费记录等等都要写入数据库，这样，后面的查询才能生效。像数据库中写入数据，首先，找到你要写入数据的数据库中的表，在表中建立新的行，让后再把相对应的数据写书数据库，保存，更新。我认为大概就是这样，以机房收费系统注册用户为例，看看写入数据库的代码吧！

添加用户窗体如下所示（以它为例）：

  

 

代码如下（仅供参考）：

在写如之前，首先要确定输入数据库中的各个数据不能为空。

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查询数据库之写入数据库——机房收费系统总结（三）的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。