北京政博通科技发展有限公司

POWERBUILDER 中进行EXCEL数据导入


  EXCEL 中的行列和现有的关系型数据库的关系有着相互对应甚至一致的关系。方便了EXCEL和其他应用程序(诸如 MIS,GIS)的数据交换。录入员只需进行一遍EXCEL录入工作,再通过应用程序的按钮将数据导入应用程序所使用的数据库中。

下面是 POWERBUILDER 中进行EXCEL数据导入的代码:

h = integer(sle_h.text) //设定导入数据的行数
if h = 0 then
messagebox("系统提示","请输入行数!")
return
end if
// 循环插入空行
for i = 1 to h - 1
dw_cur.insertrow(0)
next
k = 1
path = profilestring("*.ini","excel","path","")///在INI文件读入路径
handle = openchannel("Excel",path) ///打开EXCEL中的句柄
for j = 1 to h
for i = 1 to 17
gwstring = "R"+string(j)+"C"+string(i) ///读入17列数据
getremote(gwstring,s_sj[k],handle) ///读入数组
k = k + 1
next
for i = 1 to k - 1 ///循环导入列数据
n = i + 1
if n >= 12 then n = n + 1 //跳过一列。根据表的要求而定
dw_cur.setitem(j,n,s_sj[i])
next
k = 1
next
closechannel(handle) //关闭句柄

 
网站由 北京政博通科技发展有限公司 网络部开发设计       版权所有  不得转载