FreePascal.ru

Решил вопрос заменой UIBQuery на FBDataSet от Алексея Лагунова.

Vadim писал(а):Замените компонент TMemo на TDBMemo.

Не помогает

Добрго времен суток.

Подскажите, пожалуйста, каким образом добавить в поле NAME_DS_DOPOLNEN с типом BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET UTF8 данные из TMemo.
На форме fmDiagnos лежит TMemo mDsDopolnen. По нажатии кнопки сохранить (запрос для примера упрощен):

quTemp.SQL.Clear ...

есть 2 варианта
1) zqHospitalInEdit.SQL.Text= 'INSERT INTO hospital_in (<вводимые поля>) 'VALUES (<вводимые значения>) RETURNING :ResultId';
результат получается что-то вроде zqHospitalInEdit.ParamByName('ResultId').AsInteger;


RETURNING :ResultId у меня не захотел работать

Сделал по 2 варианту ...

Вот эту процедуру надо дергать перед вставкой записи и значение присваивать полю с ID.

А не получиться так, сработавший триггер сгенерирует ID 1 пользователю и в это же время 2 пользователь затеет вставку и ему так же будет сгенерирован этот же ID.
Мне бы хотелось получить ID после вставки ...

Помогите, пожалуйста, теперь сделать то-же самое, т.е узнать значение ID только, что вставленной записи, но уже для Firebird.
Имеем (для примера лишнее убрано)
quTemp.SQL.Clear;
quTemp.SQL.Add('INSERT INTO hospital_in (medical_type 'VALUES (:medical_type) RETURNING id_hospital_in ');
quTemp.Open ...

Спасибо огромное.

Доброго времени суток.

Подскажите, пожалуйста, в каком свойстве возвращается имя выбранной директории в SelectDirectoryDialog.
Я в свойства ничего похожего на Directory не нашел. Гугл спрашивал.

Спасибо.

Пытаюсь создать отчет.
Помещаю band Мастер-данные (у него выставлено свойство Растягиваемый)
на band Мастер-данные помещаю поля из набора данных (следуют друг под другом)
[zqDnevnikHospitalIn."date_osmotr"]
[zqDnevnikHospitalIn."dnevnik_text"] тип поля Text (выставлено свойство Растягиваемый)
Если ...

Спасибо, alex_rain.
Так сработало.

Есть необходимость узнать значение автоинкриментного id_hospital_in (первичный ключ) только, что вставленной записи.
В обработчике Click (кнопка Сохранить) - запрос (для примера остальные значения убраны):
zqHospitalInEdit.SQL.Clear;
zqHospitalInEdit.SQL.Add('INSERT INTO hospital_in (id_hospital_in ...

поправь - сделай патчик, я его включу в исходники.
Как делать патчик я пока не знаю
Подправил в следующих местах:
TFBDataSetSortEngine = class(TExDBGridSortEngine)
заменил на:
TFBDataSetSortEngine = class(T R xDBGridSortEngine) (по Вашему совету)
далее:
procedure Sort(Field:TField; ADataSet ...

Замени в тексте exsortzeos.pas TExDBGridSortEngine на TRxDBGridSortEngine

Заменил. Дальше останавливается на строке:
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);override;
с ошибкой:
exsortzeos.pas(13,15) Error: There is no method in an ancestor class to be overridden ...

Доброго времени суток.

Пакет rxnew 2.1.2.105
Добавил в папку с проектом exsortzeos.pas в разделе uses написал exsortzeos.
На форме лежит RxDBGrid.
При попытке скомпилировать ошибка в строке:
TFBDataSetSortEngine = class(TExDBGridSortEngine)

exsortzeos.pas(11,51) Error: Identifier not found ...

WAYFARER писал(а):Можно попробовать родные компоненты SQLdb,

Попробовал на родном компоненте SQLdb - отображаются поля БД.
Значит проблема в zeos.