Mit ADO eine Exceltabelle (12.0) auslesen?

[p80286]

Zitat von SearchBot:

Bis hier geht es und die "Leitung steht".

Delphi-Quellcode:

  if ADOConArt.Connected then
    try
      TabSL:=TStringList.Create;
      Grid:=TSortGrid.Create(Form1);
      ADOConArt.GetTableNames(TabSL, False);
      for iMaxCol := 0 to TabSL.Count-1 do
        if pos('$',TabSL[iMaxCol])>0 then begin
          sTableName:= TabSL[iMaxCol];
          break;
        end;
      ADODataSet1.CommandText:= 'SELECT * FROM [' + sTableName + ']';
      ADODataSet1.Open;

Ob das geklappt hat, bin ich mir nicht mehr so sicher...

Delphi-Quellcode:

      // Zuweisen der Tabellenzeilen
     iMaxRows := ADODataSet1.RecordCount;

Hier hängt es dann und kehrt nicht zurück.

könnte es sein, daß CommandType := cmdText; fehlt?
und was sagt der Debugger?

Gruß
K-H