pb 将excel导入access 整型导入出错!

evergod82 2009-09-07 03:04:58
要将excel中的数据导入access,思路是这样的。
一、
先将excel数据导到数据窗口中。在网上找了段代码。
代码如下:
string str_savename,named,s_grxh
int excelok,li_net
long li_count,i

oleobject excelserver
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")

//检查返回值,以确保已成功地连接到了Excel
if excelok <> 0 then
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
return -1
end if
li_net = GetFileOpenName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls")
if li_net > 0 then
if str_savename = "" then return -1
dw_1.settransobject(sqlca)
dw_1.reset()
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
li_count = dw_1.importclipboard(2) //导入数据
clipboard("")

excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
messagebox('信息提示','数据导入成功!')
return 1
else
messagebox('信息提示','没有指定导入文件!')
return -1
end if
数据窗口 数据显示正常。

二、再用dw。update,更新数据库
if dw_1.update()=-1 then
messagebox('','导入失败!'+sqlca.sqlerrtext)
else
messagebox('','导入成功!')
commit using sqlca;
end if
提示数据导入成功。
但是有一列数据类型为excel数据类型为数值,access数据类型为数字,打开数据库查看该列数据全部为0。

以为是数据类型不匹配的问题,但是改过excel和access的数据类型。都没有解决问题!
...全文
221 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangzeguang88 2012-10-17
  • 打赏
  • 举报
回复
是啊 access真是不好用 以前一直用sql sever 哎 整形这个东西难住我两天了 求高手指导啊
evergod82 2009-10-12
  • 打赏
  • 举报
回复
还是没有解决啊!
PB菜鸟 2009-09-07
  • 打赏
  • 举报
回复
dw_1 对应列的数据类型是什么,另外看看 access数据类型的长度是否够,是否数字太多。

611

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