机房收费系统小结一

一、新数据写入表中

txtSQL = "select*from 数据库中表名称"

Set mrcc = ExecuteSQL(txtSQL,msgtext)

mrcc.AddNew 重新插入数据

mrcc.Fields(1) = 要输入的数据

。。。

mrcc.Update 更新数据库

二、更改指定行的某一指定数据

txtSQL = "select*from 数据库中表名称 where 某行名称='" & Text1.Text（输入框内容，主要判断是否跟数据相同）& “‘”

Set mrc = ExecuteSQL(txtSQL,msgtext)

mrc.Fields(7)（数据表中的某一列，上边的代码确定了行，这个代码确定列）=要更新的具体数据

mrc.Update 更新数据表

三、查询某一行数据并在标签中显示

txtSQL = "select*from student_Info"

Set mrc = ExecuteSQL(txtSQL,msgtext)

While (mrc.EOF = False)

If Trim(mrc.Fields(0)) = Trim(Text1.Text) Then

Label3.Caption = "充值卡号:" & mrc.Fields(0) & Chr(13) & Chr(13) & "充值金额：" & i & Chr(13) & Chr(13) & "学号：" & mrc.Fields(1) & Chr(13) & Chr(13) & "姓名：" & mrc.Fields(2) & Chr(13) & Chr(13) & "充值日期：" & Date & Chr(13) & Chr(13) & "充值时间:" & Time & Chr(13) & Chr(13) & "操作人员:" & username

Exit Sub

Else

mrc.MoveNext

End If

Wend

五、 查询数据库中某一行的数据

'建立数据库的链接

txtSQL = "select*from cabcelcard_info "

Set mrcc = ExecuteSQL(txtSQL,msgtext)

'判断卡是否已退

While (mrcc.EOF = False)

If Trim(mrcc.Fields(1)) = Trim(Text1.Text) Then

MsgBox "此卡已退！",vbOKOnly +vbExclamation,"警告"

Exit Sub

Else

mrcc.MoveNext

End If

Wend

。。。。。。。。。。。。。。。