请帮忙看下这段程序

《请帮忙看下这段程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、请帮忙看下这段程序　　请帮忙解读下这段程序，VB基本不会，麻烦详细点。　　OptionExplicit　　Functionaction　　DimstrConnectionString　　DimobjConnection　　DimIngValue1,IngValue2,IngValue3,IngValue4,IngValue5,IngValue6,IngValue7　　DimstrSQL　　DimobjCommand　　strConnectionString=“provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;”　　Ingvalue

2、1=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　　IfIngVal

3、ue7”“then　　StrSQL=“INSERTINTOWINCCVALUES(“““&Ingvalue1&”““,”““&ingvalue2&”““,”““&ingvalue3&”““,”““&ingvalue4&”““,”““&ingvalue5&”““,”““&ingvalue6&”““,”““&ingvalue7&”““);”　　SetobjConnection=CreateObject(“ADODB.Connection”)　　objConnection.connectionstring=strConnectionString　　objConnect

4、ion.Open　　SetobjCommand=CreateObject(“ADODB.Command”)　　Withobjcommand　　.activeconnection=objconnection　　.commandtext=strsql　　EndWith　　objcommand.execute　　Setobjcommand=Nothing　　Setobjconnection=Nothing　　EndIf　　EndFunction　　　　　　最佳答案　　　　　　　　　　　　　　　　　　　　你的这个数据库不是wincc专属的数据库，你是要把wincc的数据

5、写入到wincc以外的数据库里面。你的“wincc”是一个数据库表格的名字，你可以打开这个表格看一下，它一共有7列，分别插入的数据为“试验单元”“机型”“6#批架次”“6#产品名称”“型号”“产品编号”“Path_Name”