Всем, Добрый день!
Парни, не могу понять в чем грабли. Добавляю из программы пользователей
Цепочка такая:
PREPARE SQLSA FROM "EXEC sp_adduser ?, ?";
PREPARE SQLSA FROM "EXEC sp_adduser ?, ?";

и т.д. После каждого вызова проверяю SQLCODE.
Ну и вот, добавление одного юзера срабатывает, все Ок. Добавляю следующего-ошибка:
Db Error Code:-1r
DB Error Message: The procedure 'sp_addlogin' cannot be executed within a transaction.
Заранее спасибо.

Commit есть :)). В том то и дело никак не пойму в чем грабли.
SQLCA.AutoCommit = TRUE еще стоит. Ладно бы если не добовлялся логин и пользователь при первом добавлении. Для следущего добавления это актуально только. Через процедуру тоже не получаеться, сиквел не компилит, требует явное объявление в синтексе, как константу, через переменную не воспринимает.

Грубо это написано так:
ELSE
PREPARE SQLSA FROM "EXEC sp_addlogin ?, '', 'ware'";
EXECUTE SQLSA USING :str_user.login;
IF SQLCA.SQLCODE <> 0 Then
MessageBox ("Îøèáêà", &
"Îøèáêà ñîçäàíèÿ ëîãèíà" + &
"~r~nDBParm: " + SQLCA.DBParm + &
"~r~nDb Error Code:" + String (SQLCA.SQLCODE) + &
"r~n" + "DB Error Message: " + SQLCA. SQLErrText, &
StopSign!, OK!, 1)
This.triggerevent("u_delete")
ELSE
COMMIT;
PREPARE SQLSA FROM "EXEC sp_adduser ?, ?";
EXECUTE SQLSA USING :str_user.login, :str_user.login;
IF SQLCA.SQLCODE <> 0 Then
MessageBox ("Ñîåäèíåíèå ñ áàçîé", &
"Îøèáêà ñîçäàíèÿ ïîëüçîâàòåëÿ" + &
"~r~nDBParm: " + SQLCA.DBParm + &
"~r~nDb Error Code:" + String (SQLCA.SQLCODE) + &
"r~n" + "DB Error Message: " + SQLCA. SQLErrText, &
StopSign!, OK!, 1)
This.triggerevent("u_delete")
ELSE
COMMIT;
PREPARE SQLSA FROM "EXEC sp_addrolemember 'db_owner', ?";
EXECUTE SQLSA USING :str_user.login;
IF SQLCA.SQLCODE <> 0 Then
MessageBox ("Ñîåäèíåíèå ñ áàçîé", &
"Îøèáêà îøèáêà äîáàëåíèÿ ïîëüçîâàòåëÿ â ðîëü" + &
"~r~nDBParm: " + SQLCA.DBParm + &
"~r~nDb Error Code:" + String (SQLCA.SQLCODE) + &
"r~n" + "DB Error Message: " + SQLCA. SQLErrText, &
StopSign!, OK!, 1)
This.triggerevent("u_delete")
ELSE
COMMIT;

EXEC sp_addlogin 'Admin1', 'Admin', 'ware'
GO
EXEC sp_adduser 'Admin1', 'Admin1'
go
EXEC sp_addrolemember 'db_owner', 'Admin1'
GO

EXEC sp_addlogin 'Admin2', 'Admin', 'ware'
GO
EXEC sp_adduser 'Admin2', 'Admin2'
go
EXEC sp_addrolemember 'db_owner', 'Admin2'
GO

Без проблем отрабатывает, GO не пречем , без него тоже все ОК из Query Analizer .

Когда столкнулся с проблемой, начал методом научного тыка искать :)). Для чистоты эксперемента заново сделал:

l_string="EXEC sp_addlogin '" +str_user.login+"', '', 'ware' EXEC sp_adduser '"+str_user.login+"','"+str_user.login+"'"
Все так же, первый добавляется, на втором ошибка:

DB Error Message: Procedure has not been executed or has no results

При для первого юзвера i= 0, при добавление 2-го i>0.

Интересно, а как другие регистрируют пользователей на сиквеле?

В догонку для KOLCHOZ_POSTEVENT
использую один объект транзакций SQLCA, который создаеться при запуске,
больше ни где disckonnect'a нет, и нет других объектов транзакций.

Для "funikovyuri" регистрация в ЕМ-это просто супер!!! :))
Следующая ступень для выборки данных пользователем нужно использовать Query Analizer.

Для "funikovyuri"........
Есть пользователь типа admin, в программе он может ТОЛЬКО добалять пользователей и просматривать аудит, остальное делать не может. Естественно пользователь "менеджер" не может добавлять других пользователей. :)) Вот так.

Для cbusel:
/*Другие юзают:
execute immediate :as_SQLStatement using SQLCA;
и не знают кто такой SQLSA.*/
А разница есть? . Сочуствую тем, кто не знает кто такой SQLSA :))
Проблема не в том, чем юзать, а в том что есть активная транзакция, при которой EXEC sp_addlogin теряется, не зная в рамках , какой выполнять процедуру.
Поэтому хотелось бы подробнее про @@trancount поговорить с ASCRUS!
Это актуально только для sp_addlogin ?
Т.к. у меня класс DW, где все нужные события сделаны. Для других таблиц все ОК, Засада только при добавлении логинов.

Вопрос снят, не хочеться лопатить свой класс DW(не стоит трудов, везде все ок). Использовал стандартный DW. Все работает.