Hallo Delphianer...(ist das so richtig?
)
ich stehe vor folgendem Problem, ich habe eine Funktion die gibt mir daten aus einer Excel Tabelle ausgibt. Diese Daten brauche ich für einen Import!
Zu Beginn der Funktion wird wir ein FileOpen Dialog aufgerufen...Wenn ich diesen aber abreche soll kein Fehler kommen. Das was ich mir da jetzt gebastelt habe, scheint ja nicht so ganz richtig zu sein mit dem try und except !
Wie müsste man das machen?
Delphi-Quellcode:
procedure TImport.Button1Click(Sender: TObject);
begin
try
opendialog1.Execute;
AdoConnection1.Close;
AdoConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + opendialog1.FileName + ';' +
'Mode=Read;Extended Properties=''Excel 8.0'';' +
'Persist Security Info=False';
AdoConnection1.Open;
TblExcel.TableName := '[Tabelle1$]';
TblExcel.Open;
except
AdoConnection1.Close;
TblExcel.Close;
end;
end;
Gruß Phil
