SQL-запрос программно

← →
rh (2003-08-25 08:56) [0]

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

insert into SMSERV (IDSMSERV, CODE, IDDEM_GR) values (58, "qwerty",4689)
пишу так

with Query1 do begin SQL.Clear; SQL.Add ("insert into SMSERV "); SQL.Add ("(IDSMSERV, CODE, IDDEM_GR) "); SQL.Add ("values ("); SQL.Add (id_number); SQL.Add (","); SQL.Add ("""); SQL.Add (str_cell); SQL.Add ("""); SQL.Add (","); SQL.Add (iddem_gr); end; Query1.ExecSQL;

На строке SQL.Add ("""); - ошибка - понимаю что так неправильно записывать, но надо же как-то вставить апостроф.
Как это сделать? Подскажите плиз...

← →
stud © (2003-08-25 09:01) [1]

SQL.Add (""");
SQL.Add (",");

← →
stud © (2003-08-25 09:07) [2]

пардон
попробуй так:
SQL.Add ("insert into SMSERV ");
SQL.Add ("(IDSMSERV, CODE, IDDEM_GR) ");
SQL.Add ("values (");
SQL.Add (id_number,""");
SQL.Add (str_cell,""");
SQL.Add (iddem_gr)");

← →
Danilka © (2003-08-25 09:51) [3]

или еще проще:
sql.text := "insert into SMSERV (IDSMSERV, CODE, IDDEM_GR) values (58, ""qwerty"",4689)";

← →
Danilka © (2003-08-25 09:53) [4]

или вот-так:
sql.text := "insert into SMSERV (IDSMSERV, CODE, IDDEM_GR) values ("+IntToStr(id_number)+", """+str_cell+""","+IntToStr(iddem_gr)+")";

:))

← →
Danilka © (2003-08-25 09:56) [5]

ышшо один вариант, который также добавит кавычки:
sql.text := "insert into SMSERV (IDSMSERV, CODE, IDDEM_GR) values ("+IntToStr(id_number)+", "#39+str_cell+#39","+IntToStr(iddem_gr)+")";

← →
rh (2003-08-25 11:41) [6]

2 Danilka большое спасибо!!! все получилось

QuotedStr и никаких очедробительных сентенций ;)))

← →
Dens (2003-08-25 20:48) [8]

А можно заменить апостроф конструкцией #39 - код апострофа:

"insert into SMSERV (IDSMSERV, CODE, IDDEM_GR) values ("+IntToStr(id_number)+","+#39+str_cell+#39+","+IntToStr(iddem_gr)+")" ;

А можно через параметры - быстрее будет, или на крайний случай Format

SQL-запрос программно Найти похожие ветки