如何将Excel文件导入SQL Server2000数据库表中
有很多帖子讲过这个问题,但不是在BCB里面实现的。而我要的是通过BCB,程序或者控件都可以 非常感谢
[解决办法]
http://www.ccrun.com/article.asp?i=638&d=5b0165
or
http://topic.csdn.net/t/20030621/21/1942600.html
[解决办法]
if(OpenDialog1->Execute())
{
AnsiString ds;
ds=OpenDialog1->FileName; //获取Excel文件全路径
try
{
ADOQuery1->SQL->Clear(); //清空sql
ADOQuery1->SQL->Add("INSERT INTO 原始数据表 SELECT * FROM OPENROWSET('MSDASQL','DRIVER={Microsoft Excel Driver (*.xls)};DBQ="+ ds +"','SELECT * FROM [smaster$]')") ; //添加sql
ADOQuery1->ExecSQL() ;//不能用Open
}
catch(...)
{
MessageBox(this->Handle,"Excel文件格式不对,不能包含制表符(Tab) \n 。","提示",MB_OK);
return;
}