从数据库里读取数据不成功，望指点。 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 从数据库里读取数据不成功，望指点。

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有3784人关注过本帖树形打印复制链接主题：从数据库里读取数据不成功，望指点。

xieguihua

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：43 积分：250 威望：0 精华：1 注册：2012/7/12 14:05:28

关于金字塔vba模块多核计算的问题 发帖心情

Post By：2012/11/12 17:47:54 [只看该作者]

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