从excel中将数据导入到数据库 如何将excel里面的数据导入到SQL数据库 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SELECT * INTO newtable FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=C:\test\xltest.xls;Extended Properties=Excel 8.0')...[sheet1$] 给你一个例子吧://批量导入procedure Tmainform.BitBtn2Click(Sender: TObject);var sSql:string;begin try ADOQuery1.Close; ADOQuery1.SQL.Clear; sSql:='insert into 表名 (id,xs)'+' SELECT 编号,所在县市 FROM [excel 8.0;database='+trim(edit9.Text)+'].[Sheet1$]'; ADOQuery1.ParamCheck:= false; //这项一定要有 ADOQuery1.SQL.Add(sSql); ADOQuery1.Execsql; MessageBox(GetActiveWindow(),'批量导入EXCEL成功!','警告',MB_OK+MB_ICONWARNING); except MessageBox(GetActiveWindow(),'批量导入EXCEL失败!','警告',MB_OK+MB_ICONWARNING); end;end; 也可以把数据集连到EXCEL,然后循环每条记录写入SQL库, BSTR长度问题 关于delphi如何调用用c写的*.h文件 程序中打开excel文件的问题 mailto命令如何带附件? 初学DELPHI,希望大家多多帮助,谢谢! RX Library 2.75的安装问题。 关于DBGRID的操作问题 把几个image放入一个bitmap问题 adodataset插记录的报错? 我的一个问题 读取小问题 ●●谁有摄像头CYUSBCAM.DLL的调用说明或者例子代码,万分感激!
'Data Source=C:\test\xltest.xls;Extended Properties=Excel 8.0')...[sheet1$]
procedure Tmainform.BitBtn2Click(Sender: TObject);
var
sSql:string;
begin
try
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
sSql:='insert into 表名 (id,xs)'+' SELECT 编号,所在县市 FROM [excel 8.0;database='+trim(edit9.Text)+'].[Sheet1$]';
ADOQuery1.ParamCheck:= false; //这项一定要有
ADOQuery1.SQL.Add(sSql);
ADOQuery1.Execsql;
MessageBox(GetActiveWindow(),'批量导入EXCEL成功!','警告',MB_OK+MB_ICONWARNING);
except
MessageBox(GetActiveWindow(),'批量导入EXCEL失败!','警告',MB_OK+MB_ICONWARNING);
end;
end;