Cita:
Empezado por afunez2007
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