use Tank_DB

create table Tank_TBL

'-----------------------------------Global Script------------------------------------------------------------

Sub WriteToTankDB_SQL2005()

Const SourceDB = "Tank_DB"

Const TheTBLName = "Tank_TBL"

Dim RT_TagsName

'***** Please modify the related Tag_Names for your own.

RT_TagsName = Array("Tank_Name", "Tank_Mass")

Dim START_LTIME, objCN, objCMD, objRS, Fields_Idx

Set objCN = CreateObject("ADODB.Connection"): Set objCMD = CreateObject("ADODB.Command")

Set objRS = CreateObject("ADODB.Recordset")

START_LTIME = CDbl(Time)

'***Using "MS SQL Server Native Client" connectivity.

With objCN

.Provider = "SQLOLEDB.1"

.Properties("Data Source") = ".\WinCC"

'".\SQLExpress"

.Properties("Integrated Security") = "SSPI"

.Properties("Persist Security Info") = False

'*** Modify the ubove two lines of UID=xxxxx;PWD=yyyyy;

'--- if you are not using Integrated Security!

'.Properties("User ID") = "Nobody"

'.Properties("Password") = "Unknown"

.CursorLocation = 3

.CommandTimeout = 60

.Open

End With

With objCMD

.CommandType = 1

.ActiveConnection = objCN

.CommandText = "USE " & SourceDB

.Execute

'Instead of GetDate(), you may use GetUTCDate() for a UTC-TimeStamp.

.CommandText = "INSERT INTO " & TheTBLName & " VALUES (GetDate(), '" & _

Trim(HMIRuntime.Tags(RT_TagsName(0)).Read(1)) & "', " & _

HMIRuntime.Tags(RT_TagsName(1)).Read(1) & Chr(41)

.Execute

End With

'--------------------[For verification/ not necessary]---------

objCMD.CommandText = "SELECT * FROM " & TheTBLName

Set objRS = objCMD.Execute

Do Until objRS.EOF

For Fields_Idx = 1 To objRS.fields.Count

HMIRuntime.trace objRS.fields(Fields_Idx - 1) & vbCrLf

Next

objRS.MoveNext

Loop

'---------------------------------------------------------------

HMIRuntime.Trace "For appending Tank information into Tank-DB" & vbCrLf & _

", it spent " & vbTab & (CDbl(Time) - START_LTIME) * 86400 & "secs" & vbCrLf

objRS.Close: Set objRS = Nothing

Set objCMD = Nothing

objCN.Close: Set objCMD = Nothing

End Sub