机房收费系统小结一

一、新数据写入表中

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

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