Question

在应用程序运行时，把excel导入pb内部数据库的源代码谁知道，帮帮我，谢了

因为要做一个pb系统，最后会编译打包，要实现把excel表导入pb内部数据库的功能，可以动态的导入导出，我不知道谁来帮帮我，我将十分感谢
我需要代码,我不知道怎么编写,而且还要把excel表导入道ASA的数据库，谁那有啊

Answer 1

给一个将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("") //请空剪切版上的内容
ObjExcel.Quit()
ObjExcel.DisconnectObject() //断开与OLE的连接
Destroy ObjExcel
end if
elseif right(path,3)='txt' or right(path,3)='TXT' then
idw_dw.importfile(path,2)
elseif right(path,3)='dbf' or right(path,3)='DBF' then
idw_dw.importfile(path,1)
end if

导入到了数据窗口中后处理起来就非常简单了撒！！！！直接UPDATE就OK！

Answer 2

方法有二:
1 用数据管道
2 先连excel(odbc),把数据取出来,再把它们更新到sql anywhere中