| 作者 | 主题 |
|---|---|
|
林中白狼 新手 经验值:37 发帖数:12 精华帖:1 |
楼主
主题:请教: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 |
楼
主题:回复:请教:EXCEL的宏用ADO控件如何访问WINCCV6.0的SQL非压缩归档变量.急!!!
调试成功,忘了运行全局脚本。XIEXIE
|