
例:
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+access.Text+';'
+'Persist Security Info=False';
//SQLStr2:='Select* Into Sheet2 In "'+Excel_Dialog.FileName+'" "Excel 8.0;" From ppp ';
SQLStr2:='Select* Into '+e.Text+' In "'+Excel.Text+'" "Excel 8.0;" From '+a.Text;
ADOConnection1.Execute(SQLStr2);
adoconnection1.Connected:=true;
showmessage('数据转换成功,谢谢你使用该软件!');