×

您收到0封站内信：

×

找答案的高端用户（找答案钻石及双钻级别的用户）将尽可能从此问题下的所有回

答中，为您推荐最佳答案。届时您可以根据推荐数采纳答案。

如果自提问时间起7天内您仍无法选出最佳答案，您可以选择“无满意答案”关闭此问题。

{{item.C_Name}}

问题

VBS怎么从数据库的一张表中取一列的值分别赋值给变量

1

2009 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

如图表是从数据库中过滤后的表我要把 IS_LACK 这一列值分别给变量 a1,a2,a3,a4,a5,a6,a7,a8,a9 这个要怎么写
之前我是一个一个取的
Rst.open "SELECT IS_LACK FROM LIQUID_SHORT where CNC_ID = '010101A101' ",Cnn,2,2
'HMIRuntime.Tags("IS_LACK1").Write Rst("IS_LACK")
但这样写的后果就是取一次要打开数据库一次再关一次，在打开再取下一个。

我是想打开一次数据表后就把这9个值都赋给变量

问题补充：

扫码小程序：

一键登录查看全部问答

20170309849580 新生

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

关键在于查询语句。
你上传的图看不到，九个值都是IS_LACK字段吗？如果是的话，先将记录集指针移到第一条，取字段值，赋值给变量，然后移动指针到下一条，再取值，赋值，一直到记录集尾，结束循环。
Dim sTagName
Dim iCount

iCount=0
Rst.MoveFirst
Do While Not Rst.EOF
   iCount=iCount+1
   sTagName="IS_LACK" & CStr(iCount)
   HMIRuntime.Tags(sTagName).Write Rst("IS_LACK")
   Rst.MoveNext
Loop

Rst.Close
Set Rst = Nothing
Cnn.Close
Set Cnn = Nothing

城外之人高级工程师

被采纳率 35.64% 2017-09-07 14:09

提问者对于答案的评价

暂无评价

20170309849580

被采纳率低 2017-09-06 09:37

等您来回答换一换

{{item.Title}} {{item.Title}}: {{item.CoinValue}}西币 {{item.VisitNum}}人想问
我来答我来答

本版相关问题换一换

{{item.Title}} {{item.Title}}: {{item.AnswerCount}}个回答 {{item.VisitNum}}人关注

VBS怎么从数据库的一张表中取一列的值分别赋值给变量

西门子找答案

首次回答问题，获得
双倍西币积分！
立即成为技术知识分享的一员!

积分

{{item.MenuName}}

{{item.MenuName}}

本版热门问题更多

{{item.Title}}: {{item.AnswerCount}}个回答 {{item.ReadCount}}人关注

热门视频，猜你喜欢

向您推荐换一换

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

: 玩赚618 | 每天回答开宝箱赢大奖

: 玩赚618 | 每天提问开宝箱赢大奖

热搜榜单
问题榜单


{{index+1}}: {{item.Title}}

{{item.CloseDate}}

{{item.Title}}

{{item.VisitNum}}人关注 {{item.CloseDate}}

找答案微信小程序

提问
搜索

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。