Произошли ошибки во время выполнения многошаговой операции

Ситуация следующая:
Написал макрос для выгрузки данных из базы SQL Server в Excel. У меня все работает корректно. Отправил файл с макросом коллеге и у него появляется данная ошибка. Отдел безопасности говорит, что доступ ему предоставили.

Строка соединения:
ConnectionString = "Provider=SQLOLEDB;Data Source=server name; " _
& "Initial Catalog=database name; Integrated Security=SSPI; " _
& "IsolationLevel=adXactReadUncommitted"

Весь код

Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset, rec2 As New ADODB.Recordset
Dim vac As String

rec.CursorType = adOpenKeyset
rec.LockType = adLockOptimistic
rec2.CursorType = adOpenKeyset
rec2.LockType = adLockOptimistic

Application.ScreenUpdating = False
Лист1.Unprotect Password:="пароль"
лист2.Unprotect Password:="пароль"

лист1.Activate
лист1.Range("A7:U7").Select
лист1.Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents


лист2.Activate
лист2.Range("A7:R7").Select
лист2.Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
лист1.Activate

con.Open
rec.Open "SELECT * " & _
"FROM [database].[schema].[table] " & _
"WHERE [UserName] like '" & Application.UserName & "'", con
If rec.RecordCount <> 1 Then
    MsgBox "Сообщение" & _
    vbNewLine & "Продолжение сообщения", vbOKOnly
Else
    vac = rec.Fields("Столбец")
    rec.Close
    If vac <> "значение" Then
        rec.Open "SELECT *" & _
        "FROM [database].[schema].[table2]" & _
        "Where [Столбец2] = '" & vac & "'", con
        rec2.Open "SELECT *" & _
        "FROM [database].[schema].[table3]" & _
        "Where [Столбец2] = '" & vac & "'", con
    Else
        rec.Open "SELECT *" & _
        "FROM [database].[schema].[table2]", con
        rec2.Open "SELECT *" & _
        "FROM [database].[schema].[table3]", con
    End If
    Лист1.Range("A7").CopyFromRecordset rec
    Лист2.Range("A7").CopyFromRecordset rec2
    MsgBox "Готово"

End If

Лист1.Protect Password:="Пароль", _
    Contents:=True, DrawingObjects:=False, AllowUsingPivotTables:=True, _
    AllowSorting:=True, AllowFiltering:=True
Лист2.Protect Password:="Пароль", _
    Contents:=True, DrawingObjects:=False, AllowUsingPivotTables:=True, _
    AllowSorting:=True, AllowFiltering:=True
Лист1.Activate

Случалось ли вам видеть такую ошибку в своих программах на ADO.Net или ADODB?

А сколько времени вы бы потратили на поиск и устранения проблемы? ЦЕЛЫЙ ДЕНЬ или может быть НЕДЕЛЮ? Видя этот текст, совершенно не понятно, что искать!

Ситуация будет еще хуже если эта ошибка появляется случайным образом, а заказчик, у которого установлена программа находится далеко от вас.

По нашей статистике большинство ошибок подобного рода связаны с чтением и преобразованием значений колонок.

Чтобы не отнимать ваше время, в новой версии IBProvider Professional мы учли этот факт и разработали специальный механизм для повышения информативности сообщений об ошибках.

Теперь, вместо старых неинформативных ошибок, вы будете получать конкретные сообщения с номером колонки и статусом, которые позволят БЫСТРЕЕ решить проблему:

Ошибка получения данных колонки [номер: 1][COLUMN_NAME]. Статус: DBSTATUS_E_CANTCONVERTVALUE.

Посмотрите пример моделирования такой ситуации:

option explicit

dim cn
dim rs

set cn=createobject("ADODB.Connection")

cn.Provider="LCPI.IBProvider.3"

cn.Properties("location")    ="localhost:d:\database\ibp_test_fb25_d3.gdb"
cn.Properties("user id")     ="SYSDBA"
cn.Properties("password")    ="masterkey"
cn.Properties("ctype")       ="win1251"
cn.Properties("ctype_none")  ="win1251"
cn.Properties("auto_commit") =true

wscript.echo "point #001 (insert win2151 into NONE-column)"
wscript.echo ""

call cn.Open()

call cn.Execute("RECREATE TABLE TEST_NONE (COL_NAME_WITH_NONE_ENC VARCHAR(128) CHARACTER SET NONE)")

call cn.Execute("INSERT INTO TEST_NONE (COL_NAME_WITH_NONE_ENC) VALUES (_none 'русский текст (russian text)')")

