Скажу сразу что DBGrid я не использую, а использую стандартные компоненты типа ListBox или ListView. На лазарус сел буквально числа 10го, поэтому ещё многое не могу понять. Собственно проблема в следующем пишу следующий код:
- Код: Выделить всё
procedure TfmMain.miConnectClick(Sender: TObject);
begin
ibcon.DatabaseName:=ExtractFilePath(Application.ExeName)+'base\CONTRACTS.FDB';
ibcon.UserName:='SYSDBA';
ibcon.Password:='masterkey';
ibcon.HostName:='localhost';
ibcon.CharSet:='UNICODE_FSS';
ibcon.Open;
sqltrans.StartTransaction;
if ibcon.Connected then sbMain.SimpleText:='Connected to '+ibcon.HostName;
ibsql.SQL.Text:='select "Name" from "ShowClientGroups"';
ibsql.ExecSQL;
ShowMessage(IntToStr(ibsql.FieldCount));
while not ibsql.EOF do
begin
ShowMessage('1');
lbGroups.Items.Add(ibsql.FieldByName('Name').Text);
ShowMessage('2');
end;
ibsql.Close;
sqltrans.Commit;
end;
ibcon: TIBConnection
sqltrans: TSQLTransaction
ibsql: TSQLQuery
Запрос указанный в SQL.Text прекрасно работает в FlameRobin и выдает данные. В лазаре почему-то запрос не выдает ничего. В чем может быть проблема? Понимаю то, что где-то мой косяк в коде... Но вот найти пока не могу...