將數據庫導出到其他計算機時的錯誤

Question

我創建了作爲epos系統運行的安裝程序中的數據庫。

在其他計算機上安裝它時，我收到大量的錯誤，都說缺少某些東西。該文件在我的電腦上運行完美，但錯誤停止任何工作在其他電腦上的任何東西....

錯誤如下。每個都有自己的彈出框。

broken reference to excel.exe version 1.7 or missing. 
acwztool.accde missing 
npctrl.dll v4.1 missing 
contactpicker.dll v1.0 missing 
cddbcontolwinamp.dll v1.0 missing 
cddbmusicidwinamp.dll v1.0 missing 
colleagueimport.dll v1.0 missing 
srstsh64.dll missing 

我覺得這可能是因爲我改變了模塊VBA庫引用，這樣我可以運行使用Excel中的VBA代碼，不幸的是我又忘了圖書館的我已經添加

是否有幫助時，我添加的代碼，需要新的引用低於

Public Sub SalesImage_Click() 
Dim rst As ADODB.Recordset 

' Excel object variables 
Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.Worksheet 
Dim xlChart As Excel.Chart 

Dim i As Integer 

On Error GoTo HandleErr 

' excel aplication created 
Set xlApp = New Excel.Application 

' workbook created 
Set xlBook = xlApp.Workbooks.Add 

' set so only one worksheet exists 
xlApp.DisplayAlerts = False 
For i = xlBook.Worksheets.Count To 2 Step -1 
    xlBook.Worksheets(i).Delete 
Next i 
xlApp.DisplayAlerts = True 

' reference the first worksheet 
Set xlSheet = xlBook.ActiveSheet 

' naming the worksheet 
xlSheet.name = conSheetName 

' recordset creation 
Set rst = New ADODB.Recordset 
rst.Open _ 
Source:=conQuery, _ 
ActiveConnection:=CurrentProject.Connection 

With xlSheet 
    ' the field names are imported into excel and bolded 
    With .Cells(1, 1) 
     .Value = rst.Fields(0).name 
     .Font.Bold = True 
    End With 
    With .Cells(1, 2) 
     .Value = rst.Fields(1).name 
     .Font.Bold = True 
    End With 

    ' Copy all the data from the recordset into the spreadsheet. 
    .Range("A2").CopyFromRecordset rst 

    ' Format the data the numbering system has been extended to encompas up to 9,999,999 sales to cover all posibilities of sales since the last stock take 
    .Columns(1).AutoFit 
    With .Columns(2) 
     .NumberFormat = "#,###,###" 
     .AutoFit 
    End With 
End With 

' Create the chart. 
Set xlChart = xlApp.Charts.Add 
With xlChart 
    .ChartType = xl3DBarClustered 
    .SetSourceData xlSheet.Cells(1, 1).CurrentRegion 
    .PlotBy = xlColumns 
    .Location _ 
    Where:=xlLocationAsObject, _ 
    name:=conSheetName 
End With 

'the reference must be regotten as it is lost 
With xlBook.ActiveChart 
    .HasTitle = True 
    .HasLegend = False 
    With .ChartTitle 
     .Characters.Text = conSheetName & " Chart" 
     .Font.Size = 16 
     .Shadow = True 
     .Border.LineStyle = xlSolid 
    End With 
    With .ChartGroups(1) 
     .GapWidth = 20 
     .VaryByCategories = True 
    End With 
    .Axes(xlCategory).TickLabels.Font.Size = 8 
    .Axes(xlCategoryScale).TickLabels.Font.Size = 8 
End With 

With xlBook.ActiveChart 
.Axes(xlCategory, xlPrimary).HasTitle = True 
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Product" 
.Axes(xlValue, xlPrimary).HasTitle = True 
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Sales" 
End With 

'format the size and possition of the chart 
With xlBook.ActiveChart 
    .Parent.Width = 800 
    .Parent.Height = 550 
    .Parent.Left = 0 
    .Parent.Top = 0 
End With 

'this displays the chart in excel. excel must be closed by the user to return to the till system 
xlApp.Visible = True 

ExitHere: 
On Error Resume Next 
'this cleans the excel file 
rst.Close 
Set rst = Nothing 
Set xlSheet = Nothing 
Set xlBook = Nothing 
Set xlApp = Nothing 
Exit Sub 

HandleErr: 
MsgBox Err & ": " & Err.Description, , "There has been an error!" 
Resume ExitHere 

End Sub 

Answer 1

部署應少麻煩，如果你刪除項目的Excel引用和使用後期綁定的Excel對象。

一個缺點是您在開發期間失去了使用後期綁定的智能感知的好處。但是，在開發期間的早期綁定和後期的生產綁定之間切換非常容易。只需更改編譯器常量的值即可。

在模塊的聲明節...

#Const DevStatus = "PROD" 'PROD or DEV 

然後一個過程的體內......

#If DevStatus = "DEV" Then 
     Dim xlApp As Excel.Application 
     Dim xlBook As Excel.Workbook 
     Dim xlSheet As Excel.Worksheet 
     Set xlApp = New Excel.Application 
    #Else ' assume PROD (actually anything other than DEV) 
     Dim xlApp As Object 
     Dim xlBook As Object 
     Dim xlSheet As Object 
     Set xlApp = CreateObject("Excel.Application") 
    #End If 

隨着後期綁定您的代碼將需要使用Excel常量的值而不是常量名稱。或者，您可以在#Else塊中定義命名常量以供生產使用，然後在代碼中繼續按名稱使用它們。

我不知道那些其他參考是什麼。建議您帶一份項目副本，刪除所有這些參考資料，並查看從VB編輯器主菜單運行Debug->Compile時會發生什麼。不要選中任何不需要的引用。並嘗試晚結合其餘的。在Access應用程序的生產版本中，我只使用3個引用：VBA;訪問;和DAO。