Версия для печати темы

Автор: Egor Vladimirovich 27.05.2007 22:38

Помогите разобраться в чем ошибка.я прикрепил файлы задачи.Жмем на 3 вкладку (лечение), жмем назначить потом выбираем все что нужно потом применить и вот возникает ошибка. Пишет что то вроде не удаеться закончить при открытой базе. Помогите плз,а то курсяк здавать надо..... Заранее спасибо


Прикрепленные файлы
 delphi.zip ( 10.04 килобайт ) Кол-во скачиваний: 177

Автор: klem4 27.05.2007 23:24

Особо не вникал, но вот так по крайней мере не ругается на открытый датасет

// ...
Exc.SQL.Add('VALUES ("' + fm.dia_id + '","' + fm.bol_id + '","' +
                    fm.Edit1.Text + '","' + DateToStr(fm.DateTimePicker1.DateTime) + '");');

        lech.Close; // <-----------------------------------------------
        lech.ExecSQL;//...