請(qǐng)幫忙看下這段程序

劉玉蓉發(fā)布于2014-10-24 17:38 35 0 標(biāo)簽：

請(qǐng)幫忙解讀下這段程序，VB基本不會(huì)，麻煩詳細(xì)點(diǎn)。
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 ("試驗(yàn)單元").Read
Ingvalue2=HMIRuntime.Tags ("機(jī)型").Read
Ingvalue3=HMIRuntime.Tags ("6#批架次").Read
Ingvalue4=HMIRuntime.Tags ("6#產(chǎn)品名稱").Read
Ingvalue5=HMIRuntime.Tags ("型號(hào)").Read
Ingvalue6=HMIRuntime.Tags ("產(chǎn)品編號(hào)").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

佳答案

你的這個(gè)數(shù)據(jù)庫(kù)不是wincc專屬的數(shù)據(jù)庫(kù)，你是要把wincc的數(shù)據(jù)寫入到wincc以外的數(shù)據(jù)庫(kù)里面。你的“wincc”是一個(gè)數(shù)據(jù)庫(kù)表格的名字，你可以打開(kāi)這個(gè)表格看一下，它一共有7列，分別插入的數(shù)據(jù)為“試驗(yàn)單元”“機(jī)型”“6#批架次”“6#產(chǎn)品名稱”“型號(hào)”“產(chǎn)品編號(hào)”“Path_Name”

若有收獲，就點(diǎn)個(gè)贊吧！