procedure Tformbutton1click(Sender:TObject) var str:string; begin str:='select * into t from opendatasource(''microsoft.jet.oledb.4.0'',''data source="d:\11.xls";user id=admin;password=;extended properties=excel 5.0'')...sheet1$'; with adoquery1 do begin close; sql.clear; sql.add(str); execsql; end; end;
http://topic.csdn.net/u/20080114/18/3bbb87ec-b89b-424c-845e-b6fbcba3b10b.html
procedure Tformbutton1click(Sender:TObject)
var
str:string;
begin
str:='select * into t from opendatasource(''microsoft.jet.oledb.4.0'',''data source="d:\11.xls";user id=admin;password=;extended properties=excel 5.0'')...sheet1$';
with adoquery1 do
begin
close;
sql.clear;
sql.add(str);
execsql;
end;
end;