怎么将EXCEL通过Delphi上传到SQL数据库

使用Excel设置导入模版，大多数的客户都能接受

给你这些，够用了

//-------批量导入用比较实用

select into [Excel 80;database=导出目录]导出表名 from 表 //这个是你要的

select into [FoxPro 26;database=导出目录]导出表名 from 表

select into [FoxPro 25;database=同上]导出表名 from 表

select into [dBase III;database=同上]导出表名 from 表

select into [Paradox 4X;database=同上]导出表名 from 表

select into [;database=C:\temp\xxxmdb]导出表名 from 表

//----循环导入 给你些关键的片段信息，全的我这里太长了

Const

ConnExcelStr = 'Provider=MicrosoftJetOLEDB40;Data Source=%s;Extended Properties=Excel 80;Persist Security Info=False'; //这个是连接串

ForMat(ConnExcelStr,[FileName]) //FileName是Excel文件

单独一个ADOQuery。使用以上连接串

ADOQuerySQLADD('Select from [Log$]') //[Log$]是Excel里的一个页，你可以把它看成一个表

剩下的和 *** 作普通数据库一样了

While Not ADOQueryEof do

begin

//TODO

ADOQueryNext;

end;

可以先倒入access,再转入sql或者编写一个小程序逐个写入首先创建

Excel

对象，使用ComObj

ExcelID:

Variant;ExcelID

CreateOleObject(

'ExcelApplication'

);

1)

显示当前窗口：ExcelIDVisible

True;

2)

更改

Excel

标题栏：ExcelIDCaption

'应用程序调用

Microsoft

Excel';

3)

添加新工作簿：ExcelIDWorkBooksAdd;

4)

打开已存在的工作簿：ExcelIDWorkBooksOpen(

'C:ExcelDemoxls'

);

5)

设置第2个工作表为活动工作表：ExcelIDWorkSheets

Activate;

或

ExcelIDWorksSheets

Activate;

6)

单元格值赋给表字段：table1field

value:=ExcelIDCells[1,4]Value

;

如果是数字,

用strtofloat

或者

strtoint:

ParamByName('b')value:=

excely;

改成

ParamByName('b')value:=

strtofloat(excely);

//excel档的第二列插入到aa表的

b

栏位;

以上就是关于怎么将EXCEL通过Delphi上传到SQL数据库全部的内容，包括:怎么将EXCEL通过Delphi上传到SQL数据库、delphi 如何在Delphi中执行将Excel表格里的内容导入数据库中相应表、delphi将excel中的数据导入sql数据库的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！