Запись в FDB (FireBird) строк с одинарной кавычкой

[Stilet]

А это как?

Через ParamByName. показывай как ты делаешь.

[new player]

Сообщение от Аватар

insert into table values ('Д''Артаньян')
Покажите код обработки dbf и записи в базу

Меня интересует промежуточный этап. То есть, когда строку из dbf поместили в строковую переменую и в этой переменной экранируем одинарные ковычки.

  with ADOQuery1 do
    begin
      close;
      sql.clear;
      sql.add('select FIELD1,FIELD2,NAME from TABLE order by FIELD1');
      open;
    end;

  while not ADOQuery1.Eof do
    begin
      tempStr := ADOQuery1.fieldbyname('NAME').asString; //здесь одинарные ковычки - два варианта: '' и '
      IBQueryMain.SQL.Clear;
      IBQueryMain.SQL.Add('insert into TABLE'+
      '(NAME,UNN,CODE) values('''+tempStr+''','''+ADOQuery1.fieldbyname('FIELD1').asString+''','''+ADOQuery1.fieldbyname('FIELD2').asString+''')');
      IBQueryMain.ExecSQL;
      ADOQuery1.next;
    end;

Сообщение от Stilet

Через ParamByName. показывай как ты делаешь.

Нема у меня ParamByName

tempStr := StringReplace(ADOQuery1.fieldbyname('NAME').asString,'''''','"',[rfReplaceAll]);
tempStr := StringReplace(tempStr,'''','',[rfReplaceAll]);

Две одинарные на двойную. А че с одинарной делать - убрать ее что ли

[Аватар]

вместо
ADOQuery1.fieldbyname('FIELD1').asString
вставить
StringReplace(ADOQuery1.fieldbyname('FIELD1').asString,'''','''''',[rfReplaceAll])

для других, где возможна кавычка аналогично

[new player]

Сообщение от Аватар

вместо
ADOQuery1.fieldbyname('FIELD1').asString
вставить
StringReplace(ADOQuery1.fieldbyname('FIELD1').asString,'''','''''',[rfReplaceAll])

для других, где возможна кавычка аналогично

Спасибо, Аватар.

[Stilet]

Нема у меня ParamByName

Есть. Просто ты о нем не знаешь:

  with ADOQuery1 do
    begin
      close;
      sql.clear;
      sql.add('select FIELD1,FIELD2,NAME from TABLE order by FIELD1');
      open;
    end;

  while not ADOQuery1.Eof do
    begin
      tempStr := ADOQuery1.fieldbyname('NAME').asString; //здесь одинарные ковычки - два варианта: '' и '
      IBQueryMain.SQL.Clear;
      IBQueryMain.SQL.Add('insert into TABLE (NAME,UNN,CODE) values(:v1,:v2,:V3)');
       IBQueryMain.ParamByName('v1').value:=tempStr;
       IBQueryMain.ParamByName('v2').value:=ADOQuery1.fieldbyname('FIELD1').Value;
       IBQueryMain.ParamByName('v3').value:=ADOQuery1.fieldbyname('FIELD2').Value;
      IBQueryMain.ExecSQL;
      ADOQuery1.next;
    end;

[new player]

Ну это прям какие-то суслики - их не видишь, а они есть

Сообщение от Stilet

Есть. Просто ты о нем не знаешь:

  with ADOQuery1 do
    begin
      close;
      sql.clear;
      sql.add('select FIELD1,FIELD2,NAME from TABLE order by FIELD1');
      open;
    end;

  while not ADOQuery1.Eof do
    begin
      tempStr := ADOQuery1.fieldbyname('NAME').asString; //здесь одинарные ковычки - два варианта: '' и '
      IBQueryMain.SQL.Clear;
      IBQueryMain.SQL.Add('insert into TABLE (NAME,UNN,CODE) values(:v1,:v2,:V3)');
       IBQueryMain.ParamByName('v1').value:=tempStr;
       IBQueryMain.ParamByName('v2').value:=ADOQuery1.fieldbyname('FIELD1').Value;
       IBQueryMain.ParamByName('v3').value:=ADOQuery1.fieldbyname('FIELD2').Value;
      IBQueryMain.ExecSQL;
      ADOQuery1.next;
    end;