这段程序是什么意思？写得对不对？在具体应用时，还需要进行哪些设置才能使用呢？
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中，该怎么做呢？多谢了！！最好能写清楚点，多谢了。
最佳答案
这段代码是将值分别为 lnga1 ,...lngzgll插入到由SampleDSN建立的数据库中表名为ForWinCC对应的各字段中.如果要使用这段代码,关键的是数据源即代码中的DSN=SampleDSN应该是你自己建立的ODBC数据源的名称.
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276777.html
微信扫一扫 
支付宝扫一扫 