在应用程序运行时,把excel导入pb内部数据库的源代码谁知道,帮帮我,谢了
来源:百度知道 编辑:UC知道 时间:2024/09/28 15:01:27
我需要代码,我不知道怎么编写,而且还要把excel表导入道ASA的数据库,谁那有啊
方法有二:
1 用数据管道
2 先连excel(odbc),把数据取出来,再把它们更新到sql anywhere中
给一个将excel导入到数据窗口中的方法。
【注意】idw_dw是目标数据窗口控件
string path,filename
integer value,result
value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")
if value<>1 then return
if right(path,3)='xls' or right(path,3)='XLS' then
OLEObject ObjExcel
ObjExcel = CREATE OLEObject
result = ObjExcel.ConnectToNewObject( "excel.application")
if result <> 0 then
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
Return
else
ObjExcel.Workbooks.Open(path) //ls_rj是文件的路径
ObjExcel.ActiveSheet.Cells.Copy
ObjExcel.Application.Visible = false
idw_dw.SetTransObject(SQLCA)
idw_dw.ImportClipboard(2) //将系统剪切版上的内容粘贴到数据窗口中,其中2为起始行参数
Clipboard("")