这段程序是什么意思?写得对不对?在具体应用时,还需要进行哪些设置才能使用呢?
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
提问者对于答案的评价:
谢谢
在数据库的一个表中插入一组数据。
回答者: 饼够 - 助理工程师  第8级
2008-03-21 21:01:57
同意楼上的
回答者: yanshanshanmai - 毕业实践员  第4级
2008-03-23 09:16:31
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!