[Example]: archiving data WinCC Flexible MSSQL CSV

примеры программ
Post Reply
zesava
Posts: 4
Joined: Sat Jun 20, 2009 2:01 pm
Location: Ukraine

[Example]: archiving data WinCC Flexible MSSQL CSV

Post by zesava » Sat Jun 20, 2009 2:14 pm

Example of archiving data WinCC flexible 2007 in MS SQL and then their export to Excel MS.

As a source code Siemens has been taken Project_SQL_Database from a Siemens site, and a little processed.

In archive:
Russian wrote:Пример архивирования данных WinCC flexible 2007 в MS SQL и затем их экспорт в MS Excel.
В качестве исходника был взят Project_SQL_Database с сайта сименса, и немонго переработан.

В архиве:
WinCCF_MSSQL_EXCEL.pdf
WinCCF_SQL_CSV.hmi
WinCCF_SQL_CSV_log.LDF

http://www.sendspace.com/file/3bosg4

sania
Site Admin
Posts: 1189
Joined: Sat Aug 13, 2005 6:15 am

Post by sania » Tue Jun 23, 2009 8:17 am

предлагаю подправить,чтоб можно было вписать путь файла из рантайм:
Image Image Image Image

sania
Site Admin
Posts: 1189
Joined: Sat Aug 13, 2005 6:15 am

How convert DT WinCC F( any time format ) into SQL (US time)

Post by sania » Tue Jun 23, 2009 8:19 am

convert DT WinCC ( Flexible ) into SQL (US time) from samples
http://support.automation.siemens.com/W ... n/26283062
make function DT_WinCC_to_SQL with input parameter DT_in (see codes)
now i call not Now() ,but DT_WinCC_to_SQL(Now)

Russian:
столкнулся с такой проблемой : несовпадение форматов DT WinCC ( Flexible ) и SQL (US time)
чтоб побороть это,создал в WinCC ( Flexible ) функцию DT_WinCC_to_SQL с входным параметром DT_in.
внутри такой код:
into function:

Code: Select all

DT_WinCC_to_SQL=CStr(CStr(DatePart("m",DT_in))& CStr("/")& CStr(DatePart("d",DT_in)) &_
       CStr("/")& CStr(DatePart("yyyy",DT_in))& CStr(" ")& CStr(FormatDateTime(DT_in,3)))
теперь в скриптах вызываю не Now(),а DT_WinCC_to_SQL(Now)
в таком виде неважны региональные настройки компа с WinCC ( Flexible )
sample:

Code: Select all

SQL_Table = "SELECT * FROM " & szTableName & " WHERE Date_Time =" &_
                         "'" & DT_WinCC_to_SQL(End_Date) & "'"
                         
'Writes a data record into a table
Set rst = conn.Execute(SQL_Table)	

SQL_Table = "INSERT INTO " & szTableName & " VALUES ('"& DT_WinCC_to_SQL(End_Date) & _
           "' , '" & aValue_1 & "' , '" & aValue_2 & "' , '" & aValue_3 &_
           "' , '" & aValue_4 & "' , '" & aValue_5 & "' , '" & aValue_6 &_
           "' , '" & DT_WinCC_to_SQL(aValue_7)     & "' , '" & aValue_9 & "')"

Vovan
Posts: 24
Joined: Fri Oct 13, 2006 11:24 am
Location: Russia

Re: [Example]: archiving data WinCC Flexible MSSQL CSV

Post by Vovan » Sat Oct 12, 2013 9:06 pm

Прошу прощения за оживления некропоста, но нет-ли возможности перезалить архив по исходной ссылке? К сожалению ссылка уже битая.
Спасибо.

Post Reply