请高手帮忙解读下这段程序，小弟是个菜鸟，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”
提问者对于答案的评价：
ok
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264871.html
微信扫一扫 
支付宝扫一扫 