Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Люди добрые, поможите вставить аппостоф в SQL таблицу.


Layner ©   (2004-11-11 16:12:00) 

Без апострофа мы жить не можем :) А он, раз, и не встает. Написал код,
s:='UPDATE tab1 SET col1 = '''+text+''' WHERE row_id='+IntToStr(ds1.DataSet.FieldValues['row_id'])+'';
работает прекрасно, пока апостоф не вставляют.
Что делать, написал ф-ю,
function zamena(str: string): string;
var
a: string;
i:integer;
begin
 a:='''';                //это поиск ОДНОГО апострофа
if Pos(a,str)>1 then
 begin
  i:=Pos(a,str);
  Delete(str,i,1);
  Insert('''''',str,i);  //вставка 2х апострофов
 end;
 Result:=str;
end;

А толку, ноль..
Как их можно реально вставить?


Плохиш   (2004-11-11 16:26:00) [1]


>Layner ©   (11.11.04 16:20) [3]
>Во, Плохишу таврию свою отдам!

Спасибо, конечно :-) но у меня пока свои колёса хорошо бегают ;-)

Спасибо !!!!!!!!!!!!!!!!!!!!!!!!

Да, всегда, пожалуйста :-)


Layner   (2004-11-11 16:20:00) [2]

Во, Плохишу таврию свою отдам!
Плохиш, извини, но такой у тебя ник, эта штука действительно рульная, почему я раньше не слышал о ней ....
Спасибо !!!!!!!!!!!!!!!!!!!!!!!!


sniknik   (2004-11-11 16:16:00) [3]

параметры
интересно зачем их придумали?


Плохиш   (2004-11-11 16:16:00) [4]

quotedstr


Наверх

Титульная страница Поиск, карта сайта Написать письмо