Проблема с транзакциями

[funtik_sql]

Всем привет.
Проблема такая:
Есть программа в которой используется SQLServer2000.
После нажатия на одну из кнопок, я запускаю транзакцию.

Код: Выделить всё

cn.BeginTrans


После попытки выполнить SELECT возникает ошибка:

"Не удается создать новое подключение в режиме ручного или распределенного выполнения транзакции"

В чем может быть причина ошибки?

[shady]

После попытки выполнить SELECT возникает ошибка

А какой селект? SELECT INTO?

[funtik_sql]

После попытки выполнить SELECT возникает ошибка

А какой селект? SELECT INTO?

Обычный запрос на чтение.

Код: Выделить всё

select * from table

[alibek]

Может быть новая транзакция открывается на фоне уже запущенной?
OLEDB не допускает вложенных транзакций, вроде бы.

[funtik_sql]

Может быть новая транзакция открывается на фоне уже запущенной?
OLEDB не допускает вложенных транзакций, вроде бы.

А как узнать запущена еще одна транзакция или нет?

[S397]

Не удается создать новое подключение

Видимо перед выполнением Select создается новое соединение

[funtik_sql]

Не удается создать новое подключение

Видимо перед выполнением Select создается новое соединение

Если только неявно, потому что сам я никаких подключений не создаю.
ПОчему тогда ADO пытается создать подключение?

[Konst_One]

а зачем селект в транзакции выполнять?

[Antonariy]

Может быть новая транзакция открывается на фоне уже запущенной?

Нет, в этом случае описание ошибки так и гласило бы - типа уже есть транзакция.

а зачем селект в транзакции выполнять?

Вполне справедливый вопрос... Если select долгий, да еще из нескольких таблиц, то на время запроса все они будут заблокированы транзакцией.

funtik_sql, с какими параметрами открываешь соединение и рекордсет?

[funtik_sql]

Может быть новая транзакция открывается на фоне уже запущенной?

Нет, в этом случае описание ошибки так и гласило бы - типа уже есть транзакция.

а зачем селект в транзакции выполнять?

Вполне справедливый вопрос... Если select долгий, да еще из нескольких таблиц, то на время запроса все они будут заблокированы транзакцией.

funtik_sql, с какими параметрами открываешь соединение и рекордсет?

Код: Выделить всё

cn.BeginTrans
Set adoRs = New ADODB.Recordset
With adoRs
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    buf = "SELECT * FROM Users WHERE name='Ivan'"
    .Open buf, cn
    If .EOF = True Then      ' если запись не существует
        If Len(Value) <= .Fields(1).DefinedSize Then 'если длина в норме
            .AddNew
            CreateRecord = NewID(MyConn, TabName, .Fields(0).name)
            If CreateRecord Then
                .Fields(0).Value = CreateRecord
                .Fields(1).Value = Value
                rsWriteServInfo adoRs, 1, 0
               .Update
            End If
         End If
    End If
End With


[funtik_sql]

Селект не долгий.Ради экперимента выбирал одну строку из простой таблицы - та же ошибка.

[Konst_One]

Код: Выделить всё

cn.BeginTrans
Set adoRs = New ADODB.Recordset
With adoRs
    SET .ActiveConnection=cn
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    buf = "SELECT * FROM Users WHERE name='Ivan'"
    .Open buf
    If .EOF = True Then      ' если запись не существует
        If Len(Value) <= .Fields(1).DefinedSize Then 'если длина в норме
            .AddNew
            CreateRecord = NewID(MyConn, TabName, .Fields(0).name)
            If CreateRecord Then
                .Fields(0).Value = CreateRecord
                .Fields(1).Value = Value
                rsWriteServInfo adoRs, 1, 0
               .Update
            End If
         End If
    End If
End With

и все-таки я не понял зачем селект внутри транзакции

[funtik_sql]

Для проверки существования записей в БД.

[shady]

Для проверки существования записей в БД.

Можно сделать

Код: Выделить всё

SELECT count(*) WHERE ...

хотя что будет работать быстрее я незнаю.
И я бы вот так сделал

Код: Выделить всё

Set adoRs = New ADODB.Recordset
With adoRs
    SET .ActiveConnection=cn
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    buf = "SELECT * FROM Users WHERE name='Ivan'"
    .Open buf
    If .EOF = True Then      ' если запись не существует
        cn.BeginTrans
If Len(Value) <= .Fields(1).DefinedSize Then 'если длина в норме
            .AddNew
            CreateRecord = NewID(MyConn, TabName, .Fields(0).name)
            If CreateRecord Then
                .Fields(0).Value = CreateRecord
                .Fields(1).Value = Value
                rsWriteServInfo adoRs, 1, 0
               .Update
cn.CommitTrans
            End If
         End If
    End If
End With

[Andrey Fedorov]

Самое главное - а нафига тут вообще транзакция?
Применительно к данному коду.

[Konst_One]

я тоже пока не понял

[Ennor]

"Не удается создать новое подключение в режиме ручного или распределенного выполнения транзакции"

Прямо вот так и пишет, по-русски? Да, на каком именно месте возникает ошибка - на вызове метода Recordset.Open() или еще где?..

И еще, покажи код инициализации объекта ADODB.Connection.

[funtik_sql]

Самое главное - а нафига тут вообще транзакция?
Применительно к данному коду.

Это лишь часть кода где возникает ошибка.
Для выполнение последующих действий необходим запуск транзакции.

"Не удается создать новое подключение в режиме ручного или распределенного выполнения транзакции"

Прямо вот так и пишет, по-русски? Да, на каком именно месте возникает ошибка - на вызове метода Recordset.Open() или еще где?..

Да, ошибка по-русски.Возникает именно Recordset.Open().

И еще, покажи код инициализации объекта ADODB.Connection.

Код: Выделить всё


Set cn = New ADODB.Connection
buf = "File Name=" + DirPath + "file.udl"
cn.ConnectionString = buf
cn.Open


file udl:
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBSQL;Data Source=localcomp

[Antonariy]

С динамическим курсором транзакции вроде не работают... Или с оптимистической блокировкой. Здесь собака порылась.

[funtik_sql]

Да стоит добавить что в Access все пректасно работало.
Ошибки начали возникать именно при переходе на SQL2000

[alibek]

Закомментируй запрос и выполни SELECT @@TRANCOUNT. Все больше подозреваю вложенную транзакцию.

[Konst_One]

ну так нестэд транзакции не поддерживаются провайдером доступа к данным Microsoft OLE DB Provider for SQL Server

и вообще, все что ты там понаписал надо выносить на сервер SQL в виде хранимых процедур, а их уже запускать из твоего кода. Транзакции уже , если они конечно требуются, можно в хранимках юзать.

PS
пока сочинял, Алибек уже мысль уловил

[funtik_sql]

Закомментируй запрос и выполни SELECT @@TRANCOUNT. Все больше подозреваю вложенную транзакцию.

А где надо выполнить SELECT @@TRANCOUNT?
Если выполнять на сервере в момент когда программа выполняет BeginTrans то та 0(как до BeginTrans так и после BeginTrans)
С клиента не удается выполнить из-за той самой ошибки.

По поводу хранимок у меня имя таблицы и параметры не известны так что приходится на клиенте создавать запрос.

[Konst_One]

динамический SQL для этого существует на сервере и команды sp_executesql, exec, sp_execute