Daten aus Excel auslesen und in MySQL einfügen

[jensw_2000]

entschuldige bitte...

Delphi-Quellcode:

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]+']'; //<<<<<<<<<<<<<<<< Da meine ich ... 
AdoTable1.Active := true; 
end; 
end;