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 ....