Cita:
Empezado por jhector
estoy con un proyecto donde me dan un archivo texto y apartir de esos datos necesito levantar una o varias tablas en la base de datos (mysql),
el archivo de texto viene un cuatro columnas separadas por "',".
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+archivo+';Extended Properties=text;FMT=Delimited';
estaba conectando con adoconnection, con el string anterior pero me levanta un error de autentificacion.
como seria la mejor manera y mas rapida de conectar para luego mostrar los datos en un grid
|
Hola jhector...
Bienvenido al Club. Favor lee la
guia de estilo
Aqui te respondo lo que tambien solicitaste por mensaje privado. (lo ideal es que preguntes en el mismo hilo que encontrastes...)
El ejemplo es para capturar un archivo de texto o csv separado por comas. Trabajo con D7... y con los componentes Jedi...
Dentro del Formulario tengo los siguientes componentes:
TDriveComboBox -> Seleccionar la Unidad donde se encuentra el archivo
TDirectoryListBox -> Seleccionar el directorio donde se encuentra el archivo
TfilterComboBox -> predefinido para mostrar solo los archivos que quiero (*.txt, *.csv, etc)
TFileListBox -> muestra los archivos que estan en el directorio segun el filtro
TEdit -> Donde dejo el nombre del archivo que se selecciona en el TFileListBox
TJvCsvDataSet -> Donde defino la estructura del archivo de texto o csv (Componente Jedi)
TDBGrid -> Donde muestro los datos del archivo cargado
TDataSourse -> para vincular el archivo de texto con el DBGrid
2 botones tengo... 1 para cargar el archivo y el otro para traspasar a una tabla en mi base de SQL
En el boton 1 (Cargar archivo tengo lo siguiente)
Código Delphi
[-]
DTexto.Active := False; DTexto.FileName := Concat(Label1.Caption,'\',Archivo.Text); DTexto.Active := True; Edit4.Text := IntToStr(DTexto.RecordCount); BitBtn3.Enabled := True;
con esto el archivo ya esta cargado
espero que esto te sirva...
Salu2