vbs创建mysql数据库_VBS创建数据库及数据库数据写入-工业支持中心-西门子中国...

Option Explicit

Function action

Dim BS201

Dim BS202

Dim BS200

Dim RM_MASTER    '判断是否执行全局脚本

Set RM_MASTER = HMIRuntime.Tags("A33")

RM_MASTER.Read

If RM_MASTER.Value = 1 Then

Set BS201 = HMIRuntime.Tags("ChannelOut1")

BS201.Read()

Set BS202 = HMIRuntime.Tags("ChannelOut4")

BS202.Read()

BS200 = BS201.Value + BS202.Value

'//DATABASE

Dim objAdoConn

Dim objRecordset

Dim objCommand

Dim strAdoConn

Dim strSQL

Dim retVal

Dim FrontstrSQL

Dim BackstrSQL

Dim BSstrSQL

Set objAdoConn= CreateObject("ADODB.Connection")

Set objRecordset = CreateObject("ADODB.Recordset")

Set objCommand = CreateObject("ADODB.Command")

Set strAdoConn = HMI