Date 找不到工程或库

whbgxfc

我遇到了一个问题，我这个系统是在家里做的，在家里还好好的。可是一来学校就出问题了。他老是在运行时候出个 “编译错误：找不到工程或库”
要请各位帮忙，谢谢。

有颜色帮助提示的
   
  '初始化
Private Sub Form_Load()  （显示为黄色背景）
   Login.Caption = "登录"              ''''可在属性窗口设置‘’‘’‘’‘
  txtDate = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
  DTPicker1.Value = Date  （显示为蓝色背景）
  Call pd
  If datacount = 0 Then
    Operater1 = "无"
    Combo1.Enabled = False
    txtPassword.Enabled = False
    cmdOK.Visible = True
    Text1.Visible = True
  Else
    operater.Recordset.MoveFirst
    Do While operater.Recordset.EOF = False
      Combo1.AddItem operater.Recordset.Fields(0)
      operater.Recordset.MoveNext
    Loop
    Text1.Visible = False
  End If
End Sub

Private Sub Timer1_Timer()
  txtTime.Text = Time （显示为蓝色背景）

End Sub
'判断是否存在操作员
Private Sub pd()
  operater.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdbersist Security Info=False"
  operater.CommandType = adCmdUnknown
  operater.RecordSource = "select * from Operater"
  operater.Refresh
  datacount = operater.Recordset.RecordCount
End Sub
'判断是否输入密码
Private Sub txtPassword_Change()
  If Len(Trim(txtPassword)) = 0 Then
    cmdOK.Enabled = False
  Else
    cmdOK.Enabled = True
  End If
End Sub

download

好像你发错了版面,

找不到数据库是可能是电脑没装VB(精简版的不带数据库)

zdingyun

LZ:你学校的机器与你家机器的系统可能不一致,你可新建数据工程,删除新建工程中VB自行添加的窗体和数据环境数据报表,然后一一添加你家里做的工程中的窗体,模块和其它相关文件,设置好启动窗体,然后将工程保存在原工程中(替换或另起名).
一般上述步骤可解决你的问题.祝你好运.

whbgxfc

哎呀！！ 从开始写它到毕业答辩 都忙疯了。
真是不好意思 ，现在才出来感谢大家的帮助 。


谢谢~~~``

conglin

你的数据库的DLL有问题。

conglin

估计你以后还要遇到其他问题。
尤其是发布EXE，制作安装包。
建议你找本书好好看看。

smtoven

这个问题,偶遇到过
根据你的描述,可能是EXCEL版本的问题
你试一下把date,修改成vba.date
time,修改成vba.time

jakenlover

Date 找不到工程或库  这是因为你换了个环境  学校电脑上面 没有你工程中引用的某个类。 你可以打开你的引用看一下 肯定会有一个乱码一样的东西 ，那个就是丢失的类，你把你家里的这个类找出来 放到学校的机器上来 注册下 就可以了