Importar desde Excel a Mysql o dbgrib

[xalo]

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 :-)