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"
strSQL="Select gkrong from gkrong_demo "
Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objRst = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objCon
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
Else
HMIRuntime.Trace "Selection returned no fields" & vbNewLine
End If
HMIRuntime.Trace strSQL
objRst.Close
Set objRst = Nothing
objCon.Close
Set objCon = Nothing
这样子，是了还不行，一样的结果。。。