一、新数据写入表中
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
。。。。。。。。。。。。。。。
