Ver Mensaje Individual
  #1  
Antiguo 14-02-2016
joseprad joseprad is offline
Miembro
 
Registrado: oct 2006
Posts: 36
Reputación: 0
joseprad Va por buen camino
Lectura hoja Excel con ADO

Hola amigos.
Me ha salido un problema que no se por donde cogerlo y necesito vuestra ayuda.
Estoy leyendo un fichero Excel mediante los componentes ADO con el código siguiente:
Código Delphi [-]
procedure TfrmImportExcel.ObrirFixerADO;
var
  NomFixer: string;
begin
  NomFixer := 'G:\Manteniment preus\FixersImportats\Feliu Boet 9-2015.xls';
  with FxEx.conADO do begin
    Close;
    LoginPrompt := False;
    ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + NomFixer +
      ';Extended Properties=Excel 8.0';
    Connected := True;
  end;
end;

procedure TfrmImportExcel.LeerRegistros:
begin
 with FxEx.dsFulla do begin
    if not Active then
      Open;
    First;
    while not Eof do begin
      gn := grdLlista.Rows.Add;
      gn.Value[1] := FieldByName('Referencia').asstring;//Fields.FieldByNumber(3).AsString;
      gn.Value[2]:=  Fields.FieldByNumber(4).AsString;
      Next;
    end;
end;
Para mayor comprensión adjunto capturas de pantalla.
Lo que ocurre es que tal como se puede ver, si el registro 'referencia' tiene un carácter que no sea numérico me deja el campo en blanco.
He cambiado el formato de la columna de Excel a texto, pero sigue igual.
Sabe alguien porque?.
Gracias por la molestia.
Responder Con Cita