Не происходит заполнение таблицы

[Stilet]

не чего не вышло поэтому и спросил.

Что не вышло?
Ты внимательно прочитал что я тебя попросил сделать в посте №4?

[Lokos]

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

Что не вышло?
Ты внимательно прочитал что я тебя попросил сделать в посте №4?

не получилось узнать какое значение возвращает. По причине того что не знаю как это сделать

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

не получилось узнать какое значение возвращает. По причине того что не знаю как это сделать

Заметил интересную вещ.
Есть 2 кнопки.
Код первой

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.pFIBDataSet1.Close;
 Form1.pFIBDataSet1.SQLs.SelectSQL.Text:='SELECT * FROM NT';
 Form1.pFIBDataSet1.Open;
 Form1.pFIBDataSet1.Active:=True;
end;

Выводит в DBGrid столбцы имеющиеся в таблицы в моем случае ID и KOL
Код второй кнопки

procedure TForm1.Button2Click(Sender: TObject);
begin
   pFIBDataSet1.Close;
   pFIBDataSet1.SQLs.SelectSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(1,1)';
   pFIBDataSet1.Open;
   Form1.pFIBDataSet1.Active:=True;
end;

Добавляет запись
И вот что происходит если нажать на вторую кнопочку а потом на первую то в DBGrid'e появляются записи все как и положенно.
Но после перезапуска они исчезают тоесть не происходит сохранение.
Так же записи не появляются в таблице при просмотре ее IBExpert'om
Убрал из таблицы все not_null'ы и ключи.

[Stilet]

не получилось узнать какое значение возвращает. По причине того что не знаю как это сделать

Внимательно читай пост #6!

Во-первых:

Form1.pFIBDataSet1.Open;
Form1.pFIBDataSet1.Active:=True;

Это равноценные операторы. Либо пользуйся одним либо другом.
Я рекомендую пользоваться Form1.pFIBDataSet1.Active:=True; для открытия набора

Во-вторых:

Но после перезапуска они исчезают тоесть не происходит сохранение.

Так посмотри какой метод для того компонента должен сохранять в базу обычно это метод имеет имя Post
И потом Я не знаю IB но по-моему и там метод Open применяется только для получения набора, так что для INSERT он по идее не должен сработать.

[Lokos]

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

Внимательно читай пост #6!

Во-первых:

Это равноценные операторы. Либо пользуйся одним либо другом.
Я рекомендую пользоваться Form1.pFIBDataSet1.Active:=True; для открытия набора

Во-вторых:

Так посмотри какой метод для того компонента должен сохранять в базу обычно это метод имеет имя Post
И потом Я не знаю IB но по-моему и там метод Open применяется только для получения набора, так что для INSERT он по идее не должен сработать.

попробывал изменить код следующим образом

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=True;
   pFIBDataSet1.Append;
   pFIBDataSet1.SQLs.SelectSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(1,1)';
   Form1.pFIBDataSet1.Active:=True;
end;

Появляется ошибка.

procedure TForm1.Button3Click(Sender: TObject);
begin
pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO NT (ID,KOL) VALUES(:N,:KOL)';
Form1.pFIBQuery1.ParamByName('N').Value:=2;
Form1.pFIBQuery1.ParamByName('KOL').Value:=2;
Form1.pFIBQuery1.ExecQuery;
end;

Следующий код также добавляет запись но она исчезает после перезапуска но тут нет не Open не Active

[Stilet]

но она исчезает после перезапуска

Может ты всетки будешь читать посты внимательнее?
Вот что я выше написал?

посмотри какой метод для того компонента должен сохранять в базу обычно это метод имеет имя Post

Это для кого писано?

[Lokos]

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

Может ты всетки будешь читать посты внимательнее?
Вот что я выше написал?

Это для кого писано?

Сильно извиняюсь про метод Post забыл.
Ну после вот такой модификации

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=true;
   Form1.pFIBDataSet1.Edit;
   pFIBDataSet1.SQLs.SelectSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(1,1)';
   Form1.pFIBDataSet1.Post;
end;

Выдается ошибка база только для чтения.

[dron-s]

ребята, ни для кого ни секрет, что для операторов Insert Into, DELETE, Update необходимо делать ни Open а ExecSQL
а для того чтобы значения сохранились нужно подтвердить транзауцию..

var
  NameQuery : TFIBQuery;
begin
   NameQuery := TFIBQuery.Create(Application);
   NameQuery.Database := dm.FIBDatabase;
   NameQuery.Transaction := dm.FIBTransaction;
    try
      NameQuery.sql.Clear;
      NameQuery.SQL.Text := 'INSERT INTO NT (ID,KOL) VALUES(1,1)';
      NameQuery.ExecQuery; //выполняешь вставку
      NameQuery.Transaction.Commit; //подтверждаешь транзакцию
    except //не забываем обрабатывать свои же ошибки
      on e:exception do
       showmessage(e.Message);
    end;
NameQuery.Free; //освобождаем ресурсы

[Lokos]

Сообщение от dron-s

ребята, ни для кого ни секрет, что для операторов Insert Into, DELETE, Update необходимо делать ни Open а ExecSQL
а для того чтобы значения сохранились нужно подтвердить транзауцию..

var
  NameQuery : TFIBQuery;
begin
   NameQuery := TFIBQuery.Create(Application);
   NameQuery.Database := dm.FIBDatabase;
   NameQuery.Transaction := dm.FIBTransaction;
    try
      NameQuery.sql.Clear;
      NameQuery.SQL.Text := 'INSERT INTO NT (ID,KOL) VALUES(1,1)';
      NameQuery.ExecQuery; //выполняешь вставку
      NameQuery.Transaction.Commit; //подтверждаешь транзакцию
    except //не забываем обрабатывать свои же ошибки
      on e:exception do
       showmessage(e.Message);
    end;
NameQuery.Free; //освобождаем ресурсы

Спасибо все получилось.

[dron-s]

пожалуйста