Ошибка при добавлении записи в таблицу

[Luxor]

Пытаюсь вставить запись в одно из полей таблицы базы FireBird

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

Form1.SQLQuery1.Close;
 Form1.SQLQuery1.SQL.Add('INSERT INTO ID_ALL (UNIK_ID) VALUES (555)');
 Form1.SQLQuery1.Open;

При работе с базой использую компоненты вкладки SQLdb (lazarus 0.9.28.2)

1.jpg

[Mr.Smart]

И так: Метод Open вызывается ТОЛЬКО для запросов, которые возвращают результат в виде таблицы! А для запросов без результата нужно применять метод ExecSQL!

[Luxor]

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

Form1.SQLQuery1.Close;
 Form1.SQLQuery1.SQL.Add('INSERT INTO ID_ALL (UNIK_ID) VALUES (555)');
 Form1.SQLQuery1.ExecSQL; 

Та же самая ошибка.
Тип поля, в которое вставляется запись - VARCHAR

[Mr.Smart]

А теперь ошибка в типе данных!
Как можно строковому типу присвоить целочисленное значение?

пс Углубитесь в изучение SQL!

[Luxor]

уже и в кавычнки значение ставил - все равно та же ошибка. Подскажите, как правильно?

[Vadim]

Luxor
Попробуйте сделать так;

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

Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Text := 'INSERT INTO ID_ALL (UNIK_ID) VALUES ('+QuotedStr(555)+')';
Form1.SQLQuery1.ExecSQL; 

и напишите что получилось.

[Luxor]

Спасибо Vadim. Попробовал Ваш вариант - работает, но не появляется запись. Только, когда сделал транзакцию и её подтверждение - свё стало на свои места.

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

Form1.SQLTransaction1.StartTransaction;
Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Clear;
Form1.SQLQuery1.SQL.Text := 'INSERT INTO ID_ALL (ID) VALUES ('+IntToStr(9999)+')';
Form1.SQLQuery1.ExecSQL;
Form1.SQLTransaction1.Commit;
Form1.SQLTransaction1.Active:=True;
Form1.SQLTransaction1.Active:=False;
Form1.SQLTransaction1.EndTransaction;
 

[gNEV]

Спасибо Vadim. Попробовал Ваш вариант - работает, но не появляется запись. Только, когда сделал транзакцию и её подтверждение - свё стало на свои места.

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

Form1.SQLTransaction1.StartTransaction;
Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Clear;
Form1.SQLQuery1.SQL.Text := 'INSERT INTO ID_ALL (ID) VALUES ('+IntToStr(9999)+')';
Form1.SQLQuery1.ExecSQL;
Form1.SQLTransaction1.Commit;
Form1.SQLTransaction1.Active:=True;
Form1.SQLTransaction1.Active:=False;
Form1.SQLTransaction1.EndTransaction;
 

Так и должно быть. Поскольку Вы обновили запросом физическую таблицу базы, а собственно сам DataSet остался с прежними данными. Достаточно просто сделать DataSet.Refresh; вместо работы с транзакциями, которые в большинстве случаев работают автоматически.