找答案

这段程序是什么意思？写得对不对？在具体应用时，还需要进行哪些设置才能使用呢？
 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