Hola estoy intentando cargar un fichero XML en una tabla de interbase de la siguiente manera:
if FileExists(Plantilla) then begin
vFichero := TStringList.Create;
vFichero.LoadFromFile(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + Plantilla);
for i:=1 to vFichero.Count - 1 do begin
vsLinea := vFichero.Strings[i];
vsSql := 'INSERT INTO PLANTILLA_XML (ATRIB1) VALUES (''' + vsLinea + ''' )';
qCargaTabla.Close;
qCargaTabla.SQL.Text := vsSql;
qCargaTabla.ExecSQL;
end;//for
vFichero.Clear;
vFichero.Free;
end //if FileExists
Y me da el siguiente error:
Project PtojectXML.exe raised exception class EDBEEngineError with message 'Missing right quote.'. Process stopped. Use Step or Run to continue
¿Alguien podría decirme porfavor porque me pasa y como solucionarlo?
Gracias