机房之收取金额查询

金额查询涉及到日历，VB6.0的工具栏中是没有这个控价的，于是我们要到工程里面找

方法如下：工程---部件---控件----“Microsoft Windows common controls 26.0”---应用---确定

加载后的图形显示：

思路：

代码部分：

知识点：

这里有一点感觉很重要，就是连接、查询语句

txtSQL = "select * from ReCharge_Info where date>='" & DTPicker1.value & "' and date <= '" & DTPicker2.value & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

意思是连接Recharge表后查询起始与终止之间的时间