ADO ausgelesene Exceldaten nur teilweise sichtbar

[Master_BB]

Hallo,
ich hab mit Delphi7 einen Import von Exceldaten geschrieben.
Dazu verwende ich TADOConnection und TADOTable.

Mein Problem
Es werden nur alle Zelleninhalte von meiner Routine ausgegeben die Strings sind,
oder wo im OpenOffice der Zelleninhalt so angegeben wird das 'zahl da steht.
Normale Zahlen kommen nicht bei mir an, Feld ist leer.
Also Zellen mit Inhalt "'3" geben bei der Routine "3" zurück (alles ohne ", ' ist beabsichtigt).
Bei diesen Zellen zeit mir OpenOffice unten rechts auch SUMME=0 an.
Bei Zellen wo mir OpenOffice SUMME=4433345 anzeigt wo der Zelleninhalt "4433345" ist
kommt bei mir nichts im Delphi an, es wird nicht ausgelesen.

Weiß jemand woran das liegt?
Hier noch der Code, ist nur nen Testapp ergo überseht den schlechten Stil bitte g:

Delphi-Quellcode:

var
  ACon     : TADOConnection;
  ATable   : TADOTable;
  AList    : TStringList;
  AStr     : String;
  i : integer;
  v : Variant;
begin
   //Connection öffnen
    ACon := TADOConnection.Create(Self);
    ACon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
        'Provider=Microsoft.Jet.OLEDB.4.0; ' +
        'Data Source=D:\368113-368163_51.xls;' +
        'Extended Properties=Excel 8.0; ' +
        'Persist Security Info=False';
    ACon.LoginPrompt := False;
    ACon.Open;

    AList := TStringList.Create;
    ACon.GetTableNames(AList);
    //ShowMessage(AList.Text);
//Table öffnen
    ATable := TADOTable.Create(Self);
    ATable.Close;
    ATable.Connection := ACon;
    AStr := Copy(AList[0], 2, Length(AList[0]) - 2);
    ATable.TableName   := AList[0];
    ATable.TableDirect := True;
    ATable.Open;
    ATable.First;
//Table langlatschen
    while not ATable.Eof do
    begin
      v := ATable.FieldValues['F1'];
      if not VarIsNull(v) then //wert nicht leer mach string draus
      begin
        v := VarAsType(v, varString);
        ShowMessage(v);
      end;
      ATable.Next;
    end;
    FreeAndNil(ATable);
    FreeAndNil(AList);
    ACon.Close;

Für jeden Tip wäre ich dankbar,
an dem AutoCalcFields von ADOTable liegts nicht, habs mir true und false probiert.

Gruß

[Christian Seehase]

Moin Master_BB,

wie komplex ist denn die Excel-Tabelle?
Ich konnte schon einmal die Erfahrung machen, dass das Auslesen von Excel mit ADO nicht immer sauber funktioniert, und bin dann auf das direkte Auslesen per Com-Objekt umgeschwenkt.

[Master_BB]

sehr klein grad mla 60 zeilen.

wie machst du das mit COM? muß man wenn man com benutzt excel installiert haben,
das will ich nämlich nicht.

[Christian Seehase]

Moin Master_BB,

Zitat von Master_BB:

muß man wenn man com benutzt excel installiert haben,

Ja, das ist sozusagen eine Fernsteuerung von Excel.

Zitat von Master_BB:

das will ich nämlich nicht.

deswegen hatte ich es auch mit ADO versucht

[Ydobon]

Kann es sein, dass in der Exceltabelle in einer Spalte die Typen gemischt sind? Excel hat mit Text und Zahlen in einer Spalte keine Probleme, eine Zahl kann aber nicht in einer Datenbank in einem Textfeld gespeichert werden.

[Master_BB]

ja in den spalten sind die daten gemischt mal, eine Zelle String mal eine integer.
sieht so in etwa aus:

Probe
1
2
3
4
5

da gibt mir meine routine nur Probe aus für die Spalte F1 wenn das diese sein soll.
Mache ichs so
Probe
'1
2
3
4
5
Dann gibt er mit probe und 1 als Werte, anzeigen tut er für die '1 auch nur die 1 in der
zelle bloß in der bearbeiten zeile für die zelle sieht man dieses hochkomma.

[Ydobon]

Dann würde ich eigentlich darauf tippen, dass da der Fehler liegt. Jet legt für das Datenbankfeld fest, dass es Text enthält und kann dementsprechend dort kein Integer einfügen. Du müsstest auch am Feldtyp sehen, wie Jet die Spalte interpretiert hat.

Wenn die Spalten so sind, wie bei deinem Beispiel, also Spaltenname und dann die Werte, ist aber auch etwas merkwürdig. Die Grundeinstellung bei mir auf dem Rechner ist, erste Zeile wird für die Feldnamen verwendet und es werden 8 Zeilen zur Typfestlegung durchsucht.
Bei "Probe" 1 2 3 sieht es eher danach aus, als verwendet er keine Feldnamen und sieht sich nur eine Zeile an. Was passiert bei 'Extended Properties="Excel 8.0;HDR=YES"' bzw. was ist unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engi nes\Excel eingestellt?

Sortenrein müssen, abgesehen von der ersten Zeile, die Spalten aber schon sein, entweder nur Text oder nur Zahlen.

[Master_BB]

jap ich habs nun auch gemerkt,
es liegt daran das diese Zeilen gemischt sind.
Die Tabellenköpfe sind in der 8ten Zeile und danach kommen
die Werte und dadurch sind für ihn die Spalten gemischt und
es kommt zu diesem merkwürdigen fehlverhalten.

hab nun erstmal manuell die ersten zeilen gelöscht,
werde bald einen algo schreiben um diese wegzulassen,
mal sehn ob das bei ado möglich ist

Gruß