Tach auch ...
hoffentlich könnt ihr mir weiterhelfen... ich versuche mittels ADODataset eine Excel-Tabelle auszulesen und die darin enthaltenen Daten zu manipulieren. Aber beim Ausführen wird eine Exception ausgelößt: "Abfrage zu komplex" ...
Die ADODataset-Komponente hat folgende Eigenschaften:
- ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DAA.xls;Extended Properties=Excel 8.0;Persist Security Info=False"
- CommandType = cmdTableDirect
- CommandText = Import$
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| while not ADODataset1.Eof do begin
if (VarType(ADODataset1.FieldValues['Firma_Name']) = 1 ) or
(VarType(ADODataset1.FieldValues['Firma_Gesellschaftsform']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Firmierung']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Strasse']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_HausNr']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Land']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_PLZ']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Ort']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Telefon']) = 1) or
(VarType(ADODataset1.FieldValues['Firma_Fax']) = 1) then begin
ADODataset1.Edit;
ADODataset1.FieldValues['F72'] := 'nop';
ADODataset1.Post;
end;
ADODataset1.Next;
end; |
Ausgelöst wird die Exception definitiv von "ADODataset1.Edit;", aber warum ?
Schonmal vielen Dank für eure Bemühungen ....
