Здравствуйте, Аноним, Вы писали:

А>Перепала мне в "наследство" системка одна... Третий день бьюсь... Есть там функция конвертирования БД, (около 40000 записей), и, где-то в этой исходной базе есть ошибка структуры, и за которой весь процесс встаёт....
А>Вобщем вопрос: как бы реализовать на VBScript чтобы при появлении ошибки выполнения запроса SQL системка продолжала работать...
А>Подключение к БД:

А>filePath = Server.MapPath("database.mdb")
А>Set oConn = Server.CreateObject("ADODB.Connection")
А>oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

А>запрос выполняется:
А>oConn.Execute "insert into....."

А>ОС на сервере — Win2k3

on error resume next написать в скрипте, а после инсерта можно проверить if err.number <> 0 then wscript.echo('облом!') Err.Clear end if

Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, Andy_MAN, Вы писали:

A_M>>on error resume next написать в скрипте, а после инсерта можно проверить if err.number <> 0 then wscript.echo('облом!') Err.Clear end if

А>Спасибо, но не работает :( может я не там пишу...
А>Ещё на MSDN нашёл http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vastmResume.asp , но тоже ругается на ошибку:
А>
А>On Error GoTo DataBaseError
А>--------------^
А>



   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   Dim x As Integer = 32
   Dim y As Integer = 0
   Dim z As Integer
   z = x / y   ' Creates a divide by zero error
   Exit Sub   ' Exit Sub to avoid error handler.
ErrorHandler:   ' А вот это сделано???