以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  计算股指合约当天收盘前结算价并输出到Excel  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=30596)
--  作者：xieguihua
--  发布时间：2012/11/12 17:44:30
--  计算股指合约当天收盘前结算价并输出到Excel

sub DataSelect()
Set adoConn=CreateObject("Adodb.Connection")
cnstring = "driver=SQL Server;Server=10.38.32.65;DATABASE=TempBiz;UID=sa;PWD=jyb2010"
strSql="Select * From [TempBiz].[dbo].[marketdata_jzt]"
adoConn.ConnectionString = cnstring
adoConn.Open cnstring
Set Rs=adoConn.Execute(strSql)
If Rs.EOF THEN
MsgBox "查询结果：数据表为空"
Exit sub
Else
Do While Not Rs.EOF
MsgBox Rs("newp").Value
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
End If
end sub

 

 

 

我想用这段代码读取数据里的数据，为什么程序运行后没有反应。请大侠能指点迷津。
--  作者：xieguihua
--  发布时间：2012/11/12 17:45:09
--  
程序没有报错，也没有消息提示，不知道为什么。