set rs=cn.Execute("select * from TEST_NONE")

wscript.echo "str:"&rs(0).value

set rs=nothing

call cn.Close()

wscript.echo ""
wscript.echo "point #002 (select NONE-column with win1251 text as unicode_fss text)"
wscript.echo ""

cn.Properties("ctype")       ="unicode_fss"
cn.Properties("ctype_none")  ="unicode_fss"

call cn.Open()

set rs=cn.Execute("select * from TEST_NONE")

dim v

on error resume next

v=rs(0).Value

wscript.echo "GENERAL ERROR SOURCE:"&err.Source
wscript.echo "GENERAL ERROR DESCR:"&err.Description
wscript.echo "GENERAL ERROR CODE:"&err.Number

on error goto 0

wscript.echo

dim i

for i=0 to cn.Errors.Count-1
 wscript.echo "--- PROVIDER ERROR: "&cstr(i+1)
 wscript.echo "Source      : "&cn.Errors.Item(i).Source
 wscript.echo "Description : "&cn.Errors.Item(i).Description
 wscript.echo "Code        : "&cn.Errors.Item(i).Number
 wscript.echo "SQLState    : "&cn.Errors.Item(i).SQLSTATE
 wscript.echo "NativeError : "&cn.Errors.Item(i).NativeError
next

set rs=nothing

call cn.Close()

Вывод (output):

point #001 (insert win2151 into NONE-column)

str:русский текст (russian text)

point #002 (select NONE-column with win1251 text as unicode_fss text)

GENERAL ERROR SOURCE:LCPI.IBProvider.3
GENERAL ERROR DESCR:Ошибка получения данных колонки [номер: 1][COL_NAME_WITH_NONE_ENC].
                    Статус: DBSTATUS_E_CANTCONVERTVALUE.
GENERAL ERROR CODE:-2147217913

--- PROVIDER ERROR: 1
Source      : LCPI.IBProvider.3
Description : Ошибка получения данных колонки [номер: 1][COL_NAME_WITH_NONE_ENC].
              Статус: DBSTATUS_E_CANTCONVERTVALUE.
Code        : -2147217913
SQLState    :
NativeError : 2253

В новой версии IBProvider Professional Edition помимо информативности сообщений:

• Улучшено кеширование метаданных при работе со значениями колонок
• Оптимизировано использование памяти под метаданные
• Улучшена работа с OCTETS-блобами (FB2.1, FB2.5)
• Исправлено несколько ошибок. Рекомендуем клиентам обновиться до последней версии

← →
TechnoDreamer
 
(2004-11-02 03:29)
[0]

Собственно прога выдает во время рунтайма следующее сообщение:
«Произошли ошибки во время выполнения многошаговой операции. Проверьте значение всех состояний». Происходит во время рекурсивной функции, насколько я вижу только в тех случаях где рекурсия большая. Я прав? Кто нибуть сталкивался?
Что делать? Может есть какая директива компилятору, типа там, стек увеличить или еще что, которая влияет на это?
Или придется убирать рекурсию? Жалко было бы, такая аккуратная функция получилась :-(((

← →
R ©
 
(2004-11-02 03:58)
[1]

А код привести можно.

← →
Defunct ©
 
(2004-11-02 04:30)
[2]

← →
Fay ©
 
(2004-11-02 06:36)
[3]

Переделай в цикл.

← →
KSergey ©
 
(2004-11-02 08:19)
[4]

Очеь похоже на сообщение от ADO… Оно используется?

← →
TechnoDreamer
 
(2004-11-02 18:29)
[5]

← →
TechnoDreamer
 
(2004-11-02 18:29)
[6]

← →
KSergey ©
 
(2004-11-03 12:57)
[7]

← →
TechnoDreamer
 
(2004-11-03 18:46)
[8]

← →
KSergey ©
 
(2004-11-04 06:53)
[9]

> Я говорил:
> //Есть дерево (TTreeView) и база на Access через ADO//

Прошу прощения, просмотрел.
Тогда, думаю, приведенная мною ссылка должна помочь — там именно про Access и очень много. (только читать все 3 части)

← →
Erik1 ©
 
(2004-11-04 10:31)
[10]

Вобщето стоит перейти на DOA, это избавить от дополнительной прослойуи в лице ADO и повысит скорость работы. Я советую компоненты diamond www.islamov.com Кое что даже сам правил, но назнаю включил ли он это в свою версию.