Hola:
Segun lo que describes en tu hilo no parece que estas trabajando con Bases de Datos, que solo quieres mostrar el contenido de una tabla Excel es un StringGrid, si es asi el siguiente codigo te puede ayudar.
Código:
procedure TFormPrincipal.Button1Click(Sender: TObject);
var
j,i: Integer;
Excel, Libro: Variant;
begin
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;
if OpenDialogXls.Execute then Archivo:= OpenDialogXls.FileName
else exit;
Excel.Workbooks.Open(Archivo);
i:= 1;
j:= 2;
try
repeat
with StringGrid do
begin
Cells [i,1] := Excel.Cells[j,2].Value;
Cells [i,2] := Excel.Cells[j,3].Value;
end;
inc(i);
inc(j);
until Excel.Cells[j,2].Value = '';
Excel.quit;
ShowMessage(' El fichero de productos ha sido importado exitosamente');
except
ShowMessage(' !!!!! ATENCION !!!!! ' + chr(13) +
' El fichero no pudo ser importado' + chr(13) +
' Revise bien su estructura');
end;
end
else ShowMessage('Ud no pertenece a los miembros de ese grupo' + chr(13) +
'Consulte con el Administrador del Sistema');
end;
Si eso es lo que estas pidiendo esto te puede servir.
Saludos
Luis Garcia