1、如何檢測excel檔案中有幾個作業表，并將其一一匯入sql資料庫？
2、計算機在沒安裝pb、sqlserver的情況下，除拷入exe檔案和sql的dbf檔案外還需要拷入哪些檔案，才能讓應用程式運行？
懇求各位高手指點，謝謝！
uj5u.com熱心網友回復：
作業多呀uj5u.com熱心網友回復：
關于第二個問題：libjcc.dll pbdir80.dll pbdwe80.dll pblab80.ini pbodb80.dll
pbodb80.ini pbsyc80.dll pbsyj80.dll pbtra80.dll
pbvm80.dll
我的是pb8.0的，不一定對喲，你可以參考一下
uj5u.com熱心網友回復：
第一個問題：SetPointer(HourGlass!)
String ls_path,ls_filename,ls_saveasname
integer li_gfo
Long excelok
li_gfo = GetFileOpenName("選擇匯入檔案",ls_path,ls_filename,"DOC","Excel Files (*.xls),*.xls")
If li_gfo = 0 Then Return//取消操作
If li_gfo = -1 Then
messagebox('系統提示','匯入檔案失敗')
Return
End If
OLEObject ExcelServer
ExcelServer = Create OLEObject
excelok = ExcelServer.ConnectToNewObject( "excel.application" )
If excelok < 0 Then
MessageBox("連接excel失敗,檢查你的系統是否安裝了office",String(excelok))
Return
Else
ls_saveasname = "c:\emp.txt" //保存sheet內容的臨時檔案
li_sheetcount = ExcelServer.sheets.count
//回圈取各個 sheet
for li_loop = 1 to li_sheetcount step +1
ExcelServer.WorkSheets(li_loop).SaveAs(ls_saveasname,3) //另存為文本檔案
ExcelServer.displayalerts = False
dw_name.ImportFile(ls_saveasname) //用資料視窗接資料
dw_new.AcceptText()
FileDelete(ls_saveasname)
next
//退出 斷開連接
FileDelete(ls_saveasname)
ExcelServer.ActiveWorkbook.saved = true
ExcelServer.quit()
ExcelServer.DisconnectObject()
Destroy ExcelServer
End If
setpointer(Arrow!)
uj5u.com熱心網友回復：
ls_saveasname = "c:\emp.txt " //保存sheet內容的臨時檔案后面加上：
ExcelServer.Workbooks.OPEN(ls_path)
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/117878.html
標籤：數據庫相關
下一篇：PB讀取第三個資料庫的表的內容