VB查询数据库之写入数据库——机房收费系统总结(三)
在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效。像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行,让后再把相对应的数据写书数据库,保存,更新。我认为大概就是这样,以机房收费系统注册用户为例,看看写入数据库的代码吧!
添加用户窗体如下所示(以它为例):
代码如下(仅供参考):
在写如之前,首先要确定输入数据库中的各个数据不能为空。
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 "请返回上一个界面选择用户级别!", vbOKOnly + vbExclamation, "警告"
frmadduser.Show
Unload Me
Exit Sub
End If
If Not Testtxt(Text3.Text) Then
MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
Text3.SetFocus
Exit Sub
End If
If Not Testtxt(Text4.Text) Then
MsgBox "密码不能为空!", vbOKOnly + vbExclamation, "警告"
Text3.SetFocus
Exit Sub
End If
If Not Testtxt(Text5.Text) Then
MsgBox "请确认密码!", vbOKOnly + vbExclamation, "警告"
Text5.SetFocus
Exit Sub
End If
If Text4.Text <> Text5.Text Then
MsgBox "两次输入密码不一致,请重新输入!", 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) = UserName
mrc.Update
MsgBox "添加用户成功成功!", vbOKOnly + vbExclamation, "警告"
mrc.Close
Me.Hide
End Sub
Private Sub Form_Load()
Text2.Text = level '在上一个窗体中设置用户级别
End Sub
版权声明:本文为博主原创文章,未经博主允许不得转载。