pb更新oracle表格,PB自定义retrieve刷新函数、PB导入excel表、打印
2013年12月30日
//定义一个打印工作
long job
//打开打印设置
job = PrintOpen("一份数据文档")
//指定打印数据窗口
PrintDataWindow(job, dw_1)
//关闭打印工作
PrintClose(job)
2013年12月17号
//自定义刷新函数ue_refresh
string ls_big_code
ls_big_code=dw_2.object.c_name[1]
if isnull(ls_big_code) or trim(ls_big_code)='' then
ls_big_code='ALL'
end if
dw_1.retrieve('*',ls_big_code)
导入excel表全部内容
string str_savename,named,s_grxh
int excelok,li_net
long li_count,i
oleobject excelserver
excelserver=create oleobject
Excelok=excelserver.connecttonewobject (“excel.applicatiuon”)
excelok=excelserver.connecttonewobject("excel.application")
//检查返回值,以确保已成功地连接到了Excel
messagebox("信息提示",excelok)
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
2013年12月18号
导入特定字段excel表
string ns_current_directory
string ns_app_path
ns_current_directory = space(500)
GetCurrentDirectoryA(500,ns_current_directory)
ns_app_path = ns_current_directory
string str_savename,named,s_grxh
int excelok,li_net
long ll_excel_cols,ll_excel_rows,ll_col
string ls_error_syntaxfromSQL, ls_error_create
string ls_sql, ls_syntax
oleobject excelserver
li_net = GetFileOpenName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls,*.xlsx")
if li_net <= 0 then
messagebox('信息提示','没有指定导入文件!')
SetCurrentDirectoryA(ns_app_path)
return -1
end if
SetCurrentDirectoryA(ns_app_path)
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")
//检查返回值,以确保已成功地连接到了Excel
if excelok <> 0 then
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
return -1
end if
//
if str_savename = "" then return -1
if isvalid(w_process) then close(w_process)
open(w_process)
w_process.process(20)
打开文件并获得当前文件的行数和列数
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
ll_excel_rows = excelserver.activesheet.UsedRange.Rows.Count
ll_excel_cols = excelserver.activesheet.UsedRange.columns.Count
w_process.process(30)
首先动态建造一个datawindow
ls_sql = "select '' as hosp_code_s,'' as hosp_name_s,'' as item_code_s,'' as item_name_s,'' as staple_flag_s from zhangtao where prm_key<1"
ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'Style(Type=grid)', ls_error_syntaxfromSQL)
IF Len(ls_error_syntaxfromSQL) > 0 THEN return -1
dw_temp.create(ls_syntax,ls_error_create)
w_process.process(35)
if len(ls_error_create) > 0 then return -1
//把excel的数据导入到dw_temp中
excelserver.activesheet.cells.copy
dw_temp.importclipboard()
清除内存
clipboard("")
//退出excel
excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
f_kill_exe("EXCEL")
w_process.process(40)
dw_temp.deleterow(1)
string ls_hosp_code,ls_hosp_name,ls_item_code,ls_item_name,ls_staple_flag,ls_branch_no
datetime ldt_time
select sysdate
into :ldt_time
from dual;
long ll_insert_row,ll_row,ll_step,ll_count
ll_count=0
dw_1.visible = false
for ll_row = 1 to dw_temp.rowcount()
w_process.process(40+40*ll_Row/dw_temp.rowcount())
ls_hosp_code = dw_temp.object.hosp_code_s[ll_row]
ls_hosp_name = dw_temp.object.hosp_name_s[ll_row]
ls_item_code=dw_temp.object.item_code_s[ll_row]
ls_item_name=dw_temp.object.item_name_s[ll_row]
ls_staple_flag=dw_temp.object.staple_flag_s[ll_row]
ll_step = dw_1.find("hosp_code='" +ls_hosp_code+"'",1,dw_1.rowcount())
if ll_step > 0 then CONTINUE;
if isnull(ll_step) or ll_step = 0 then
ll_insert_row=dw_1.insertrow(0)
dw_1.object.hosp_code[ll_insert_row]=ls_hosp_code
dw_1.object.hosp_name[ll_insert_row]=ls_hosp_name
dw_1.object.item_code[ll_insert_row]=ls_item_code
dw_1.object.item_name[ll_insert_row]=ls_item_name
dw_1.object.staple_flag[ll_insert_row]=ls_staple_flag
dw_1.object.input_date[ll_insert_row]=ldt_time
dw_1.object.branch_no[ll_insert_row]=is_branch_no
ll_count=ll_count+1
end if
next
if isvalid(w_Process) then close(w_process)
messagebox('提示','导入完毕,成功导入数据'+string(ll_count))
dw_1.visible = true
pb更新oracle表格,PB自定义retrieve刷新函数、PB导入excel表、打印相关推荐
- mysql 命令导入excel,【mysql命令导入excel表】excel表格怎样导入数据库
怎么把excel里的数据导入数据库中的表中 打开企业管理器开要导入数数据库,在表上按右键,所务-->导入数据,弹出DTS导入/导出向导,按 下一步 , 2.选择数据源 Microsoft Exc ...
- python按某列拆分excel表格_利用Python+Pandas实现从一个excel表中提取列形成新表
简要 利用python实现把一个工作表中的某些列,和其中单独的一列,提取成为一个个新表. 如图(处理前)蓝色部分是需要保留的列,红色是需要一项一项分出来作为单独表格的列. 其中,第一行的名字是用的回车 ...
- matlab交换横纵坐标,Excel中表格如何交换横纵坐标数据-怎样把EXCEL表中的数据横纵互换...
excel表格如何横纵轴互换 excel表格横纵轴互换,可通过数据选项互换图表横纵坐标. 1.打开需要操作的EXCEL表格,点击图标使之处于编辑状态,在图表工具中点击"选择数据", ...
- mysql导入excel表异常_mysql导入excel表格数据时出错的解决
Navicat for MySQL导入数据时报错 1:导入的是Excel2007表格格式的数据. 2: 报错以后数据加进去了.(选择了错误继续执行) 3:这个错误对我的数据有影响吗? 4:造成这个错误 ...
- oracle算加权平均的函数,怎样在Excel表中用函数算加权平均数?《电子表格加权平均函数》...
怎样在Excel表中用函数算加权平均数? 例子:学校末成绩,考30%,期末考试占50 %,假如期中考试得了84,期末92,作业分91,在A列输入考试成绩依次为84.92.91:在B列依次输入0.3.0 ...
- 【fastadmin】如何自定义批量操作按钮以及导入excel表格添加多个管理员
现在有个需求,需要用fastadmin来完成一个操作: 超级管理员通过导入一个excel表,批量生成若干个管理员. 对这些管理员进行批量操作,例如同时纳入教师组(二级管理员) 为了完成这个需求,我要做 ...
- python处理多个excel表-使用python把Excel表格由一个分隔成多个
站长现在工作的地方,最近经常用到Excel导入数据,公司的网站是PHP做的,型号价格的更新每次都是通过Excel导入. 一次性两万条记录的导入勉强可以,数据量再大就超时了.而有些产品的价格表格在5万以 ...
- word录入表单数据 java 导入系统,java导入excel | 怎么把excel中的数据批量导入到word中的表格中...
用javascript怎么实现把excel中的数据批量导入到数据库表中 这个js不能直接实现吧 我们程序用到 先读取excel内容转换成数组 然后放到页面上 再提交表单 储存 MySql如何批量添加数 ...
- python比较excel表格内容并提取_利用python提取多张excel表数据并汇总到同一张新表中...
接上篇文章<如何用python实现excel中的vlookup功能?>,上篇说到,最近我在做一个小项目,也是用python操作excel解决财务审计工作上的一些问题,以便提高工作效率及其准 ...
最新文章
- python的函数式编程_Python函数式编程-概念理解,python
- 【机器视觉】 dev_map_var算子
- 计算机网络:如何传输一条数据(详解)
- php与JAVA的RSA加密互通
- java.sql.SQLException: null, message from server: “Host ‘xxx.xxx.xxx.xxx‘ is not allowed to
- 【github系列】github定位到历史版本(历史commit点)
- python从入门到实践答案第四章_《python从入门到实践》--第四章基本操作列表 重点及课后练习...
- oracle虚拟件不活动,BOM 中的虚拟件
- Cannot load module file xxx.iml Intellij
- 三菱GXWorks2 程序仿真功能
- 如何扒微信小程序源码
- 线性代数02 线性方程组的解的情况(矩阵的秩)
- linux温度软件,linux-查看cpu温度的方法
- 访问github时出现隐私设置错误您的连接不是私密连接问题的解决方案
- Java计算10000天出生纪念日
- 《Ray Tracing in One Weekend》笔记 - 【Chapter 9】:Dielectrics
- typescript Awaited<Type>教程用法
- ▷Scratch课堂丨在Scratch上制作植物大战僵尸游戏
- 分段线性函数线性化的Yalmip实现
- Axure 9做原型只能显示为黑白灰色,设置彩色不生效
热门文章
- 三、垃圾收集之判断对象是否存活
- python中子类调用父类的初始化方法
- 【剑指offer】丑数
- FreeMarker使用记录
- System Center 2012 R2 CM系列之安装Configuration Manager
- Openfiler开启iSCSI服务(iSCSI Target)
- golang 警告提示 Error string should not be capitalized or end with punctuation mark
- linux shell install 命令简介
- MIPS SDE简介
- Medusa(美杜莎)和Hydra(九头蛇)快速入门手册:01