VPF::ZQuery - Форум программистов

barcelona

Дата 21.4.2007, 18:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

Здравствуйте!
У меня запрос к базе данных:

DataModule1.InsertMainTableQuery.SQL.Clear;
DataModule1.InsertMainTableQuery.RequestLive:=true;
//DataModule1.UpdateMainTableQuery.SQL.Text:='UPDATE chres SET year='+YearEdit.Text+',country='+DBEdit2.Text+' first='+DBEdit3.Text+' second='+DBEdit4.Text+' third='+DBEdit5.Text;
DataModule1.InsertMainTableQuery.SQL.Add('INSERT INTO chres(year,country,first,second,third) VALUES("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'","'+Edit5.Text+'");');
DataModule1.InsertMainTableQuery.ExecSQL;

не работает! Ошибку не выдаёт, но и данные не вставляет! Я думал всё дело в кавычках, двойные ставил во всех комбинациях, какие есть, но ровным счётом ничего не добился. Что делать?

M
Girder

Название темы - должно отражать её суть!

Rodman

Дата 21.4.2007, 18:29 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

попробуй через параметры...

Код


DataModule1.InsertMainTableQuery.SQL.Clear;
DataModule1.InsertMainTableQuery.RequestLive:=true;//не знаю че это... можно без него...
DataModule1.UpdateMainTableQuery.SQL.Text:='UPDATE chres SET //year='+YearEdit.Text+',country='+DBEdit2.Text+' first='+DBEdit3.Text+' second='+DBEdit4.Text+' //third='+DBEdit5.Text;
DataModule1.InsertMainTableQuery.SQL.Add('INSERT INTO chres(year,country,first,second,third) VALUES(:prm1, :prm2, :prm3, :Prm4,:prm5);');
DataModule1.InsertMainTableQuery.ParamByName('Prm1').value:=Edit1.Text;
DataModule1.InsertMainTableQuery.ParamByName('Prm2').value:=Edit2.Text;
DataModule1.InsertMainTableQuery.ParamByName('Prm3').value:=Edit3.Text;
DataModule1.InsertMainTableQuery.ParamByName('Prm4').value:=Edit4.Text;
DataModule1.InsertMainTableQuery.ParamByName('Prm5').value:=Edit5.Text;
DataModule1.InsertMainTableQuery.ExecSQL;

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

CRM с функцией АвтоОбзвона

Лотереи мира

barcelona

Дата 22.4.2007, 11:29 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всё равно ничего не выходит. По логике всё верно(насколько я могу судить), но всё равно запись не вставляет!

ТоляМБА

Дата 23.4.2007, 06:41 (ссылка)

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

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

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

Напиши типы полей year,country,first,second,third
Если поле текстовое то значение можно (чтобы не приться с кучей кавычек) вставлять как +QuotedStr(Edit1.Text)+

SergeBS

Дата 23.4.2007, 08:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

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

barcelona,
Какая СУБД?
Как проверяешь, что запись не добавилась?

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