- Код: Выделить всё
aConnection := TZConnection.Create(nil);
aConnection.Database := 'bwebschool';
aConnection.HostName := 'localhost';
aConnection.User := 'SYSDBA';
aConnection.Password := 'masterkey';
aConnection.Protocol := 'firebird-2.1';
aConnection.ReadOnly := TRUE;
//aConnection.TransactIsolationLevel := tiReadCommitted;
aConnection.Connect;
aConnection.StartTransaction;
aQuery := TZReadOnlyQuery.Create(nil);
aQuery.Connection := aConnection;
aQuery.SQL.Text := 'SELECT * FROM EXAMS_INDEX';
aQuery.Open; // <- ЗДЕСЬ
Exit;
Вот там где написано "<- ЗДЕСЬ" - всё падает с Runtime error: 216. С других таблиц - выбирает всё отлично... Да что же это такое?
UPD:
И последний штришок:
- Код: Выделить всё
aConnection := TZConnection.Create(nil);
aConnection.Database := 'bwebschool';
aConnection.HostName := 'localhost';
aConnection.User := 'SYSDBA';
aConnection.Password := 'masterkey';
aConnection.Protocol := 'firebird-2.0';
aConnection.ReadOnly := TRUE;
//aConnection.TransactIsolationLevel := tiReadCommitted;
aConnection.Connect;
aConnection.StartTransaction;
aQuery := TZReadOnlyQuery.Create(nil);
aQuery.Connection := aConnection;
aQuery.SQL.Text := 'SELECT ID, TEACHER, GRADE, CAPTION FROM EXAMS_INDEX';
aQuery.Open;
Exit;
- Код: Выделить всё
aConnection := TZConnection.Create(nil);
aConnection.Database := 'bwebschool';
aConnection.HostName := 'localhost';
aConnection.User := 'SYSDBA';
aConnection.Password := 'masterkey';
aConnection.Protocol := 'firebird-2.0';
aConnection.ReadOnly := TRUE;
//aConnection.TransactIsolationLevel := tiReadCommitted;
aConnection.Connect;
aConnection.StartTransaction;
aQuery := TZReadOnlyQuery.Create(nil);
aQuery.Connection := aConnection;
aQuery.SQL.Text := 'SELECT ID, TEACHER, GRADE, CAPTION, EXAM_DATE FROM EXAMS_INDEX';
aQuery.Open;
Exit;
Первый запрос отрабатывает нормально, второй - шиш - 216 и всё тут...\
UPD#2:
Грязным хаком (преобразование всех полей дат в текстовые) оно поднялось... Теперь как бы вытащить значения, возвращающиеся по RETURNING MY_FIELD.. TZQuery.ExecSQL ругается на отсутствие поля MY_FIELD, TZQuery.Open - старый добрый Runtime error: #216...
А всё-таки, кто-нибудь работает с огнептицей на x64?
Есть альтернатива zeos'у?
