Dim strCon,strSQL ,objCon,objCommand,objRecordset,lngCount
Dim RenWuHao,Count_Start
Dim PiCi


RenWuHao = HMIRuntime.tags("UP_1").read
strCon= "DRIVER={SQL server};SERVER=.\wincc;DATABASE=SPC_SQL;UID=sa;PWD=123456;"
strSQL="Select * from demo"

Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objCon
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute
lngCount = objRecordset.Fields.Count
If RenWuHao > 1 Then
RenWuHao = RenWuHao - 2
For Count_Start = 0 To RenWuHao
objRecordset.movenext
Next
PiCi = objRecordset.Fields(0).Value
HMIRuntime.Tags("demo").Write PiCi
Else
PiCi = objRecordset.Fields(0).Value
HMIRuntime.Tags("demo").Write PiCi
End If
HMIRuntime.Trace strSQL
objRecordset.Close
Set objRecordset = Nothing
Set objCommand = Nothing
objCon.Close
Set objCon = Nothing
strCon="DRIVER={SQL server};SERVER=.\WinCC;DATABASE=SPC_SQL;UID=sa;PWD=123456;"
strSQL=" DECLARE @PiCi CHAR(20);SET @PiCi = '"&PiCi&"';insert into demo values(@PiCi,'543');"
Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objCon
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute