[FOXTIME]

есть 2 базы под firebird 1.5 записи из одной нужно перенести в другую делаю так q1,q2-компоненты ibsql

Код:

    q1.Close; q1.SQL.Clear;
    q1.SQL.Add('insert into address Values(');
    q1.SQL.Add(Format('''%s'',',[(q2.FieldByName('mail_title').AsString)]));
    if Length(q2.FieldByName('rec_date_change').AsString) <> 0
    then q1.SQL.Add(Format('''%s'',',[q2.FieldByName('rec_date_change').AsString]))
    else q1.SQL.Add('null');
    q1.SQL.Add(');');
    q1.ExecQuery;

Admin: Пользуемся тегами!

в одном из значений mail_title содержиться '7Б' - в ковычках в исходной базе
при переносе этой записи прога вываливаеться с ошибкой unexpected end of command. Пробовал делать без format а заключить все это в chr(39) - непомогло.
Помогите пожалуйста незнаю че делать.