plcforum.uz.ua

International PLC Forum
It is currently Tue May 23, 2017 11:37 pm

All times are UTC + 3 hours




Post new topic Reply to topic  [ 4 posts ] 
Author Message
PostPosted: Sat Jun 20, 2009 5:14 pm 

Joined: Sat Jun 20, 2009 5:01 pm
Posts: 3
Location: Ukraine
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


Top
 Profile  
 
 Post subject:
PostPosted: Tue Jun 23, 2009 11:17 am 
Site Admin

Joined: Sat Aug 13, 2005 9:15 am
Posts: 1076
предлагаю подправить,чтоб можно было вписать путь файла из рантайм:
Image Image Image Image


Top
 Profile  
 
PostPosted: Tue Jun 23, 2009 11:19 am 
Site Admin

Joined: Sat Aug 13, 2005 9:15 am
Posts: 1076
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:
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:
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 & "')"


Top
 Profile  
 
PostPosted: Sun Oct 13, 2013 12:06 am 

Joined: Fri Oct 13, 2006 2:24 pm
Posts: 24
Location: Russia
Прошу прощения за оживления некропоста, но нет-ли возможности перезалить архив по исходной ссылке? К сожалению ссылка уже битая.
Спасибо.


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 4 posts ] 

All times are UTC + 3 hours


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by International PLCforum® Forum Software © PLCforum
Mobile version