Excel数据导入到Sql server 2000

最新推荐文章于 2010-08-25 14:22:00 发布

堕落小虫

最新推荐文章于 2010-08-25 14:22:00 发布

阅读量1.1k

点赞数

分类专栏：开发经验谈文章标签： excel sql server application integer string 数据库

本文链接：https://blog.csdn.net/matail/article/details/1857090

版权

本文介绍了如何将Excel数据导入到SQL Server 2000数据库中，通过使用控件TExcelApplication、TExcelWorkbook和TExcelWorksheet。首先在SQL Server中创建与Excel数据匹配的表，注意字段类型和自动增长ID。然后，通过VCL组件连接Excel文件并逐行读取数据，将数据填充到数据库表中。最后，分享了作者在实现过程中的一些体会。

摘要由CSDN通过智能技术生成

最近在做一个项目,客户要求必须实现把他们的Excel数据导入到数据库中。.对于一个菜鸟来说以前也没做过这一方面,做这个毕竟很头痛。无奈只有在网上找资料了，搜了许多，菜鸟也试了几个,还是不太理想,最后终于找到一个，加上自己的实践和修改，最终实现了这个功能。现把它介绍如下，希望能给正在寻找此方面的朋友能有一定的帮助！

1.控件:openDialog(openDialog1),TExcelApplication(ExcelApplication1)，TExcelWorkbook(ExcelWorkbook1),TExcelWorksheet(ExcelWorksheet1)和TADOTable(tblTa)

前提说明: 在sql server中建一个表,以对应excel中的数据,但是经过菜鸟实践建表时也应该注意两点,一是表中的字段必须有个id是自动增长的，否则等数据多时或数据中有空数据时容易出现错误:” 键列信息不足或不正确。更新影响到多行”
2.是表中的字段对应的类型也注意。字段当有小数点时,字段的类型应该为float,其他的字段类型最好同意用string.
3 代码详解:

procedure TForm1.Button1Click(Sender: TObject);

var

i,j:integer;

ExcelApplication1:TExcelApplication;//控件中有说明

ExcelWorksheet1:TExcelWorksheet;// 控件中有说明

ExcelWorkbook1:TExcelWorkbook;// 控件中有说明

filename: string;

begin

if opendialog1.Execute then

begin

opendialog1.DefaultExt:='xls&