wincc sql.zip_WinCC_pywincc_sql与wicc winCC_wincc 数据库_wincc数据库

Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim Con Dim Data1 Dim Data2 Dim Data3 Dim Data4 Dim Data5 Dim Data6 Dim Data7 Dim Data8 Dim tNow Data1=HMIRuntime.Tags("SPEED_P").Read Data2=HMIRuntime.Tags("R1RPM").Read Data3=HMIRuntime.Tags("R2RPM").Read Data4=HMIRuntime.Tags("R3RPM").Read Data5=HMIRuntime.Tags("R4RPM").Read Data6=HMIRuntime.Tags("R1_P").Read Data7=HMIRuntime.Tags("R2_P").Read Data8=HMIRuntime.Tags("R3_P").Read a '获取时间 tNow = CStr(Now()) '连接数据库 'Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=feihang;Data Source=BILL-PC\FEIHANGDATA" Con="Driver={MySQL ODBC 5.3 Unicode Driver};Server=127.0.0.1;Database=feihang; uid=root;pwd=fh123456DH;Option=3;port=3306;" Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = Con conn.CursorLocation = 3 conn.Open '写入数据库 sSql="INSERT INTO raobao (AddTime, SPEED_P, R1RPM, R2RPM, R3RPM, R4RPM, R1_P, R2_P, R3_P) VALUES('"&tNow&"','"&Data1&"','"&Data2&"','"&Data3&"','"&Data4&"','"&Data5&"','"&Data6&"','"&Data7&"','"&Data8&"');" Set oRs = CreateObject("ADODB.Recordset") Set oCom = CreateObject("ADODB.Command") Set oCom.ActiveConnection = conn oCom.CommandType = 1 oCom.CommandText = sSql Set oRs = oCom.Execute Set oRs = Nothing conn.Close Set conn = Nothing