Microsoft Visual Basic Script Editon(vbscript) 连接MySQL

通过vbscript 连接MySQL并循环检查数据，并行刷新essbase：
1.创建vbscript脚本，保存为*.vbs(这样的格式的文件双击就可以执行或者在dos命令下执行)
'声明变量re 返回sql值
dim re
'MySQL连接字符串
strConn = "dsn=创建odbc连接(is_mysql);driver=odbc驱动{MySQL ODBC 3.51 Driver};server=服务器;uid=用户名;pwd=密码;database=数据库;port=3306(默认端口);"
'建立MySQL通信并启动通信
Set conn = CreateObject("adodb.connection")
conn.Open strConn
'定义MySQL sql字符串并建立通信
ssql="select count(distinct op_time) as result from sales where op_time = DATE_FORMAT(date_sub(now(),interval 1 day),'%Y%m%d')"
Set rs = CreateObject("adodb.recordset")
rs.Open ssql, conn, 1, 1

'返回结果集
re=rs("result")

MsgBox re
'循环检查数据
do while re <> "1"

ssql="select count(distinct op_time) as result1 from sales where op_time = DATE_FORMAT(date_sub(now(),interval 1 day),'%Y%m%d')"
Set rs = CreateObject("adodb.recordset")
rs.Open ssql, conn, 1, 1

re=rs("result1")
Wscript.Sleep 5000
'MsgBox "shit"
'自动关闭消息框
createobject("wscript.shell").popup "shit",3,"标题",32
loop


If re = "1" Then
'createobject("wscript.shell").run "D:testtest.vbs"
'vbs调用bat
createobject("wscript.shell").run "D:test2.bat"
End If

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
2.essbase 脚本可以写在test2.bat里面（这里就不多介绍）