1,108
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
workhand 2003-10-31
- 打赏
- 举报
也可以用ole对象，这样的帖子太多了，艘一下巴
chinaghf 2003-10-31
- 打赏
- 举报
datawindowname.ImportFile(filename{,startrow{,endrow&{,startcolumn{,endcolumn{,dwstartcolumn}}}}})
将Excel文件导成TXT文件。
ImportFile()函数要求数据窗列的数据类型和列的排列顺序必须与文本文件中的数据相匹配。在存储文本文件时要注意接收数据库对表的格式要求，比如在SYBASE中，表格的列与列间是采用Tab键区分的，所以如果要用ImportFile()函数将文件内容写入SYBASE表中，就要将相应文本文件的列与列间加入Tab键——这在文件形成时即可加入。下面的代码将文件infor.txt写入数据窗dw_infor，并将与dw_infor对应的数据库表更新：
int impt
if (FileLength("c:\data\infor.txt")>0) then
impt=dw_infor.ImportFile("c:\data\infor.txt")
if impt>0 then
dw_infor.settrans(sqlca);
update(dw_infor);
commit;
If sqlca.sqlcode=-1 then
messagebox("SQLERROR",sqlca.sqlerrtext)
endif
else
messagebox("注意","文件infor.txt写入失败!")
endif
endif
将Excel文件导成TXT文件。
ImportFile()函数要求数据窗列的数据类型和列的排列顺序必须与文本文件中的数据相匹配。在存储文本文件时要注意接收数据库对表的格式要求，比如在SYBASE中，表格的列与列间是采用Tab键区分的，所以如果要用ImportFile()函数将文件内容写入SYBASE表中，就要将相应文本文件的列与列间加入Tab键——这在文件形成时即可加入。下面的代码将文件infor.txt写入数据窗dw_infor，并将与dw_infor对应的数据库表更新：
int impt
if (FileLength("c:\data\infor.txt")>0) then
impt=dw_infor.ImportFile("c:\data\infor.txt")
if impt>0 then
dw_infor.settrans(sqlca);
update(dw_infor);
commit;
If sqlca.sqlcode=-1 then
messagebox("SQLERROR",sqlca.sqlerrtext)
endif
else
messagebox("注意","文件infor.txt写入失败!")
endif
endif
