Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Ado, ошибка при Insert

Автор: RemaGe 11.11.2007, 15:26

Код


procedure TForm1.Button22Click(Sender: TObject);
begin
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('INSERT INTO  main(Группа, Код,Тип,Бренд,Название,Упаковка,Кат,Совм,    Цена, ЦенаРуб, накр, Поправка,Ценаврубпопр, Ценадлясвоих, kod_zap) ');
AdoQuery1.SQL.Add('SELECT Группа, Код,Тип,Бренд,Название,Упаковка,Кат,Совм,    Цена, ЦенаРуб, накр, Поправка,Ценаврубпопр, Ценадлясвоих, kod_zap FROM print');
AdoQuery1.ExecSQL;
end;

В чем проблемма? если учитывать что это

Код


procedure TForm1.Button21Click(Sender: TObject);
begin
AdoQueryClipBoard.SQL.Clear;
AdoQueryClipBoard.SQL.Add('INSERT INTO  CLipBoard(Группа, Код,Тип,Бренд,Название,Упаковка,Кат,Совм,    Цена, ЦенаРуб, накр, Поправка,Ценаврубпопр, Ценадлясвоих, kod_zap) ');
AdoQueryClipBoard.SQL.Add('SELECT Группа, Код,Тип,Бренд,Название,Упаковка,Кат,Совм,    Цена, ЦенаРуб, накр, Поправка,Ценаврубпопр, Ценадлясвоих, kod_zap FROM main where id=:d1 ');
AdoQueryClipBoard.Parameters.ParseSQL(AdoQueryClipBoard.sql.text, true);
AdoQueryClipBoard.Parameters.parambyname('d1').value:=ADOQuery1.FieldValues['id'];
AdoQueryClipBoard.ExecSQL;

end;

работает нормально

Добавлено через 9 минут и 38 секунд
Млин, соррь, сам затупил) не та таблица)

Добавлено через 11 минут и 15 секунд
Соррь, сам тупанул)

Автор: ama_kid 11.11.2007, 15:38

Цитата(RemaGe @ 11.11.2007, 15:26

)

В чем проблемма?

Может быть в том, что в таблице [Clipboard] полям позволено иметь NULL-значения, а в таблице [main] - нет?
Вообще-то запрос на вставку записи в таблицу имеет вид:
INSERT INTO [TableName] ([field_1],...,[field_n]) VALUES (Value_1,...,Value_n)
А ты в своем запросе опускаешь поле VALUES