что то с базой

[Stilet]

но с ошибкой разобрался

Что-то не вижу чтоб разобрался.
Вот я бы на твоем месте написал хотя бы читабельно:

   
begin
 With datamodule2.IBQuery3 do begin
  Open;
   label1.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
   if not FindNext then exit;
   label2.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
   if not FindNext then exit;
   label3.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
 Close;
end;

И прошелся по шагам, а вдруг поле NAME пустые?

[artemavd]

procedure TForm1. FormCreate(Sender: TObject);

Попробуй не в procedure

TForm1. FormCreate(Sender: TObject);

, а в

procedure TForm1. FormActivate(Sender: TObject);

[Dark_Spirit]

 procedure TForm1. FormCreate(Sender: TObject);
   begin
        datamodule2.IBQuery3.Open;
        label1.Caption:=  datamodule2.IBQuery3.FindField('NAME').AsString +'   '+
           datamodule2.IBQuery3.FindField('DAT').AsString;
      datamodule2.IBQuery3.Next;
   label2.Caption:=  datamodule2.IBQuery3.FindField('NAME').AsString +'   '+
        datamodule2.IBQuery3.FindField('DAT').AsString;
    datamodule2.IBQuery3.Next;
   label3.Caption:=  datamodule2.IBQuery3.FindField('NAME').AsString +'   '+
       datamodule2.IBQuery3.FindField('DAT').AsString;
 datamodule2.IBQuery3.Open;
 datamodule2.IBQuery3.Close;

   //datamodule2.IBQuery3.ExecSQL;
end;

этот код лучше вешать на событие onShow формы
а зачем выделенная строка? )

[Domanoff]

Сообщение от Stilet

Что-то не вижу чтоб разобрался.
Вот я бы на твоем месте написал хотя бы читабельно:

   
begin
 With datamodule2.IBQuery3 do begin
  Open;
   label1.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
   if not FindNext then exit;
   label2.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
   if not FindNext then exit;
   label3.Caption:=FindField('NAME').AsString +'   '+FindField('DAT').AsString;
 Close;
end;

И прошелся по шагам, а вдруг поле NAME пустые?

не пустые, проверил - просто не хочет посему то выводить русские символы, хотя в базе они вполне заполняются может что то с настройками?

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

Сообщение от artemavd

Попробуй не в procedure

TForm1. FormCreate(Sender: TObject);

, а в

procedure TForm1. FormActivate(Sender: TObject);

все равно тож самое

и вообще ребят, ПОЧЕМУ У МЕНЯ НЕ СРАЗУ ОБНОВЛЯЮТСЯ ДАННЫЕ В ПРИЛОЖЕНИЯ, т е из одной формы заполняю, перехожу на другую которая должна вывести эти данные, а она не выводит.....выводит только после перезапуска приложения ?!?!?!? как так?

[Dark_Spirit]

перехожу на другую которая должна вывести эти данные, а она не выводит.....выводит только после перезапуска приложения ?!?!?!? как так?

на второй форме переоткрой набор для отображения данных

[Stilet]

Domanoff

Ты можешь прикрепить архив проекта с базой сюда?

[Domanoff]

что это за ошибка - XSQLDA index out of range?

с ошибкой этой! и со всеми косяками вообщем

ребят вроде все исправил кроме вывода при активации формы и еще

SELECT NAME, DAT
FROM MEROPRIAT

order BY 2 desc

это по убыванию сортировка, а по возрастанию как и еще хотелось бы добавить чтоб сортировала только меньше текущей даты как это сварганить?

Сообщение от Dark_Spirit

на второй форме переоткрой набор для отображения данных

procedure TForm1.Button1Click(Sender: TObject);
begin

datamodule2.IBQuery2.Open;
 datamodule2.IBQuery2.close;

   datamodule2.IBQuery2.Open;

 label1.Caption:=   datamodule2.IBQuery2.FindField('NAME').AsString +'   '+

  datamodule2.IBQuery2.FindField('DAT').AsString;
      datamodule2.IBQuery2.Next;
   label2.Caption:=   datamodule2.IBQuery2.FindField('NAME').AsString +'   '+

  datamodule2.IBQuery2.FindField('DAT').AsString;
    datamodule2.IBQuery2.Next;
   label3.Caption:=   datamodule2.IBQuery2.FindField('NAME').AsString +'   '+

  datamodule2.IBQuery2.FindField('DAT').AsString;
     datamodule2.IBQuery2.close;
end;

вот так? не работатет(, обновляется только если я вроде как это же делаю в другой форме, (вместе с операцией заполнения при помощи другого query)

From Stilet: Прекращай подряд сообщения постить, читать неудобно. У нас для этого есть кнопка правки.

[Stilet]

а по возрастанию как

order BY 2 asc

сортировала только меньше текущей даты

Ну не знаю как в интербейсе, а в MS SQL есть
Where DAT<SYSTEMDATETIME().
Вот узнай есть ли в интербейсе что-то типа SYSTEMDATETIME() и напиши такое условие перед Order

[Domanoff]

вроде получилось приблизительно насчет запроса спасибо щас проверю, расскажите все же как при активации чтоб выводило почему у мя не выводит?

[Stilet]

Ну этого я пожалуй тебе не смогу сказать. Оказывается я Интербейс у ся грохнул давно...