Wincc报警记录的相关操作SQL Dim DNRT,DSN Dim con,conn,oRs,oCom,sSQL Dim con1,conn1,oRs1,oCom1,sSQL1 Dim BH Dim rc Dim i DNRT = HMIRuntime.Tags("@DatasourceNameRT").Read BH = ScreenItems("bianhao").InputValue con= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="&DNRT&";Data Source=.\wincc" Set conn= CreateObject("ADODB.Connection") conn.ConnectionString=con conn.CursorLocation=3 conn.Open Set oRs=CreateObject("ADODB.Recordset") Set oCom= CreateObject("ADODB.Command") Set oCom.ActiveConnection=conn oCom.CommandType=1 sSQL="SELECT DSN FROM AMT WHERE AppName='ALG' " oCom.CommandText=sSQL Set oRS=oCom.Execute rc=oRS.RecordCount oRS.movefirst For i = 1 To rc DSN=oRs.fields(0).Value con1= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="&DSN&";Data Source=.\wincc" Set conn1= CreateObject("ADODB.Connection") conn1.ConnectionString=con1 conn1.CursorLocation=3 conn1.Open Set oRs1=CreateObject("ADODB.Recordset") Set oCom1= CreateObject("ADODB.Command") Set oCom1.ActiveConnection=conn1 oCom1.CommandType=1 sSQL1="DELETE FROM [MsArcLong] WHERE MsgNr = "&BH oCom1.CommandText=sSQL1 Set oRS1=oCom1.Execute Set oRS1=Nothing oRS.movenext Next Set oRS=oCom.Execute Set oRS=Nothing conn.close Set conn=Nothing conn1.close Set conn1=Nothing Msgbox("对应编号报警已经删除，重新打开此画面查看。")