Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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 23-04-2016
Avatar de darkbits
darkbits darkbits is offline
Miembro
 
Registrado: may 2006
Posts: 280
Poder: 18
darkbits Va por buen camino
Importar desde Excel a Mysql o dbgrib

hola
tengo este codigo que funciona de pelo, el problema es que el archivo tiene que ser csv, hay alguna forma de importar un xls?
este codigo importa directamente no respeta mi DB el campo id_numeral que es auto incremento. tengo que colocarlo al final de la tabla en la DB para que no le llene dato.

y como puedo continuar llenando ? porque ahi me da error..

Código Delphi [-]
_DM.tablarates.Active:=false;
_DM.consulta1.SQL.Add('LOAD DATA INFILE ''d:/rates.csv'' INTO TABLE voip.rates FIELDS TERMINATED BY '',''LINES TERMINATED BY ''\n''ignore 1 lines;');
_DM.consulta1.ExecSQL;
_DM.tablarates.Active:=True;
end;

yo necesito cargar de XLS a mi DB mysql o es mejor cargar XLS mediante un DBGRIB

no encuentro ejemplos de XLS y mysql o DBgrib agradesco su ayuda o si tienen ejemplo super asi los estudio.
__________________
Gracias por su coloración club delphi

darkbits ;)
Responder Con Cita
  #2  
Antiguo 23-04-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Graba el xls como csv
Responder Con Cita
  #3  
Antiguo 23-04-2016
Avatar de darkbits
darkbits darkbits is offline
Miembro
 
Registrado: may 2006
Posts: 280
Poder: 18
darkbits Va por buen camino
Hola AgustinOrtu

en el ejemplo que comparto, si me funciona con csv
lo que yo necesito es directo importar desde xls

saludos.
__________________
Gracias por su coloración club delphi

darkbits ;)
Responder Con Cita
  #4  
Antiguo 23-04-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Entendi mal...

Busca por los foros y encontraras un monton de informacion, por ejemplo este enlace
Responder Con Cita
  #5  
Antiguo 26-04-2016
xalo xalo is offline
Miembro
 
Registrado: ene 2011
Posts: 18
Poder: 0
xalo Va por buen camino
Un excel a un dbgrid:
  • Por ejemplo mediante ADO. Suelta en un form un ADOConnection, un ADOQuery, un Datasource, DBgrid, Edit (donde escribirás el nombre del archivo excel) y un button (lógicamente con sus links correspondientes)
  • Usa el siguiente código en onclick del boton y (salvo error) debería mostrar el contenido de la pestaña Hoja1 del archivo de excel.
    Código Delphi [-]
    
    ADOQuery1.Close;
    ADOQuery1.SQL.text := 'SELECT * FROM [Hoja1$]';
    ADOQuery1.Open;
    DM.ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;'+
                                                'Data Source='+Edit1.text+
                                                ';Mode=Share Deny None;Extended Properties="Excel 12.0 Xml;'+
                                                'HDR=yes";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
                                                'Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=37;'+
                                                'Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+
                                                'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
                                                'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
                                                'Jet OLEDBont Copy Locale on Compact=False;'+
                                                'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'+
                                                'Jet OLEDB:Support Complex Data=False';
    
    ADOConnection1.Open;
Un dbgrid a un CSV:
  • Por ejemplo, simplemente con el componente de las JCL-> JvDBGridExportCSV

Saludos

PD:Lo siento pero en el connectionstring veo unos smiles que no se suprimir :-)
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 desde excel en lazarus kapcomx Varios 2 20-01-2016 20:36:55
Importar Datos desde Excel oscarac OOP 3 22-07-2010 08:13:38
importar datos desde excel voldemmor Firebird e Interbase 3 03-02-2009 23:40:56
Importar desde Excel Lucas_diaz1810 Conexión con bases de datos 5 03-11-2006 18:15:26
Importar desde Excel LucasArgentino SQL 1 24-12-2003 17:33:26


La franja horaria es GMT +2. Ahora son las 12:27:50.


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