写入SQL数据库的脚本如下：

Sub WriteToSQL()

'提示：

' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表

' 2. 使用 HMI Runtime 对象写入代码。

'  示例：HmiRuntime.Screens("Screen_1")。

' 3. 使用 <CTRL+J> 快捷键创建对象引用。

'从此位置起写入代码：

Dim database,strcn,cn,is_SQL

Dim Var1,Var2,Var3,Var4

Dim DateTime

Var1=Now

Var2=HMIRuntime.Tags("Value1").Read

Var3=HMIRuntime.Tags("Value2").Read

Var4=HMIRuntime.Tags("Value3").Read

strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SQL_Report;Data Source=.\wincc"

Set cn=CreateObject("ADODB.connection")

cn.connectionString=strcn

cn.Open

is_SQL="insert into SQL_Report_Table(TimeSQL,Value1SQL,Value2SQL,Value3SQL) Values('"&Var1&"','"&Var2&"','"&Var3&"','"&Var4&"')"

cn.Execute is_SQL

cn.Close

End Sub