Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-02-2009
cincosoft cincosoft is offline
Miembro
 
Registrado: sep 2008
Posts: 30
Poder: 0
cincosoft Va por buen camino
Importar fichero XML

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
Responder Con Cita
  #2  
Antiguo 08-02-2009
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Poder: 21
RONPABLO Va por buen camino
Prueba con los siguientes combios...

Código Delphi [-]
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.ParamByName('vsLinea').asString := vsLinea;
    qCargaTabla.ExecSQL;
  end;//for
  vFichero.Clear;
  vFichero.Free;
end //if FileExists
__________________
"Como pasa el tiempo..... ayer se escribe sin H y hoy con H"
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Importar una dll vasgab API de Windows 0 22-07-2006 00:44:09
Obtener un fichero adjunto a un nodo de un fichero XML muntasil Internet 0 18-07-2006 13:57:57
Importar fichero .dat desde cobol julian_ch Varios 0 08-08-2005 18:43:17
Importar DBF a Gdb vtdeleon Firebird e Interbase 4 14-05-2005 19:16:40
importar fichero consumo telefonica tonid Varios 3 11-09-2003 10:49:28


La franja horaria es GMT +2. Ahora son las 10:00:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi