Problemas con DBGrid

[Ricomarz]

Hola Buenas Noches para unos y dias para otros ...

Quisiera ver si alguien me puede ayudar con un problema que tengo con el DBGrid, les explico :

Tengo un archivo.txt el cual contiene cierta informacion, la cual obtengo y las asigno a unas variables.

Lo siguiente que he intentado hacer es el de insertar esos datos en un BDGrid pero no mas no puedo .... no se como hacerle jeje .. Bueno como no me salia opte por un ListBox con el cual si logre agregar los datos, pero quiero agregar los datos en un DBGrid tmb ...

Espero puedan ayudarme ...

saludos

P.D="Si pueden mandarme sus sugerencias a mi correo se los agradecere mucho, herectis@hotmail.com "

[marcoszorrilla]

Un DbGrid es un control para bases de datos, aunque también puede acceder ficheros de texto, separados por comas, tabulaciones...., me da la impresión que lo que estás buscando es un StringGrid.

Un Saludo.

[Neftali [Germán.Estévez]]

Siguiendo con lo que comenta Marcos, estaría bien que describieras qué formato tiene el archivo de texto (por si tiene estructura de tabla) y cómo lo quieres almacenar en el DBGrid.

También estaría bien que explicaras cómo lo estás intentando hacer (código).

[[fjcg02]]

Para poder realizar lo que quieres, yo lo hago de la siguiente manera:
- Creo un odbc para ficheros de tipo texto. Te pide el directorio, le indicas los separadores de campos (;,tabulador, ',', ...), y todos los archivos que hay en el directorio los toma como tablas.
- En la aplicación puedes utilizar cualquier motor de bbdd que maneje odbc ( bde, ado, ...)
A partir de ese momento, añades querys, datasets, dbgrids, ... y los tratas como si fueran tablas normales. Tiene alguna limitación obviamente, pero para leer información es más que suficiente. Permite hacer group by, order by, ....

Espero que te sirva de ayuda.

Un saludo
Edito: Como es que un pringao como yo corrijo a marcos y a neftali ??

[Ricomarz]

Bueno, el formato del archivo esta asi:

Formato Primer Archivo

65500614433 0102200702470560IVA COMISION -000000000013200000009859009700000000TOTAL DE MOVS. 000012
65500614433 0102200711080224DEP EN EFECTIV +00000000190610000000987724570000022400000000000031237651

Formato Segundo Archivo

0709018000000000000315410780000000000000.000000000000000.000000000001851.100001470592007-01-17ENSENADA 5059EF
0709018000000000000315448200000000000000.000000000000000.000000000001906.100002499502007-01-17RODOLFO 6610EF

Asi es como obtengo los datos que quiero del primer y segundo formato, y los asingo a una variable, para despues agregarlos al dbgrid ...

procedure Bancomer();
Var
Fichero : TextFile;
Linea,dig,imp,fec,horas: String;
ref,fol,lon,i:integer;
begin
If FileExists ('D:\Proyectos\StandandOn\Caja Permanente\LeerArchivo\bancomer.txt') Then
begin
AssignFile (Fichero,'D:\Proyectos\StandandOn\Caja Permanente\LeerArchivo\bancomer.txt');
Reset (Fichero);
While not Eof(Fichero) Do
Begin
Readln(Fichero,Linea);
 
//Agrego los datos a variables
ref:=StrToInt(Copy(Linea,20,6));
dig:=Copy(Linea,26,2);
imp:=Copy(Linea,69,7);
fol:=StrToInt(Copy(Linea,80,5));
fec:=Copy(Linea,85,10);
horas:= FormatDateTime('hh:mm:ss', Time);
 
//Agrego el contenido de las variables a un ListBox
Form1.ListBox.Items.Add(' '+ IntToStr(Abs(ref)) + ' ' + dig + ' ' + imp + ' ' + IntToStr(Abs(fol)) + ' ' + fec + ' ' + horas);
 
end;
CloseFile (Fichero);
end
Else
Showmessage ('El fichero no existe')
 
end;

Bueno aqui sta la forma en que hago la insercion de los datos al ListBox, pero lo que necesito ahora es agregarlos a un DBGrid, he intentado pero no se como hacerle... Espero puedan ayudarme ... Por que la verdad me urge hacerlo antes del jueves ...

Saludos ...
Ricomarz

[[Lepe]]

Para una implementación rápida, te aconsejo un tipo record:

Código Delphi [-]
type TImportado = record
  ref: integer;
  dig:string;
  imp:=string;
  fol:=integer;
  fec:=TDate;
  horas: TTime;
end;

Cuando lees del archivo, en lugar de usar variables sueltas usas un Record de este tipo, y ahora creas un procedimiento que añada un registro a la base de datos:

Supongo que el DBGrid está apuntando a Tabla1.

Código Delphi [-]
procedure AnadeRecord( Datos:TImportado);
begin
   Tabla1.Append;
   tabla1CampoREf.asInteger := datos.ref;
   tabla2CampoDig.asString := datos.dig;
   ....


  Tabla1.Post;
end;

También se puede usar sqls para la inserción, que quizás sea más eficiente, pero esto es lo más rápido de implementar.

Saludos