Ver Mensaje Individual
  #7  
Antiguo 06-08-2010
Avatar de afunez2007
afunez2007 afunez2007 is offline
Miembro
 
Registrado: oct 2007
Ubicación: La Ceiba, Honduras
Posts: 170
Reputación: 17
afunez2007 Va por buen camino
Lightbulb

Cita:
Empezado por afunez2007 Ver Mensaje
eso se puede hacer facilmente con Ado, conectas la pagina de excel y la base de sql server, yo inclusive he conectado sql atraves de bde y excel con ado y he importado datos desde excel hasta sql.

Para crear la conexion ado a excel utiliza una TAdoConnection con la siguiente connectio string:

Código:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TuPrograma\TuArchivo.csv;Extended Properties=Excel 8.0;Persist Security Info=False
Luego puedes utilizar un TAdoDataset para utilizar esa conexion y sacar los datos origen desde alli, de alli en adelante es todo transparente

Saludos
Viendo un ejemplito que tenia por aqui acabo de ver que hice un boton para poder seleccionar el archivo

se necesita tener un opendialog

Código Delphi [-]
procedure TfrmTblxEmpImport.btn4Click(Sender: TObject);
begin
  IF dlgOpen1.Execute then
  begin
    edt1.Text:=dlgOpen1.FileName;
    con1.Connected:=False;
    ds2.Active:=False;
    con1.ConnectionString:=AnsiReplaceStr(con1.ConnectionString, 'Data Source=C:\TuPrograma\TuArchivo.csv', 'Data Source='+EDT1.Text);
    con1.Connected:=True;
    ds2.Active:=True;
  end;
end;

No olvides de incluir en las uses StrUtils, para que funcione el AnsiReplaceStr

Saludos
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!!
Responder Con Cita