| Excel与Access的相互转换 例: 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('数据转换成功,谢谢你使用该软件!'); |