Добавить запись в БД, Delphi - Помощь студентам

Droz · 04.04.2016, 13:39

Здравствуйте! У меня четыре таблицы, две из них являются справочниками и запись в них не нужно делать. Связаны справочники с остальными таблицами по коду. Использую для справочников комбоксы, соответственно выбираю только названия(name_az, name_km) и при добавлении новой записи возникает ошибка "несоответствие типов данных в выражении условия отбора". В чем тут проблема?

Код:

var name_az, name_test1, ed,znach, name_km: String;
    lot, sr_god, data,izr : String;
begin
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;

name_az:= QuotedStr(DBComboBox1.Text);
name_test1 := QuotedStr(DBComboBox2.Text);
znach:= QuotedStr(DBEdit1.Text);
ed:= QuotedStr(DBEdit2.Text);

name_km:= QuotedStr(DBComboBox3.Text);
lot:= QuotedStr(DBEdit3.Text);
sr_god:= QuotedStr(DBEdit4.Text);
data:= QuotedStr(DBEdit5.Text);

  fDM.ADOQuery1.SQL.Text:='INSERT INTO test1(name_test1, znach, ed) VALUES ('+name_az+','+znach+','+ed+')';
fDM.ADOQuery1.ExecSQL;

  fDM.ADOQuery1.SQL.Text:='INSERT INTO km_stat(lot, sr_god, data, izr) VALUES ('+lot+','+sr_god+','+data+', '+izr+')';
fDM.ADOQuery1.ExecSQL;
  if fDM.ADOQuery1.Modified then fDM.ADOQuery1.Post;
end;

Аватар · 04.04.2016, 13:50

Значения символьных полей нужно кавычить или параметризованный запрос

Droz · 06.04.2016, 15:39

С параметрами тоже никак не выходит. Может можно как то через Lookup-поле? Чтоб в зависимости от выбранного названия в это поле заносилось соответствующее id и уже этот id записывался в БД. Создала поле,подключила,все работает,но вот как прописать в БД не могу додумать. Помогите!

04.04.2016, 13:39	#1
Droz Регистрация: 04.04.2016 Сообщений: 4	Добавить запись в БД, Delphi Здравствуйте! У меня четыре таблицы, две из них являются справочниками и запись в них не нужно делать. Связаны справочники с остальными таблицами по коду. Использую для справочников комбоксы, соответственно выбираю только названия(name_az, name_km) и при добавлении новой записи возникает ошибка "несоответствие типов данных в выражении условия отбора". В чем тут проблема? Код: var name_az, name_test1, ed,znach, name_km: String; lot, sr_god, data,izr : String; begin fDM.ADOQuery1.Close; fDM.ADOQuery1.SQL.Clear; name_az:= QuotedStr(DBComboBox1.Text); name_test1 := QuotedStr(DBComboBox2.Text); znach:= QuotedStr(DBEdit1.Text); ed:= QuotedStr(DBEdit2.Text); name_km:= QuotedStr(DBComboBox3.Text); lot:= QuotedStr(DBEdit3.Text); sr_god:= QuotedStr(DBEdit4.Text); data:= QuotedStr(DBEdit5.Text); fDM.ADOQuery1.SQL.Text:='INSERT INTO test1(name_test1, znach, ed) VALUES ('+name_az+','+znach+','+ed+')'; fDM.ADOQuery1.ExecSQL; fDM.ADOQuery1.SQL.Text:='INSERT INTO km_stat(lot, sr_god, data, izr) VALUES ('+lot+','+sr_god+','+data+', '+izr+')'; fDM.ADOQuery1.ExecSQL; if fDM.ADOQuery1.Modified then fDM.ADOQuery1.Post; end;

04.04.2016, 13:50	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Значения символьных полей нужно кавычить или параметризованный запрос Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Добавить запись в таблицу	Predator199	C# (си шарп)	0	17.02.2015 02:04
(С++) как добавить в файл запись	PotatoCaptain	Помощь студентам	6	06.06.2014 23:12
БД на Delphi FireBird(как добавить запись с Edita в таблицу IBDataSet1)	new1	Помощь студентам	2	23.03.2014 12:07
добавить запись в таблицу из формы	Aleksandraaa	Microsoft Office Access	1	29.06.2013 16:51
Добавить запись в DBGrid	adil	БД в Delphi	7	27.07.2010 12:50

06.04.2016, 15:39	#3
Droz Регистрация: 04.04.2016 Сообщений: 4	С параметрами тоже никак не выходит. Может можно как то через Lookup-поле? Чтоб в зависимости от выбранного названия в это поле заносилось соответствующее id и уже этот id записывался в БД. Создала поле,подключила,все работает,но вот как прописать в БД не могу додумать. Помогите!