VBS语句如下：

Dim strCon,strSQL
Dim objCon,objCommand,objRst
Dim oList,oItem
Dim Number,i
strCon="DRIVER={SQL server};SERVER=.\WinCC;DATABASE=CC_demo_12_06_19_21_42_57" //此为我在SQL建立的表格地址
strSQL="Select gkrong from gkrong_demo " //此为选择数据库中gkrong_demo表格中的变量gkrong
Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objRst = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute
lngCount = objRecordset.Fields.Count
If (lngCount>0) Then
objRecordset.movefirst
lngValue = objRecordset.Fields(0).Value
HMIRuntime.Tags("demo").Write lngValue //此为将从SQL数据库读取的数据赋值到WinCC内部变量demo
Else
HMIRuntime.Trace "Selection returned no fields" & vbNewLine
End If
HMIRuntime.Trace strSQL
objRst.Close
Set objRst = Nothing
objCon.Close
Set objCon = Nothing