如何在DELPHI中将EXCEL中的数据导入到SQL数据库

var s1:string; begin screen.Cursor:=crSQLWait; s1:='insert into table_bus '+ ' (BS_NO,BS_TYPE,bs_whos,bs_mode,bs_seat,bs_soalseat,bs_drseat,bs_oiltype,bs_buycard,bs_unit,BS_BDATE,bs_edate) '+ ' SELECT 车号,dbo.uf_GetFullNameCode(车型