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

发布时间：2020-12-17 08:04:28 所属栏目：百科来源：网络整理

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

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

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

代码如下（仅供参考）：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!