起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 446|回复: 17

【搞定】能否将Excel的东西导入到数据库中**

[复制链接]
发表于 2007-8-9 15:20:55 | 显示全部楼层 |阅读模式
平台能否将固定格式的Excel的内容导入到数据库中。
回复

使用道具 举报

发表于 2007-8-9 15:52:46 | 显示全部楼层
可以用平台提供的ExcelToTable控件导入。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-9 16:11:08 | 显示全部楼层
有没有例子??
回复 支持 反对

使用道具 举报

发表于 2007-8-9 16:23:09 | 显示全部楼层
楼主你先用ExcelToTable在论坛搜一下,里边有很多相关代码。
回复 支持 反对

使用道具 举报

发表于 2007-8-9 16:33:06 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-10 11:27:55 | 显示全部楼层
怎么编译说没有匹配的方法,没有exceltotable.Excute('');这个方法???
是什么原因???
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-10 11:57:29 | 显示全部楼层
怎么回事,又没有人回了???顶一下先
回复 支持 反对

使用道具 举报

发表于 2007-8-10 12:06:46 | 显示全部楼层
注意是var的,需要传变量进去,''空字符串是常量,非变量。具体请看pascal语法

snap1.png

3.6 KB, 下载次数: 222

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-10 13:38:07 | 显示全部楼层
procedure TMainForm.Button2Click(Sender: TObject);
var
  tmpFileName : String;
begin
  if OpenDialog1.Execute then tmpFileName :=OpenDialog1.FileName;
  ETT.FileName := tmpFileName;
  ETT.FieldMap.Add('dsb.DataSet.id=Sheet1(1,1)');
  ETT.FieldMap.Add('dsb.DataSet.文件编号=Sheet1(1,2)');
  ETT.FieldMap.Add('dsb.DataSet.责任者=Sheet1(1,3)');
  ETT.FieldMap.Add('dsb.DataSet.文件材料提名=Sheet1(1,4)');
  ETT.StartRow :=2;
  ETT.EndRow :=5;
   ETT.Execute(tmpFileName)  ;

end;
这样有问题吗???怎么没有数据
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-10 13:50:24 | 显示全部楼层

能否将这个画面提供给用户

我并不清楚这次需要导入的数据有多少行??这们以来怎么确定结束的行,这个参数的问题。

11.jpg

80.7 KB, 下载次数: 211

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-13 22:38 , Processed in 0.042499 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表