Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2009, 14:06   #1
Skazi21101
 
Регистрация: 28.10.2008
Сообщений: 3
По умолчанию Проблема с ADOStoredProc

SQL 2000 Server
Есть хранимая процедура Pass_upd
CREATE PROCEDURE Pass_UPD
@worker_surname varchar(50),
@password varchar(50)
AS
UPDATE worker SET password=@password WHERE worker_surname=@worker_surname
GO

На форме combobox и maskedit, ADOconnection, ado query & adostoredproc. В свойствах adostoredproc задано adoconnection и хранимая процедура.
Данные на сервак передаю следующим образом:

Код:
procedure TAdm_ChangePass.Button1Click(Sender: TObject);
var k: integer;
s: string;
begin
Try
ADOConnection1.BeginTrans;
with DM.ADOStoredProc1 do
begin
k:=Combobox1.ItemIndex;
s:=Combobox1.Items.Strings[k];
Parameters.ParambyName('@worker_surname').Value:=s;
Parameters.ParamByName('@password').Value:=MaskEdit1.Text;
end;
ADOStoredProc1.ExecProc;
ADOConnection1.CommitTrans;
Except
ADOConnection1.RollbackTrans;
ShowMessage('Невозможно выполнить. Повторите.');
end;
Когда пытаюсь активировать adostoredproc то в ответ получаю ругань adostoredproc1 command text does not return a result set.
Что не так?

Последний раз редактировалось artemavd; 09.05.2011 в 12:26.
Skazi21101 вне форума Ответить с цитированием
Старый 06.05.2009, 14:19   #2
Skazi21101
 
Регистрация: 28.10.2008
Сообщений: 3
По умолчанию

вопрос снимается так как без того что бы в делфях поставить у storedproc свойство active все прекрасно работает
Skazi21101 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как остановить процедуру ADOStoredProc с установленным ExecuteOptions:=[eoAsyncExecute]; Иванчо БД в Delphi 3 30.05.2012 13:43
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37