UIB+Lazarus

[VAshot]

При выполнении запроса TrendDataSet.Open, заданного по умолчанию, всё работает нормально.

Но при переопределении запроса к БД:

Код: Выделить всё

    TrendQuery: TJvUIBQuery;
    TrendDataSource: TDatasource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    TrendDataSet: TFBDataSet;
    TrendDataBase: TJvUIBDataBase;
    JvUIBTrRead: TJvUIBTransaction;
    JvUIBTrWrite: TJvUIBTransaction;

procedure TViewForm.SetQuery(sT: String);
begin
   TrendQuery.SQL.Clear;
   TrendQuery.SQL.Add('SELECT * FROM '+ sT);
   TrendQuery.ExecSQL;
end;

procedure TViewForm.ExecQuery;
begin
   TrendDataSet.CloseOpen;
   TrendDataSet.QuerySelect.SQL := TrendQuery.SQL;
   TrendDataSet.Open;
end;


всё выполняется, но после закрытия программы, происходит ошибка.
"External SIGSEGV"

Подскажите, пожалуйста, где ошибка, может что-то забыл выполнить?


Win2k, Lazarus 0.922, firebird 2.0.3

[Сергей Смирнов]

Может тут ошибка:

TrendDataSet.QuerySelect.SQL := TrendQuery.SQL;

Стринглисты присваивать просто так опасно, надо копировать.

[Attid]

везде.

TrendQuery.SQL.Clear;
TrendQuery.SQL.Add('SELECT * FROM '+ sT);
TrendQuery.ExecSQL;

зачем тебе ExecSQL если ты там селект написал ? он для инсертов или апдейтов.

TrendDataSet.CloseOpen;
TrendDataSet.QuerySelect.SQL := TrendQuery.SQL;

сначало переоткрываешь, а потом запрос меняешь ? =)
не больно самому себе на йаца наступать, а потом бежать ? =)

[Attid]

Может тут ошибка:

TrendDataSet.QuerySelect.SQL := TrendQuery.SQL;

Стринглисты присваивать просто так опасно, надо копировать.

угу как минимум

Код: Выделить всё

TrendDataSet.QuerySelect.SQL.text := TrendQuery.SQL.text;

[VAshot]

Пробовал и так:

Код: Выделить всё

    TrendDataSet.Close;
    TrendDataSet.QuerySelect.SQL.Text := 'SELECT * FROM Material';
    TrendDataSet.Open;


Тот же результат, сами запросы на отображение работают, но при закрытии программы ошибка, если не менять запрос, то завершение программы происходит нормально.

[Attid]

еслиб из-за этого ошибка былаб, была бы она сразу, пробуй

Код: Выделить всё

TrendDataSet.QuerySelect.SQL.text := TrendQuery.SQL.text;

у тебя скорее всего при твоем способе указатель идет на другой обьект, при закрытии он уничтожается 2 раза, и дает AV, а в памяти еще другой остается.

[alexs]

А зачем хакерством занимаешся? в потроха набора лезиш. Оставь дырку - обязательно найдётся те, кто этим воспользуется . Я абсолютно не для этого QuerySelect публичным делал, чтобы напрямую в него запрос писали.
Для заполнения запроса предназначено свойство
TrendDataSet.SQLSelect
т.е. твой код должен выглядеть так:

Код: Выделить всё

TrendDataSet.Close;
    TrendDataSet.SQLSelect.Text := 'SELECT * FROM Material';
    TrendDataSet.Open;


а ошибка происходит потому что при твоём подходе ты нарушеш весь механизм расшифровки макросов. Вот оно и рубится. Если интересно - посмотри исходники.

[Сергей Смирнов]

А зачем хакерством занимаешся? в потроха набора лезиш. Оставь дырку - обязательно найдётся те, кто этим воспользуется .

Сам виноват - понаплодил пропертей - у народа глаза разбегаются

[alexs]

Дык я их специально публишед не далал, чтобы в инспекторе не видно было
думал спрячутся
p.s.
Там сейчас Саша Литягин начал что-то делать насчёт прикручиванию уникодов, я к нему тоже скоро наверное присоеденюсь (вроде время должно появиться), так что если всё пойдёт как хочется - будет нормальная работа с уникодами - меня в этом больше всего интересует нормальная работа с UTF8.

[VAshot]

2 alexs

Спасибо.




Вот такой вопрос возник: доки и обзорные сравнения различных компонент для БД есть где-нибудь в сети? Например, в чем плюсы/минусы UIB и FIBL (ну кроме SQL Editor)?
Устроит ответ "Ищи", если, конечно, есть что искать.

[Сергей Смирнов]

Вот такой вопрос возник: доки и обзорные сравнения различных компонент для БД есть где-нибудь в сети? Например, в чем плюсы/минусы UIB и FIBL (ну кроме SQL Editor)?
Устроит ответ "Ищи", если, конечно, есть что искать.

Документации-то толком на компоненты нету, а Вы хотите сравнения
Ну, если в 2-х словах, то отличия UIB и FIBL такие:
* UIB потокобезопасен (не всегда это актуально)
* UIB богаче по составу (есть компоненты по управлению пользователями, подписка на события и т.п.)
* Для UIB есть датасет, сделанный Алексеем, который вполне приближается по функционалу к FIB+, включая работу с двумя транзакциями
* UIB поддерживает практически все версии и птички и интербейс
* FIBL заметно слабее функционально, но зато и проще
* В FIBL несколько иначе реализована работа с параметрами, в т.ч. для master-detail

Наверняка чего-то забыл

[Brainenjii]

Мне в FIBL не понравилось, что Field[x].AsString не вытаскивает строки из blob'a, хотя SUB_TYPE у поля прописан как TEXT... UIB не пробовал даже, хотя управление пользователями - это гут, надо будет поставить ^_^ Сам пользуюсь FBLIB - он строки вытаскивает и не приходится возиться с параметрами, удобно ^_^

[Attid]

Наверняка чего-то забыл

самое главное, чем больше фич тем больше верояность ошибки =)
сегодня новую нашел =) пошел жаловаться.

[alexs]

это точно

[VAshot]

Не подскажите, как правильно использовать JvUIBStoredProc?
(с параметрами)

Код: Выделить всё

FBDataSet1.Transaction.StartTransaction;

JvUIBStoredProc1.StoredProcName:='NPR';
JvUIBStoredProc1.SelectProc:=true;

[b]
JvUIBStoredProc1.Params.ByNameAsInteger['I1']:=6;
.....
[/b]

JvUIBStoredProc1.Prepare; 
JvUIBStoredProc1.ExecProc;

FBDataSet1.Transaction.Commit;
FBDataSet1.Active:=true;


или нужно использовать SQL поле?

Код: Выделить всё

JvUIBStoredProc1.SQL.Close;
JvUIBStoredProc1.SQL.Text:='execute procedure npr (:I1)';


Вопросы, наверное, глупые, но это моя первая реализация интерфейса.