Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2013
vicvil vicvil is offline
Miembro
 
Registrado: may 2003
Ubicación: Chile
Posts: 157
Poder: 21
vicvil Va por buen camino
Insertar datos a un campo al momento de hacer un LOAD DATA

Tengo el siguiente dilema:

Tengo un archivo "datos.txt" que contiene lo siguiente:

Juan,1978,M,C,2
Maria,1982,F,C,1
Oscar,1980,M,S,0

y la tabla a la cual se debe insertar tiene los siguientes campos:

Nombre, ano_nacimiento, genero, est_civil, hijos, seccion

el campo seccion fue agregado ahora ultimo, por lo que antes solo hacia lo siguiente para leer el archivo:

Código SQL [-]
if OpDg.Execute then
  begin
    sql:= 'load data local infile ' + '''' + OpDg.FileName + '''';
    sql:= StrTran(sql,'\','/'); (esta funcion cambia el '\' por el '/')
    qry.sql.clear;
    qry.sql.add(sql + ' Replace into table Tabla1 fields terminated by '','' lines  terminated by ''\r\n''');
   Replace into table formfact fields terminated by '','' lines terminated by ''\r\n''');
    qry.ExecSQL;
    qry.close;
  end;

Lo que necesito ahora es que al momento de realizar este proceso asignarle directamente al campo "seccion" un número dado por el usuario, que sería el mismo para todos, es decir la tabla debe quedar asi:

Nombre ano_nacimiento genero est_civil hijos seccion
Juan 1978 M C 2 1
Maria 1982 F C 1 1
Oscar 1980 M S 0 1

¿Hay alguna forma de hacer esto en el Replace?
Responder Con Cita
  #2  
Antiguo 05-12-2013
vicvil vicvil is offline
Miembro
 
Registrado: may 2003
Ubicación: Chile
Posts: 157
Poder: 21
vicvil Va por buen camino
Smile

Bueno me respondo a mi mismo...

Despues de investigar un rato logré dar con la solución, que consiste en indicar los campos en que iría cada dato del archivo y con un SET llenar el último campo.
la sintaxis entonces quedaría asi:

Código SQL [-]
  if OpDg.Execute then
  begin
    sql:= 'load data local infile ' + '''' + OpDg.FileName + '''';
    sql:= StrTran(sql,'\','/'); (esta funcion cambia el '\' por el '/')
    qry.sql.clear;
    qry.sql.add(sql + ' Replace into table Tabla1 fields terminated by '','' lines  terminated by ''\r\n''');
    Replace into table formfact fields terminated by '','' lines terminated by ''\r\n''');
sql:='(nombre,ano_nacimiento,genero,est_civil,hijos,@seccion) SET seccion=('''+codseccion+''')';{codseccion es una variable ingresada por el usuario}
  qry.sql.add(sql);
    qry.ExecSQL;
    qry.close;
  end;

Lo probé y funcionó bien, asi que esto puede ayudar a alguien que pueda tener el mismo problema alguna vez.
Responder Con Cita
Respuesta



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
load data infile con caracteres especiales tucumano21 MySQL 1 25-01-2012 18:47:35
Problema con Load Data Local Infile vicvil MySQL 1 29-10-2010 22:38:39
Insertar Datos a un campo de la base de datos desde un DBEdit saltamirano Varios 11 12-12-2007 17:29:35
Problema con load data albarchi MySQL 4 10-02-2005 14:59:05
load data infile DJ VMan MySQL 1 26-07-2003 22:40:37


La franja horaria es GMT +2. Ahora son las 20:29:56.


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