技术论坛

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

返回主题列表
作者 主题
林中白狼
新手

经验值:37
发帖数:12
精华帖:1
楼主    2006-04-30 13:53:36
主题:请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!!
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

以上程序不知错在哪里?
林中白狼
新手

经验值:37
发帖数:12
精华帖:1
    2006-05-05 14:54:52
精华帖  主题:回复:请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!!
调试成功,忘了运行全局脚本。XIEXIE
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。