| Регистрация Правила Главная форума Поиск |
| 0
- 25.07.2012 - 11:00
|
Здравствуйте! 1С77, Win2003, SQL2000. На абсолютно безобидном участке кода 1С (внедрено и работает без изменений более года) начался сабж... Если Доки.НайтиПоНомеру(ТЗ.ИДДока)=0 Тогда : {Обработка.Обмен.Форма.Модуль(2863)**: SQL State: HYT00 Native: 0 Message: [Microsoft][ODBC SQL Server Driver]Время ожидания истекло Внешне вроде бы с данным сервером всё ОК, место есть, скульные регламенты на базе 1С (шринк, реиндекс и проч…) – регулярно выполняются… Куда копать?     | |
| 1
- 25.07.2012 - 12:42
| 0-DeiMos >копать на ветку форума "территория 1с" | |
| 2
- 25.07.2012 - 21:07
|
Проверить, кто захавал таблицу _1SJOURN. Например, так: Const ForWriting = 2 Dim cn, rs Dim fso, file, SqlStr Dim strUserName,strDomainName Const strComputer = "sql-server-fqdn-name" Const DB = "master" Const Uid = "sql-server-admin-login" Const Pwd = "sql-server-admin-password" Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile(strComputer&".txt", ForWriting, True) SqlStr = "select " &_ "db_name(dbid) as dbname," &_ "waittype," &_ "waittime," &_ "blocked," &_ "rtrim(waitresource) as waitresource," &_ "cpu," &_ "rtrim(program_name) as program," &_ "rtrim(hostname) as hostname," &_ "hostprocess," &_ "rtrim(cmd) as cmd " &_ "from sys.sysprocesses " &_ "where hostname<>'' and blocked<>0 " &_ "order by blocked desc" Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set cn = CreateObject("ADODB.Connection") With cn .Provider = "SQLOLEDB" .ConnectionString = "Server=" & strComputer & ";Database=" & DB &_ ";Uid=" & Uid & ";Pwd=" & Pwd & ";" .CursorLocation = adUseClient .Open End With Set rs = CreateObject("ADODB.Recordset") rs.CursorLocation = adUseClient rs.Open SqlStr, cn, adOpenStatic, adLockOptimistic file.WriteLine(" Пользователь Сервер Программа БД ЦПУ Блок Ожидание Команда Ресурс") file.WriteLine("---------------------------------------------------------------------------------------------------------------------------") Do Until rs.EOF Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate**!\\" & rs("hostname") & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process where ProcessID=" & rs("hostprocess")) For each objProcess in colProcesses colProperties = objProcess.GetOwner(strUserName,strDomainName) file.WriteLine(left(strDomainName&"\"&strUserName& space(20),20) &_ left(rs("hostname")&space(4),4) & space(4) &_ left(rs("program")&space(8),8) & space(4) &_ left(rs("dbname")&space(16),16) & space(4) &_ left(rs("cpu")&space(8),8) & space(4) &_ left(rs("blocked")&space(8),8) & space(4) &_ left(rs("waittime")&space(6),6) & space(4) &_ left(rs("cmd")&space(16),16) & space(4) &_ rs("waitresource")) Next rs.MoveNext Loop rs.Close cn.Close file.Close Dim processName, objShell, err processName = "notepad.exe " & strComputer & ".txt" Set objShell = CreateObject("Wscript.Shell") err = objShell.Run(processName) | |
| 3
- 31.07.2012 - 21:41
| флюкостаты не лезьте в тему | |
| 4
- 01.08.2012 - 18:41
| А это, осмелюсь спросить, с какого испугу? Или танкист узурпировал скрипты? | |
Интернет-форум Краснодарского края и Краснодара |
