Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Базы данных и репортинг > вернуть обшику из ХП(sql запроса) клиенту.


Автор: FasterHarder 24.1.2008, 12:37
Всем программистам привет! Respect! В общем есть малая проблемка, как такое реализовать: для простоты, есть форма, на ней edit и кнопка. Когда ввели в edit - имя контраг. нажимаем кнопку, при клике запускается вызов ХП на сервере MS 2000. ХП проверяет на дубликат новое значение и если такого нет делается insert, иначе НУЖНО ВЕРНУТЬ КЛИЕНТУ СООБЩЕНИЕ О ТОМ, что такой контрагент уже есть. Я незнаю как вернуть ошибку клиенту. Подскажите как быть то?
тестовый пример, затем легко переделать в ХП:

Код

declare @i int, @s varchar(30)
set @s = 'Ivanova'
begin tran
select @i = 1 where exists(select nameCustomer from customers where
                nameCustomer = @s)
if @i = 1 
begin
    print 'Такой участник уже существует' 
       // нужно сгенерировать ошибку(может raiseerror), а главное вернуть его клиенту
    rollback tran
end
else
begin
    insert into customers(nameCustomer) values(@s)  
    print 'Вставка прошла успешно'
    commit tran
end

Автор: Deniz 24.1.2008, 15:35
Код

declare @ret_code int, @err_message varchar(1000)
...
if @i = 1 
begin
  set @ret_code = -1
  set @err_message = 'текст об ошибке'
  ...
end
else
begin
  insert ...
  set @ret_code = @@IDENTITY
  set @err_message = ''
  ...
end
select @ret_code, @err_message

На клиенте exec <нужная процедура> <параметры>
проверяй ответ, @ret_code = 
> 0 - ошибок нет, id добавленной записи
< 0 - ошибка, текст в @err_message

Автор: FasterHarder 24.1.2008, 20:35
Спасибо Deniz, я сделал в итоге на клиенте все, на будущее учту ваш вариант  smile :
Код

procedure Tfrm_main.btn_addCustomClick(Sender: TObject);
var
    newCustom : string;
    b : boolean;
begin
    newCustom := trim(frm_main.Edit1.Text);
    if(length(newCustom) = 0) then
    begin
        messagedlg('Название заказчика не может быть пустым. Введите имя заказчика!', mtInformation, [mbOk], 0);
        frm_main.Edit1.SetFocus;
    end
    else
    begin
        b := frm_main.sql_tblCustom.Locate('nameCustomer', newCustom, [loCaseInsensitive]);
        if(b) then
        begin
            messageDlg('Заказчик с таким именем уже существует. Введите имя заказчика!', mtInformation, [mbOk], 0);
            frm_main.Edit1.SetFocus;
        end
        else
        begin
            frm_main.sql_tblCustom.Append;
            frm_main.sql_tblCustom.FieldByName('nameCustomer').AsString := newCustom;
            frm_main.sql_tblCustom.Post;
            messageDlg('Запись о заказчике успешно добавлена!', mtInformation, [mbOk], 0);
        end;
    end;
end;

Автор: Deniz 25.1.2008, 07:25
FasterHarder, не совсем корректный код, добавь:
Код

 ...
        frm_main.sql_tblCustom.Close; // эти 2 строчки нужны для забора новых данных с сервера,
        frm_main.sql_tblCustom.Open; //  может кто-то такую запись уже добавил ;-)
        // или сделать запрос на проверку в отдельной транзакции 

        b := frm_main.sql_tblCustom.Locate('nameCustomer', newCustom, [loCaseInsensitive]);
...

А вообще: 
Делаешь уникальный индекс по полю.
Добавляешь без проверки.
Ловишь и обрабатываешь исключение.

Автор: FasterHarder 25.1.2008, 13:10
Deniz, 
А вообще: 
Делаешь уникальный индекс по полю.
Добавляешь без проверки.
Ловишь и обрабатываешь исключение. 

это про клиента разговор или про сервер?

А что касается:
Код

 frm_main.sql_tblCustom.Close; // эти 2 строчки нужны для забора новых данных с сервера,
        frm_main.sql_tblCustom.Open; //  может кто-то такую запись уже добавил ;-)
        // или сделать запрос на проверку в отдельной транзакции 

        b := frm_main.sql_tblCustom.Locate('nameCustomer', newCustom, [loCaseInsensitive]);

то режим работы с БД будет однопользовательский. Я прекрасно понимаю что добавляется огромная куча гемора если разрабатывать под multi - user, я даже 5% незнаю свойств и методов, которые при этом нужно будет затрагивать. Эх, ламер я все таки.  smile 

Автор: Deniz 28.1.2008, 06:32
Цитата(FasterHarder @  25.1.2008,  16:10 Найти цитируемый пост)
это про клиента разговор или про сервер?
Индекс на сервере, а все остальное на клиенте.
Уникальный индекс не даст добавить 2 одинаковых значения, а в проверке есть потенциальная дырка. 
Пример:
Код

Транзакция 1 старт
Транзакция 2 старт
Транзакция 1 проверка
Транзакция 2 проверка
Транзакция 1 добавление
Транзакция 2 добавление
Транзакция 1 коммит
Транзакция 2 коммит
в данной ситуации могут появиться 2 одинаковых значения, причем чем больше пользователей, тем больше вероятность.

Цитата(FasterHarder @  25.1.2008,  16:10 Найти цитируемый пост)
то режим работы с БД будет однопользовательский
нужно всегда закладывать работу с несколькими пользователями.
Программы очень редко остаются однопользовательскими, и когда наступает час Х, перевод функциональность на несколько пользователей становится кошмаром.
Цитата(FasterHarder @  25.1.2008,  16:10 Найти цитируемый пост)
Я прекрасно понимаю что добавляется огромная куча гемора если разрабатывать под multi - user, я даже 5% незнаю свойств и методов, которые при этом нужно будет затрагивать.
ну куча не сильно большая, иногда достаточно некоторых знаний по СУБД и интуиции.

Все это ИМХО, и не стоит рассматривать как правду в последней инстанции  smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)