Hallo,

lese via ADO auf Excel-Daten aus. So weit so gut. Wenn in einer ExcelZelle > 256 Zeichen stehen, gibt das Dataset.Field (da string) ab dem 256. Zeilen '?' aus. Feldtyp AsAnsiString gibt es nicht. Gibt es eine Möglichkeit doch Felder >256 Zeichen korrekt einzulesen?


[DELPHI]
procedure TFRM_AM_Administration.ExcelExportClick(Sender: TObject);
Var ExcelConnection : TADOConnection;
Dataset : TADODataset;
i : integer;
ADOQuery : TADOQuery;
begin
ExcelConnection := TADOConnection.Create(nil);
DataSet := TADODataSet.Create(nil);

ExcelConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Data Source=U:\test.xls;'
+ 'Mode=ReadWrite;'
+ 'Extended Properties="Excel 8.0;HDR=Yes";'
// + 'LoginPrompt=FALSE;'
+ 'Persist Security Info=False';

DataSet.Connection := ExcelConnection;

DataSet.CommandText := 'SELECT * FROM [Sheet1$]';
DataSet.Open;
DataSet.First;

while (DataSet.Eof = false) do
begin
showmessage(DataSet.Fields[0].Text);
showmessage(DataSet.FieldByName('ColumThree').AsSt ring);

DataSet.Next;
end;
DataSet.Close;
/DELPHI]

Die Jetengine untersucht per Default die ersten 8 Zeilen einer "Tabelle" um den Typ zu erraten. Der Defaultwert ist einstellbar unter
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engi nes\Excel\TypeGuessRows
bzw. bei 64 - Bit
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\ Jet\4.0\Engines\Excel\TypeGuessRows

Wenn Du die Möglichkeit hast die Zeile mit dem längsten Zelleninhalt , oder zumindest eine Zeile mit einem Inhalt > 255 Zeichen damit der Typ Memo erkannt wird, nach oben zu bekommen kannst Du Dir eine Anpassung in der Registry sparen.

erst mal danke für die schnelle antwort.

Zitat von Bummi:

Der Defaultwert ist einstellbar unter HKEY_LOCAL_MACHINE\...

Unpraktisch da normale Anwendunge da nichts ändern dürfen das sie normalerweise ohne Adminrechte gestartet werden.

Ich würde ADO links liegen lassen und über die COM/Automatisierungschnittelle oder mit nativen xls/xlsx-Readern arbeiten.