2022年怎样在PB中实出,将EXCEL数据表,导入到SQLSERVER数据库中宣贯 .pdf

怎样在 PB 中实出，将 EXCEL 数据表，导入到 SQL SERVER 数据库中本人在做的人事管理系统中，因分公司所报数据为EXCEL 表，其中包括保险，工资等等项目，PB的数据管道只能在数据库之间导入导出，能不能在SQL SERVER中通过存储过程，生成一个编绎过的文件，通过 EXCETUE SP_*，将 EXCEL表，保存到SQLSERVER 数据库中；或通过本地包，用SQL SERVER 数据转换服务生成本地包*.DTS 文件，然后用DTSRUN /S SERVER /U USER /P PASSWORD /N *.DTS 导入到 SQL SERVER 数据库中。问题点数： 100、回复次数： 18 Top1 楼 xingxing （xingxing ）回复于2002-08-19 15:29:37 得分 0 用 odbc Top2 楼 wiler （_）回复于2002-08-19 15:42:36 得分0 PB 的数据窗口不是可以导入EXCEL格式的数据吗Top3 楼 TianChong （* _* o 泡泡 o VC 高手群 :2997669 ）回复于2002-08-19 16:13:29 得分 15在 PB 里通过 importfile()将 EXCEL的数据 IMPORT 到 DW 中,直接 DW_1.UPDATE() string null_str SetNull(null_str) dw_1.ImportFile(null_str)/这时会打开一个对话框让你选择文件. / 如果不要选择文件,要自动完成 ,则:dw_1.ImportFile(pathfilename) 这种方法好像只对文本文件有效,如果是这样的话 ,你可以先将EXCEL文件 SAVE AS *.TXT 文件 .或者用 DDE 让 PB动态获取 EXCEL的数据 . 取得数据后 ,dw_1.update() /OK. Top4 楼 balloonman2002 （） 回复于2002-08-19 23:51:45 得分 0 1、DW 的 IMPORTFILE（）导进来EXCEL文件；2、将数据 UPDATE 到数据库当中；3、结束，：）Top5 楼 balloonman2002 （） 回复于2002-08-19 23:53:21 得分 0 详见 PB 帮助： IMPORTFILE（），：）Top名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 8 页 - - - - - - - - - 6 楼 ouyi2002 （即查即用 -摘星计划） 回复于2002-08-20 00:58:46 得分 0 如果 IMPORTFILE（）不行 ,你可以用 DDE 技术 ,DDE 提供了一套可以读写EXCEL数据的函数 ,详见 PB 的帮助文件 . Top7 楼 ouyi2002 （即查即用 -摘星计划） 回复于2002-08-20 01:02:25 得分 30IMPORTFILE（）不行的 ,它不能直接读入EXCEL的数据 .我都试过了 .用 DDE 比较好一点。它是以EXCEL中的单元格作单位的，用DDE 可以向任意单元格写入写出数据。相关的函数有 : （1）首先用 RUN()加文件名参数打开EXCEL并加载要修改的文件（2）然后用 DDE 指令中的 OpenCheenl() 与 EXCEL作 DDE 链接（3）用 DDE 指令中的 SetRotme() 向 EXCEL写值(4) 用 DDE 指令中的 EXC*()控制 EXCEL保存与关闭(5) 用 DDE 指令中的 CloseCheenl() 断开与 EXCEL的链接对于这几个函数的说明，详见PB 的帮助文件。一定可以成功的，我做过这样的程度好多了，如有不明白之处，请继续发贴。Top8 楼 ouyi2002 （即查即用 -摘星计划） 回复于2002-08-20 01:03:37 得分 0 忘记了 ,还有 SetRotme() 可以读取 EXCEL的值 . Top9 楼 lzp_lrp （ lzp）回复于2002-08-20 08:17:16 得分 50用 COM 或者 DDE 都是可以做的，也不是太麻烦，但必须计算机中要装excel 程序，并且在导入时要打开这些文件，不太好建议你是用odbc 吧，把 excel 当成一个数据库，配置一下数据源，在pb 中建两个事务，一个连sqlserver, 一个连 excel ，即可，操作方便Top10 楼 vvyjp （喻继鹏） 回复于2002-08-22 08:22:01 得分 0 把 EXCEL 表当成一个数据库时，总是出错下面是上面问题的所用方法的连接EXCEL数据源源程序：sqlca.dbms=mss microsoft excel (*.xls) 4.x sqlca.database=xlss sqlca.logid=dba sqlca.logpass=sql sqlca.servername=127.0.0.1 sqlca.dbparm=connectstring=dsn=xlss connect using sqlca; if sqlca.sqlcode0 then messagebox( 源数据库连接错误,sqlca.sqlerrtext) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 8 页 - - - - - - - - - return end if open(w_test)Top11 楼 cqulzh（Eexcelence ）回复于2002-08-22 08:42:58 得分 0 关注 Top12 楼 vvyjp （喻继鹏） 回复于2002-08-22 08:47:43 得分 0 出错信息为密码错误因为 EXCEL 表本身无密码是不是要用到Top13 楼 vvyjp （喻继鹏） 回复于2002-08-22 09:10:01 得分 0 在线等待回帖Top14 楼 Eric2000 （消灭小日本） 回复于2002-08-22 09:17:44 得分0 SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=Excel;UID=;PWD= Top15 楼 Eric2000 （消灭小日本） 回复于2002-08-22 09:19:14 得分0 1.通过 ODBC 连接；2.去掉密码；3.上面的 excel 是数据源的名称。Top16 楼 vvyjp （喻继鹏） 回复于2002-08-22 11:35:02 得分 0 sqlca.dbms=odbc sqlca.autocommit=false sqlca.database=xlss 应用程序 OPEN sqlca.logid=dba sqlca.logpass=sql sqlca.servername=127.0.0.1 sqlca.dbparm=connectstring=dsn=xlss;uid=dba;pwd=sql connect using sqlca; if sqlca.sqlcode0 then messagebox( 源数据库连接错误,sqlca.sqlerrtext) return end if open(w_test) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 8 页 - - - - - - - - - itr_source =create transaction itr_source.dbms=odbc itr_source.database=xlss itr_source.autocommit=false itr_source.logid=dba itr_source.logpass=sql itr_source.servername=127.0.0.1 itr_source.dbparm=connectstring=dsn=xlss connect using itr_source; if itr_source.sqlcode0 then messagebox( 源数据库连接错误,itr_source.sqlerrtext) return end if itr_dest = create transaction itr_dest.dbms=mss microsoft sqlserver 6.x itr_dest.database=vvgroup2 itr_dest.logid=sa itr_dest.logpass=happysky itr_dest.servername=192.168.0.1 itr_dest.dbparm=connectstring=dsn=vvgroup2 connect using itr_dest; if itr_dest.sqlcode0 then messagebox( 目的数据库连接错误,itr_dest.sqlerrtext) return end if Top17 楼 yyhyan （天空） 回复于2002-08-22 12:25:39 得分0 GZ Top18 楼 wk_1978 （） 回复于2002-08-22 12:47:58 得分 5PB 呼叫 EXCEL来列印一粒蘋果讓牛頓發現萬有引力定律，Powerline 雜誌讓作者決定以PowerBuilder 呼叫 Excel 的方式，來達到列印表格的效果，而且成功地運用在全省二十一縣市教育局的公務統計系統中，希望本篇文章能帶給您很大的啟示。PowerBuilder如何呼叫 Excel 來列印林宏達名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 8 页 - - - - - - - - - 一、前言本文將介紹一個實用的例子，乃是利用PowerBuilder Application 工具來呼叫Excel 來列印表格的應用。在作者所負責的建教案裏，如臺灣省政府教育廳統計室的公務統計系統，其中的欄位龐大，若直接用PowerBuilder 內的 DataWindow將無法順利完成， 透過著名雜誌Powerline 的介紹， 以及 Excel 本身的方便性，遂決定以PowerBuilder 呼叫 Excel 的方式，來達到列印表格的效果。詳述如下。二、 OLEObject 物件首先介紹 OLEObject 物件， OLEObject 物件是為了做為遠程OLE 物件的代理介面(proxy) ， 這個 OLEObject物件是沒有屬性的，您可以由一個標準類別的使用者物件，來定義自己的OLEObject 物件的版本，然而此使用者物件是繼承來自內建(Built-in) 的 OLEObject ，使用者可以撰寫Script ，去執行 OLEObject 事件 ( 其中包含事件的程式碼)。關於如何建立一個使用者的OLEObject 物件，需要更多進一步資訊的話，請自行參考PowerBuilder User s Guide 使用手冊。假如您想知道在應用程式上如何使用Object 物件，那麼請自行參考 Application Techniques使用手冊。圖一國中暨附設補校主畫面圖二國中暨附設補校報表列印畫面圖三國中暨附設補校以Excel 表格產生報表畫面三、程式撰寫/ 程式撰寫的方式，首先第一步驟就是宣告OLEobject export_object integer i,j,k integer Excel_Handle, Return_Value, ii_ExcelWindowState = 1 long Excel_Status 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 8 页 - - - - - - - - - export_object = Create OLEobject /d_out_data_window是事先拉好的data window 選出所要的結果dw_1.DataObject = d_out_data_window dw_1.SetTransObject(sqlca) / 連結 Excel Return_Value = export_object.ConnectToNewObject(excel.application) If Return_Value 0 then DESTROY export_object MessageBox( 啟動Excel, 不能連結 Microsoft Excel) return end if /Excel 顯示export_object.Application.Visible = true if ii_ExcelWindowState 0 then export_object.WindowState = ii_ExcelWindowState end if /eFile.xls 是事先已製作好表格的Excel 檔案export_object.Workbooks.Open(eFile.xls) /eFile.xls 是事先已製作好表格在Sheet1 的工作區 export_object.WorkSheets(Sheet1).select() / 開始將值塞入Excel，將右邊的值塞入Sheet1 的 M1 export_object.Range(M1).value = 台中市政府教育局 export_object.Range(A4).value = 台中市國民中學學生異動報告 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 8 页 - - - - - - - - - export_object.Range(A5).value = 中華民國 + m_yy + 學年 度第二學期 / 將 Excel 的某些欄位歸零string zeroX=E,F,H,I,J,K,L,M,N string zeroY=21,22,23,24,25,26,29 for i = 1 to 9 for j = 1 to 7 export_object.Range(zeroXi + zeroYj).value = 0 next next /caa1 caa6，cbb1 cbb6 是 dw_1 中的 Fields Name / 塞入 Excel 某個指定位置for i = 1 to 4 for k = 0 to 5 export_object.Range(E + zeroYk).value = dw_1.getitemnumber(1,caa+string(k + 1) export_object.Range(F + zeroYk).value = dw_1.getitemnumber(1,cbb+string(k + 1) next next / 列印出去export_object.ActiveSheet.PrintOut() /Excel 的 eFile.xls 存檔名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 8 页 - - - - - - - - - export_object.ActiveWorkbook.save() / 跳離 Excel export_object.quit() / 斷線export_object.DisconnectObject() / 釋放記憶體DESTROY export_object 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 8 页 - - - - - - - - -