[?]: Начали глючить WinCC GlobalScript

[ligr]

Здравствуйте,
Имеется проект на WINCC 7.0 SP1, в котором работают скрипты по временному триггеру 1 сек и по изменению тега. Через неделю работы перестали выполнятся скрипты. Сначала перестали работать скрипты по изменению тега, а через пару дней по секунде. Хотя связь с контроллером есть и все теги опрашиваются нормально. После перезапуска проекта скрипты заработали.
В чем может быть проблема зависания GlobalScript?
P.S Скрипты написаны на VB.

Заранее спасибо.

[sania]

уверен что по секунде ещё 2 дня работали?мож кто процесс убил с таск-менеджера?

[ligr]

Уверен, скрипты разные.. пишут в БД.. да и доступа к компьютеру тому ни у кого доступа нет. Спрятан в шкафу Проверяем через удаленный рабочий стол..

[sania]

связь абсолютно одинаковая?
если есть выходы из скрипта,то может не происходить закрытия коннекшена к базе,набираться макс кол-во открытых подсоединений и новые не отрабатываются,проверяешь-то косвенно:есть/нет записи в базе.
P.S. неполохо было бы взглянуть на куски скрипта и логов,чтоб не гадать куда грабли зарыл

[ligr]

да вроде одинаковая.. и закрываем везде в конце соединение..

вот код

Code: Select all

Sub EAF2_TEMP

Dim OraConnectionString
Dim OraConnection
Dim OraCommand

On Error Resume Next

OraConnectionString = "Provider=MSDAORA.1;Password=1;User ID=espc2;Data Source=espc2;Persist Security Info=True"

	Set OraConnection = CreateObject("ADODB.Connection")

	OraConnection.ConnectionString = OraConnectionString
	OraConnection.Open
	
	Set OraCommand = CreateObject("ADODB.Command")
	OraCommand.CommandType = 1
	Set OraCommand.ActiveConnection = OraConnection		
	
		OraCommand.commandtext = "Insert INTO "&_
		"ARC_ESPC2_AGREGAT_TEMPERATURE ("&_
		"Heat_Number, "&_
		"TEMPERATURE, " & _ 
		"Time_HO, " & _
		"Time_MM, " & _
		"Agregat_id, " & _
		"SYS_DATE) " &_
		"VALUES("&_
		HMIRuntime.Tags("EAF2_HRP_SD_LST_HEAT_NUM").Read &", " &_
		HMIRuntime.Tags("EAF2_HRP_SW_ACT_SMPL_STL_TMP").Read &", " &_
		HMIRuntime.Tags("EAF2_HRP_SW_ACT_SMPL_TIME_HO").Read &", " &_
		HMIRuntime.Tags("EAF2_HRP_SW_ACT_SMPL_TIME_MM").Read &", " &_
		"11, "&_
		"to_date('" &_
		CStr(Date)&" "&CStr(Time)&"', '" &_
		"dd/mm/yyyy hh24:mi:ss')" &_
		")"

  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile("c:\ora_sql\EAF2_TEMP.txt", True)
  MyFile.WriteLine(OraCommand.commandtext)
  MyFile.Close

	OraCommand.execute
	OraConnection.Close
	
End Sub

а про логи я не знаю.. какие смотреть? и что?