编译错误 找不到工程或库

Posted 2023-05-14

Private Sub CommandButton1_Click()

On Error GoTo 100
Dim x, SQL As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
If MsgBox("此操作将覆盖原数据库数据，且不可恢复！", vbYesNo, "警告") = vbNo Then Exit Sub

aa = Timer '获取当前时间

Stpath = ThisWorkbook.Path & Application.PathSeparator & "Info.mdb" '获取数据库路径，此处为与该excel表在同目录下
Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"
Cnn.Execute "Delete * from Content" '删除数据库中“信息”表内所有内容。
Rst.Open "Select * From Content", Cnn, adOpenKeyset, adLockOptimistic

a = Sheets(1).[c65536].End(xlUp).Row '获取第三列最后一个有内容的单元格的行数
If a > 1 Then
For x = 2 To a
With Rst
.AddNew
.Fields("已采").Value = Sheets(1).Cells(x, 1)
.Fields("已发").Value = Sheets(1).Cells(x, 2)
.Fields("标题").Value = Sheets(1).Cells(x, 3)
.Fields("内容").Value = Sheets(1).Cells(x, 4)
.Fields("图片").Value = Sheets(1).Cells(x, 5)
.Fields("原价").Value = Sheets(1).Cells(x, 6)
.Fields("现价").Value = Sheets(1).Cells(x, 7)
.Fields("跳转").Value = Sheets(1).Cells(x, 8)
.Update
End With
Next
End If

Rst.Close
Cnn.Close
Set Rst = Nothing
MsgBox "数据传输完成:耗时" & Format(Timer - aa, "0.000") & "秒", vbInformation, "提示信息"

Exit Sub '正常执行结束，跳出 sub
100:
MsgBox "程序执行出错", 1 + 16, "系统提示"
End Sub

Private Sub CommandButton2_Click()

End Sub

参考技术A 当找不到你需要的工程或库时，请在VBA工具中点击引用进行查找你需要的库，然后进行勾选即可。追问

引用是黑的，无法点击呢

本回答被提问者和网友采纳

“日期”给出编译器错误“找不到项目或库”（VB6）

【中文标题】“日期”给出编译器错误“找不到项目或库”（VB6）

【英文标题】："Date" giving compiler error "Can't find project or library" (VB6)

【发布时间】：2013-11-28 23:00:26

【问题描述】：

我有一些 VB6 代码需要移植到 VB.NET 或 C# 或 F#。

首先，我尝试编译它，它没有成功。当我按 F5 时，会打开一个对话框，告诉我“找不到项目或库”，同时在以下 if 条件中突出显示“日期”一词：

Dim HourAux As Date
...
If (HourAux > CDate (Date & " " & Question(2).Text) Then
...
End if

所以，我想知道的是：

是否给我提供了确实无法编译且需要修复的代码？ 或者我是否遗漏了一些非常明显的东西，比如对图书馆的引用之类的？ 还是我正在尝试使用适用于 VB6 的 VisualStudio (6.0) 编译 VB5 代码？

提前感谢任何 cmets 或帮助。

【问题讨论】：

您收到的错误消息表明编译器未正确安装，找不到包含字符串“'Date'是一种类型，不能用作表达式”的资源文件。你不能。您的 VS 版本太旧，无法告诉您在哪里查看。它可能会磨损。从 15 年前的编译器更新到 10 年前的编译器并不高效。

【参考方案1】：

我遇到了同样的问题。

我必须用“datetime.date”替换“date” 我还必须将“right”、“left”、“mid”、“len”、“instr”、“revstr”替换为：

strings.right
strings.left
strings.mid
strings.len
strings.instr

我必须将每个 VBA 命令添加为先例，以便它工作。

【参考方案2】：

所以事实证明我只是缺少我的项目所需的引用，而 VisualStudio（或 VB 编译器）给出了一个非常误导性的错误。

我缺少参考“Microsoft Excel 8.0 对象库”，显然，我必须安装 Microsoft Office。您可以通过转到 VS 主菜单中的菜单 Project -> References... 来找到项目的引用。