请帮忙看下这段程序
刘玉蓉
发布于2014-10-24 17:38
35
0
标签：
请帮忙解读下这段程序，VB基本不会，麻烦详细点。
Option Explicit
Function action
Dim strConnectionString
Dim objConnection
Dim IngValue1,IngValue2,IngValue3,IngValue4,IngValue5,IngValue6,IngValue7
Dim strSQL
Dim objCommand
strConnectionString="provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
Ingvalue1=HMIRuntime.Tags ("试验单元").Read
Ingvalue2=HMIRuntime.Tags ("机型").Read
Ingvalue3=HMIRuntime.Tags ("6#批架次").Read
Ingvalue4=HMIRuntime.Tags ("6#产品名称").Read
Ingvalue5=HMIRuntime.Tags ("型号").Read
Ingvalue6=HMIRuntime.Tags ("产品编号").Read
Ingvalue7=HMIRuntime.Tags ("Path_Name").Read
If IngValue7<>"" then
StrSQL="INSERT INTO WINCC VALUES (""" & Ingvalue1 & """,""" & ingvalue2 & """,""" & ingvalue3 & """,""" & ingvalue4 & """,""" & ingvalue5 & """,""" & ingvalue6 & """,""" & ingvalue7 & """);"
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
Set objconnection=Nothing
End If
End Function
佳答案
你的这个数据库不是wincc专属的数据库，你是要把wincc的数据写入到wincc以外的数据库里面。你的“wincc”是一个数据库表格的名字，你可以打开这个表格看一下，它一共有7列，分别插入的数据为“试验单元”“机型”“6#批架次”“6#产品名称”“型号”“产品编号”“Path_Name”
