External: SIGSEGV при обращении к БД через ZQuery

[Spectr]

Lazarus 1.26 i386
fpc 2.6.2
zeoslib 7.1
MySQL 5.1

При запуске процедуры в программе возникает данная ошибка в отношении каждой из этих строк:

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

 
  DM1.QueryDiagnozy.DataSource.DataSet.Edit; //отсутствие строки также не на что не влияет
  DM1.QueryDiagnozy.DataSource.DataSet.Fields[3].AsString:=DateToStr(Date);
  DM1.QueryDiagnozy.DataSource.DataSet.Fields[1].AsString:=Form3.DBText1.Caption;
  DM1.QueryDiagnozy.DataSource.DataSet.Fields[0].AsString:=Form3.DBText5.Caption;

Что самое интересное - при попытки ввести данные в таблицу вручную через DBEdit и затем сделать апдейт(DM1.QueryDiagnozy.ApplyUpdates;) данные вносятся в БД и сохраняются!
Также не составляет труда получить данные из БД через ZQuery.

Та же самая ошибка срабатывает и в отношении всех другие ZQuery.

[alexs]

DM1.QueryDiagnozy.DataSource.DataSet

А это что такое???

[Spectr]

DM1.QueryDiagnozy.DataSource.DataSet

А это что такое???

DM1 - название дата модуля
QueryDiagnozy - название ZQuery компонента в дата модуле
DataSource.DataSet - нечто необъяснимое, но очень важное, ибо вот этот код у меня работает:

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

x:=DBGrid2.DataSource.DataSet.Fields[0].AsString;

[alexs]

Всё плохо.
В вашей ситуации надо:

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

DM1.QueryDiagnozy.Edit;
DM1.QueryDiagnozy.Fields[3].AsString:=DateToStr(Date);
DM1.QueryDiagnozy.Fields[1].AsString:=Form3.DBText1.Caption;
DM1.QueryDiagnozy.Fields[0].AsString:=Form3.DBText5.Caption;
DM1.QueryDiagnozy.Post;

Вообще не рекомендую обращаться по индексу поля - могут быть странности
Лучше так:

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

DM1.QueryDiagnozy.FieldByName('<Тут имя поля>').AsString:=

Или, что ещё лучше, в случае если запросы в компонентах не переписываются - то просто двойным щёлчком мыши по компоненте QueryDiagnozy открыть редактор полей, по правой кнопке мышки добавить поля и работать уже через эти объекты напрямую.

DataSource.DataSet - нечто необъяснимое, но очень важное, ибо вот этот код у меня работает:

Это не магия - это ссылка на источник данных, который является мастером для текущего.
У вас она пустая - соответсвенно и ошибка обращения.

[Spectr]

Спасибо огромное! Я совершенно забыл про свойства полей в Query! Оказалось, что по умолчанию у ZQuery - ReadOnly:=False, НО у его полей по умолчанию ReadOnly:=True!!
Из-за этого у меня вылезала ошибка " Readonly field cannot be assigned a value ", и скорее всего поэтому была ошибка SIGSEGV(так как я пытался обойти параметр ReadOnly).

3.jpg