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

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

代码如下（仅供参考）：

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

@H_404_22@Option Explicit '———————————————————————— '窗体：添加用户窗体 '说明：查询每个文本框不为空，两次密码相同，最后把添加信息写入USER—info 表 中 '———————————————————————— Private Sub cmdOk_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtsql As String Dim time1 As String Dim date1 As String '各个文本框不能空着,且密码和确认密码值要想同 If Not Testtxt(Text1.Text) Then MsgBox "请输入用户名！",vbOKOnly + vbExclamation,"警告" Text1.SetFocus Exit Sub End If If Not Testtxt(Text2.Text) Then MsgBox "请返回上一个界面选择用户级别！","警告" frmadduser.Show Unload Me Exit Sub End If If Not Testtxt(Text3.Text) Then MsgBox "请输入用户名！","警告" Text3.SetFocus Exit Sub End If If Not Testtxt(Text4.Text) Then MsgBox "密码不能为空！","警告" Text3.SetFocus Exit Sub End If If Not Testtxt(Text5.Text) Then MsgBox "请确认密码！","警告" Text5.SetFocus Exit Sub End If If Text4.Text <> Text5.Text Then MsgBox "两次输入密码不一致，请重新输入！","警告" 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) = UserName mrc.Update MsgBox "添加用户成功成功！","警告" mrc.Close Me.Hide End Sub Private Sub Form_Load() Text2.Text = level '在上一个窗体中设置用户级别 End Sub 原文链接：https://www.f2er.com/vb/258336.html