这段程序是什么意思?写得对不对?在具体应用时,还需要进行哪些设置才能使用呢?
Option Explicit
Function action
Dim objConnection
Dim strConnectionString
Dim lnga1
Dim lnga2
Dim lnga3
Dim lnga4
Dim lnga5
Dim lnga6
Dim lnga7
Dim lnga8
Dim lnga9
Dim lnga10
Dim lnga11
Dim lngzgyl
Dim lngzgll
Dim strSQL
Dim objCommand
HMIRuntime.Tags("w").Write 10
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=admin;PWD=;"
lnga1 = HMIRuntime.Tags("TE3101").Read
lnga2 = HMIRuntime.Tags("TE3102").Read
lnga3 = HMIRuntime.Tags("TE3103").Read
lnga4 = HMIRuntime.Tags("TE3104").Read
lnga5 = HMIRuntime.Tags("TE3105").Read
lnga6 = HMIRuntime.Tags("YW3").Read
lnga7 = HMIRuntime.Tags("XW3").Read
lnga8 = HMIRuntime.Tags("sd").Read
lnga9 = HMIRuntime.Tags("mqlj").Read
lnga10 = HMIRuntime.Tags("dk").Read
lnga11 = HMIRuntime.Tags("dh").Read
lngzgyl = HMIRuntime.Tags("PT4102").Read
lngzgll = HMIRuntime.Tags("FT4103").Read
HMIRuntime.Tags("w").Write 70
strSQL = "INSERT INTO ForWinCC (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,zgyl,zgll) VALUES (" & lnga1 & "," & lnga2 & "," & lnga3 & "," & lnga4 & "," & lnga5 & "," & lnga6 & "," & lnga7 & "," & lnga8 & "," & lnga9 & "," & lnga10 & "," & lnga11 & "," & lngzgyl & "," & lngzgll & ");"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.activeConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Function
问题补充:
大家好:ODBC数据源我该怎么建呢?也就是说我想将a1---等上述变量写到ACCESS或EXCEL中,该怎么做呢?多谢了!!最好能写清楚点,多谢了。
产品版区:SIMATIC WinCC
悬赏分:25 | 解决时间:2008-07-18 08:31:58 | 提问者: YYYZZZ - 新生  第1级
最佳答案
回答者:
kkz
-
中级技术员  第6级
2008-03-24 16:21:27
提问者对于答案的评价:
谢谢