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
以上程序不知错在哪里?