Ver Mensaje Individual
  #5  
Antiguo 26-04-2016
xalo xalo is offline
Miembro
 
Registrado: ene 2011
Posts: 18
Reputación: 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