IBDataSet

← →
Id (2005-12-09 11:41) [0]

Здраствуйте!
with Form1.IBDataSet1 do begin
Close;
InsertSQL.Clear;
InsertSQL.Add("insert into DynNabl values (Gen_ID(G_DYNNABL_IDD,1),");
InsertSQL.Add(form1.IBTable1.FieldByName("ID").AsString+", """+ComboBox1.Text+""","+LabeledEdit2.Text+","+LabeledEdit4.Text+","+LabeledEdit5.Text+","+LabeledEdit6.Text+")");
SelectSQL.Clear;
SelectSQL.Add("select * from DYNNABL where id=" +form1.IBTable1.FieldByName("ID").AsString);
Active:=true;
end;
В базе данные не появляются. Никакой ошибки не выдает. Что-то тут не так

← →
Sergey13 © (2005-12-09 11:46) [1]

Сам подход, ИМХО, кривой.
Сгенери правильный InsertSQL (как и другие), и заполняй поля датасета нужными значениями.

← →
Id (2005-12-09 11:55) [2]

>Сгенери правильный InsertSQL
Если бы он был неправильный выдавалась бы ошибка

← →
Sergey13 © (2005-12-09 12:00) [3]

2[2] Id (09.12.05 11:55)
Запросы могут быть правильные по синтаксису, но при этом дурацкие по смыслу. Это раз. В этих компонентах эти запросы так не используются (или по крайней мере такое использование неоправдано, ИМХО, о чем я и сказал). Это два.

← →
Johnmen © (2005-12-09 13:29) [4]

Будет весело, если в LabeledEdit.Text окажутся нецифры. Это три.
Будет весело, если структура таблицы DynNabl изменится. Это четыре.
...

Используй параметры в запросах, совпадающих с именами полей

Совершенно нет связи запроса INSERT с набором данных по SELECT"у. Если её нет, то зачем нужен SELECT? Это пять.
...

IBDataSet Найти похожие ветки