VPF::Ado, ошибка при Insert - Форум программистов

RemaGe

Дата 11.11.2007, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 14.4.2006

Репутация: нет
Всего: нет

Код


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 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: нет
Всего: 95

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

)

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

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

--------------------

самурай без меча подобен самураю с мечом, но только без меча

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »