delphi 如何在Delphi中执行将Excel表格里的内容导入数据库中相应表
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi 如何在Delphi中执行将Excel表格里的内容导入数据库中相应表相关的知识，希望对你有一定的参考价值。
如何在Delphi中执行将Excel表格里的内容导入数据库中相应表的操作呢？？？？不知道应该如何去实现在Delphi设计的前台就可以执行分别把不同的Excel的表格导入SQL Server 2000数据库中不同的表中请指导一下吧难道是用执行DTS打包调入？
参考技术A 可以先倒入access,再转入sql或者编写一个小程序逐个写入首先创建Excel
对象，使用ComObj
ExcelID:
Variant;ExcelID
CreateOleObject(
'Excel.Application'
);
1)
显示当前窗口：ExcelID.Visible
True;
2)
更改
Excel
标题栏：ExcelID.Caption
'应用程序调用
Microsoft
Excel';
3)
添加新工作簿：ExcelID.WorkBooks.Add;
4)
打开已存在的工作簿：ExcelID.WorkBooks.Open(
'C:ExcelDemo.xls'
);
5)
设置第2个工作表为活动工作表：ExcelID.WorkSheets
.Activate;
或
ExcelID.WorksSheets
.Activate;
6)
单元格值赋给表字段：table1.field
.value:=ExcelID.Cells[1,4].Value
;
delphi中，如何读取一个目录中的所有文件？在线等……
参考技术A 分类: 电脑/网络 >> 程序设计 >> 其他编程语言问题描述:
现需读取目录：“c:\history data”文件夹中所有文件（该文件夹中，只包含.txt和.done文件），需对每个文件进行处理。
另，求将文件转换目录的函数（比如将c:\history data的文件转移到d:\history中）
解析:
procedure FileSearch(PathName:string);
var
F : TSearchRec;
Found : Boolean;
begin
ChDir(PathName);
Found := (FindFirst('*.*', faAnyFile, F) = 0);
while Found do
begin
if (F.Name = '.') or (F.Name = '..') then
begin
Found := (FindNext(F) = 0);
Continue;
end;
if (F.Attr and faDirectory)>0 then
begin
Application.ProcessMessages;
FileSearch(F.Name);
end;
插入你的代码，F.Name就是文件名，GetCurrentDir可以得到当前目录
Found := (FindNext(F) = 0);
end;
FindClose(F);
ChDir('..\');
end;
转换目录可以用MoveFile，查一下帮助
以上是关于delphi 如何在Delphi中执行将Excel表格里的内容导入数据库中相应表的主要内容，如果未能解决你的问题，请参考以下文章