Danke für die vielen Tips...bin aber im moment ein bisschen überfordert...
erstmal will ich die Daten sauper auslesen, und das ganze in einem Grid darstellen...soweit bin ich bis jetzt...:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var name : string;
begin
box1.text := '';
box1.Enabled := false;
AdoConnection1.Connected := false;
name := 'none';
OpenDialog1.FileName := 'none';
OpenDialog1.Execute;
if RightStr(OpenDialog1.FileName, 3) = 'xls' Then
begin
name := OpenDialog1.FileName;
If name = 'none' Then
begin
end
else begin
AdoConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ name +';Extended Properties=Excel 8.0;Persist Security Info=False';
AdoConnection1.Open;
Box1.Enabled := true;
Box1.Text := 'Bitte auswählen';
AdoConnection1.GetTableNames(Box1.Items);
Button2.Visible := true;
end;
end
else
begin
Button2.Visible := false;
Showmessage('Es muss eine XLS-Datei ausgewählt werden!');
end;
if Box1.items.count = 1 then
begin
box1.Text := box1.Items.Text;
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if box1.Text = 'Bitte auswählen' then
begin
Showmessage('Es muss eine Tabelle ausgewählt werden!')
end
else
begin
AdoTable1.Connection := AdoConnection1;
AdoTable1.TableName := Box1.items[Box1.itemindex];
AdoTable1.Active := true;
end;
end;
Wobei Box1 ein Dropdown feld ist...der rest müsste sich von alleine erklären...das funktioniert auch bis jetzt...leider mach er sobald ich deb ADOTable1 auf true setze nen Syntaxfehler...ich häng die exe mal an...