按照日期查询自定义的问题数据库数据写入excel

《按照日期查询自定义的问题数据库数据写入excel》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、按照日期查询自定义的问题数据库数据写入excel　　上一个问题的内容：　　查询产生数据集　　DimrsIS　　SetrsIS=CreateObject(“ADODB.Recordset”)　　rsIS.Open”SELECT*FROM表名”,conn　　条件：自定义数据库：zmx-sql，表：zmxzz-a（存放1号的数据）和zmxzz-b（存放2号的数据），字段名“sj”，数据类型：datetime，数据共计20列　　目的：查找1号到2号的数据并存放在使用ole建立的excel表中，记录大概在30000条。　　程序：日期使用windows的日历控

2、件10.0提供开始日期和结束日期　　DimrsIS　　SetrsIS=CreateObject(“ADODB.Recordset”)　　is_sql=“select*fromzmxzz-a”sj”>=00:00:01and”“sj”=00:00:01and”“sj”图片说明：　　1，程序　　2，开始和结束时间　　　　　　　　　　　　最佳答案　　　　　　　　　　　　　　　　　　　　首先要说的是，ADO的工作原理就相当于在vbs中构造好一个数据库查询语句，通过连接，发给SQLServer，执行查询是SQLServer的工作。　　既然这样，那你在调试vb

3、s过程中遇到了问题，你首先想到，把你的查询语句（sql语句）直接写在SQLServer中，用来定位是你vbs这边错了，还是你的sql写得有问题。　　所以建议你先在SQLServer中实现查询，然后把你试验过的查询语句，复制在vbs里，但是要注意，你得写好了，构造的语句在vbs里看，是一个字符串。　　然后针对你的问题，你要查询一个时间段，那它的查询语句结构无非是　　select*from表名wheresj>起始时间andsj>中止时间，关键点显而易见，就是你的起始时间和中止时间哪里来的。(你的语句中第一个错误就是，where哪去了？)　　说完了　　下

4、面是我的思路　　dimstartTime　　dimstopTime　　”“““构造起始时间startTime　　dimcalendarName　　calendarName=ScreenItems(“你所建立的日历控件名”)　　”“““这种写法只针对于你的日历控件和这段程序的按钮在同一画面的请况　　dimstartDate　　startDate=calendarName.value”“““当前控件所选的日期，赋给startDate　　dimstartSJ　　startSJ=这里不清楚你的时间是怎么来的，不论常量变量写这就行了　　startTime=s

5、tr(startDate)&str(startSJ)　　”“““构造结束时间stopTime　　思路同上，就是用calendar控件获得年月日，用你喜欢的方式获得时分秒，然后组合成时间（符合数据库中datetime变量类型的时间格式）即可。　　is_sql=“select*fromzmxzz-awheresj>“&str(startTime)&”ANDsj<“&str(stopTime)　　还有就是，关于获取时间值的方法和采用的控件，可以参看以下　　http://www.ad.siemens.com.cn/service/answer/soluti

6、on.aspx?Q_ID=42245&cid=1032