请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!!

已锁定

林中白狼

  • 帖子

    12
  • 精华

    1
  • 被关注

    0

论坛等级:新手

注册时间:2004-12-14

普通 普通 如何晋级?

请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!!

1602

10

2006-04-30 13:53:36

1.创建了归档变量,存储类型为SLOW
2.WINCC V6 运行后,在SQL 数据库的*_TLG_S_*的库中可看到归档数据.
3.现本人想把这些数据读到EXCEL中,一直无法与数据库连接成功.盼指教.

EXCEL宏程序如下:
Private Sub CommandButton3_Click()
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim i As Integer

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset

cn.ConnectionString = "DSN=CC_mmm_05_12_09_14_31_18R;UID=;PWD="
cn.Open

cmd.ActiveConnection = cn
cmd.CommandText = "select * from Taguncompressed.dbo "
cmd.CommandType = adCmdText

Set rst = cmd.Execute

rst.MoveFirst

i = 1
Do Until rst.EOF
Sheet3.Range("A" & Trim(Str(i))) = rst.Fields.Item(1).Value
Sheet3.Range("B" & Trim(Str(i))) = rst.Fields.Item(2).Value
Sheet3.Range("C" & Trim(Str(i))) = rst.Fields.Item(3).Value
Sheet3.Range("D" & Trim(Str(i))) = rst.Fields.Item(4).Value
i = i + 1
rst.MoveNext
Loop

End Sub

以上程序不知错在哪里?
请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!! 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32564条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。