VB查询数据库之写入数据库——机房收费系统总结(三)
2013-11-30 16:22
363 查看
在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效。像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行,让后再把相对应的数据写书数据库,保存,更新。我认为大概就是这样,以机房收费系统注册用户为例,看看写入数据库的代码吧!
添加用户窗体如下所示(以它为例):
代码如下(仅供参考):
在写如之前,首先要确定输入数据库中的各个数据不能为空。
添加用户窗体如下所示(以它为例):
代码如下(仅供参考):
在写如之前,首先要确定输入数据库中的各个数据不能为空。
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
相关文章推荐
- VB查询数据库之写入数据库——机房收费系统总结(三)
- VB查询数据库之报表——机房收费系统总结(六)
- VB查询数据库之结账——机房收费系统总结(五)
- VB查询数据库之结账——机房收费系统总结(五)
- VB查询数据库之报表——机房收费系统总结(六)
- VB查询数据库之终极篇——机房收费系统总结(七)
- VB查询数据库之终极篇——机房收费系统总结(七)
- 【VB与数据库】机房收费系统--组合查询
- 【VB与数据库】——机房收费系统总结
- VB查询数据库之组合查询——机房收费总结(二)
- VB查询数据库之登陆窗体——机房收费总结(一)
- VB查询数据库之组合查询——机房收费总结(二)
- VB与数据库(三)之迟到的机房收费系统总结
- VB查询数据库之导出表格——机房收费总结(四)
- VB查询数据库之登陆窗体——机房收费总结(一)
- VB查询数据库之导出表格——机房收费总结(四)
- VB之旅-机房收费系统总结
- vb.net机房收费系统重构——总结(一)梳理业务与表结构
- vb.net机房收费系统重构——总结(二)软件工程文档1
- vb.net机房收费系统重构——总结(三)软件工程文档2