运行工程时,找不到工程或库?

Question

一客户管理系统,在加载运行时,出现编译错误"找不到工程或库存",请教各位究竟是哪儿出了问题?
注:数据和工程文件在同一目录下,
strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
    strConnection = strConnection & "Client.mdb"
在下面的这样用户登录处出问题,其他位置也有:
  Private Sub cmdOK_Click()
    Dim sql As String
    Dim rs As ADODB.Recordset
    If Trim(UserName.Text = "") Then
        MsgBox "没有输入用户名称，请重新输入！", vbOKOnly + vbExclamation, "警告"
        UserName.SetFocus
    Else                                                '查询用户
        sql = "select * from UserInfo where UserID='" & UserName.Text & "'"
        Set rs = getRS(sql)
        If iflag = 1 Then
            If rs.EOF = True Then
                MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
                UserName.SetFocus
            Else
                If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then
                    rs.Close
                    Me.Hide
                    strUserName = Trim(UserName.Text)         '保存用户名称
                    frmMain.Show
                    Unload Me
                Else
                    MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                    PassWord.SetFocus
                    PassWord.Text = ""
                End If
            End If
        Else
            Unload Me
        End If
    End If
    pwdCount = pwdCount + 1                             '判断输入次数
    If pwdCount = 3 Then
        Unload Me
        Exit Sub
    End If
End Sub
------------------------------------------------------
-------------------------------------------------------
在If Trim(UserName.Text = "") Then----处的Trim出错,"找不到工程或库存"
不知为何,请高手给予详解!谢谢

Answer 1

工程==>引用==>MICROSOFT ACTIVEX DATA OBJECTS 2.5 LIBRARY

Answer 2

我的系统尚未打包
在工程的引用中我分别引用过====>MICROSOFT ACTIVEX DATA OBJECTS 2.5 LIBRARY
===>MICROSOFT ACTIVEX DATA OBJECTS 2.5 LIBRARY
===>MICROSOFT ACTIVEX DATA OBJECTS 2.5 LIBRARY都未能解决上述问题,还请名位多多费神,谢谢
 :( 还有一个问题,就是,如何才能使我机器上的Access数据库共享,使另一台装有此管理系统的机器能使用同一个数据库.

Answer 3

在If Trim(UserName.Text = "") Then----处的Trim出错,"找不到工程或库存"Trim(UserName.Text = "") 我想违背你的本意吧换成  if Trim(UserName.Text) = "" then......试试

Answer 4

新建一VB工程，选择“VB企业版控件”，将有的窗体与模块引入，在新工程中试试

Answer 5

我看你的问题可能是系统丢失了COMCTL32。OCX文件，在另外一台机器上找到此文件（vb6的安装中也有），然后将其拷到你本机的SYSTEM 或SYSTEM32目录下，完成后在运行中用regsvr32 COMCTL32。OCX进行注册就可以了。

Answer 6

在If Trim(UserName.Text) = "" Then----处的Trim出错,"找不到工程或库存"你的代码是Copy来的吧？你的机器上缺少你所引用的库文件。改：If VBA.Trim(UserName.Text) = "" Then如果这句过去了，就说明是这样。
VB在执行到没有显式声明的函数时，将在引用的库文件中查找。这时会发现库文件缺失，就会报错。其实报的并不是出错时的那句所引用的库。到引用对话框去，逐个选中引用的项，看下面是否显示实际库文件的路径。数据库应用常见的问题是，源代码是在一个Office版本环境下写的，转换到另一个Office版本环境下就不行了。因为当前的数据库引擎库文件版本不同了。
去掉MICROSOFT ACTIVEX DATA OBJECTS 2.5 LIBRARY，引用其他版本试试（根据你的Office版本，例如2.1版）。

Answer 7

工程->引用->“丢失.”->找到文件引用就可以了