[ 本帖最后由 ayu_大歌 于 2013-2-7 22:44 编辑 ]

Dim mConn As Connection
Dim mRst As Recordset 'Recordset 对象
Dim objRst As Recordset 'Recordset 对象
Private Sub Command_登陆_Click(Index As Integer)
   '*** 打开access数据库:
   Set mConn = CreateObject("ADODB.Connection")
   mConn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
         & "C:\Users\admin\Desktop\仓库管理系统\Landed.mdb" & ";;Jet OLEDB:Database password=123"
     mConn.Open '打开数据库
     Set mRst = CreateObject("ADODB.RecordSet")
     mSql = "SELECT * FROM admin"    '其中admin为access数据库中的表的名称，下同
     Set mRst = mConn.Execute(mSql)  '在这1句上卡了  
 
     Select Case mConn.State
     Case adStateClose
         statestring = "adStateClosed"
     Case adStateOpen
         statestring = "adStateOpen"
  End Select
  '显示连接的状态
  MsgBox "连接成功！", , statestring
 

[ 本帖最后由 ayu_大歌 于 2013-2-7 22:51 编辑 ]

非常感谢lowxiong老师的指教
因为我的Landed.mdb文件是在办公室电脑（win XP 32位）上创建的，出错是在(win 7 64位) 笔记本上，重建了一个Landed.mdb连接成功了

另外求助老师再指教一下想对数据库操作的语句，先谢谢！
我的Landed.mdb的文件有个admin表，表有dlsj，tcsj，tlcs，yhmm （分别是：登陆时间，退出时间，登陆次数，用户密码4个字段
在admin表的第1行yhmm字段上录入了一个密码字符串 例如：abc123
求助：成功登陆后判断窗体有个“文本框的字符串（输入的密码）”是否与“第1行yhmm字段上有个密码字符串 ”相同（全匹配）
同：在在admin表的尾添加 1 条记录，dlsj （登陆时间）字段记录系统日期时间，tlcs（登陆次数）字段上生成 前1 条记录+1 ，然后关闭数据库断开连接
不同：提示密码错误。
  不好意思，才学



[ 本帖最后由 ayu_大歌 于 2013-2-8 22:52 编辑 ]

首先祝老师 新年万事如意，心想事成！
节后老师有时间的话得请教老师现先把根据老师的代码运行时碰到的问题贴上

mRst.updata    '在这句上卡住了，提示“未找到方法或数据成员”，不知这句代码是什么？
我采取先注掉这句再运行结果：mRst.Fields("dlsj") = Now '刷新登陆时间   卡住 ，错误提示提示如图



[ 本帖最后由 ayu_大歌 于 2013-2-10 01:12 编辑 ]

结贴时间已到，先结了
附件是我的工程

另外：
“应该是先判断密码相同才登录吧？为什么不加个用户名字段，用户名具有唯一性”
我的思路是，用户管理单独一个.mdb文件，一个用户一张表，把表名作为用户名，登录这个文件成功后再打开另一个窗体及连接主数据库。

 “密码不要用明文，最好设计一个加密算法”这个问题一点基础没有，也不好意有那么问题求助，能得指教当然太高兴了


[ 本帖最后由 ayu_大歌 于 2013-2-10 01:35 编辑 ]