求助VB6.0连接Access代码的错误。 - 编程论坛

#2

ayu_大歌2013-02-07 22:50

回复楼主 ayu_大歌

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 编辑 ]

#3

lowxiong2013-02-08 16:41

试了，只有数据库中不存在"admin"表时才会卡在那一句并提示错误，否则很正常啊。
另外Set mConn = CreateObject("ADODB.Connection")也可以写成Set mConn = New ADODB.Connection，同样定义记录集也可以写成Set mRst = New ADODB.Recordset，这样你可以不需要记("ADODB.Connection")字符串，可以直接选择ide给你的提示了。
由于以前的office2000中的msaccess被360当作病毒杀了，我是临时下载office2010并创建的数据库，不知道两者之间的mdb数据库有什么区别没有（如office2000数据库中会不会有默认的admin表当做系统表，而2010的则没有？），再就是我在vb工程中引用的是microsoft activex objects 2.8 library(对应文件为msado15.dll)。

[ 本帖最后由 lowxiong 于 2013-2-8 17:04 编辑 ]

#4

ayu_大歌2013-02-08 22:46

回复 3楼 lowxiong

非常感谢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 编辑 ]

#5

lowxiong2013-02-09 09:08

应该是先判断密码相同才登录吧？为什么不加个用户名字段，用户名具有唯一性；密码不要用明文，最好设计一个加密算法，这样别人就是拿到数据库也不能轻易登录的，判断用户名和密码的sql语句是：
msql="select * from admin where yhm='" & text1 & "' and yhmm='" & text2 & "'"
Set mRst = mConn.Execute(mSql)
if not mrst.eof and not mrst.bof then
  msgbox "登录成功，你可以进行仓库管理工作"
  mrst.fields("dlsj")=now  '刷新登陆时间
  mrst.fields("dlcs")=mrst.fields("dlcs")+1  '刷新登录次数
  mrst.updata
else
  msgbox "用户名或密码错误，请重新登录"
endif
mrst.close

[ 本帖最后由 lowxiong 于 2013-2-9 09:21 编辑 ]

#6

ayu_大歌2013-02-10 01:06

回复 5楼 lowxiong

只有本站会员才能查看附件，请登录

首先祝老师新年万事如意，心想事成！
节后老师有时间的话得请教老师

现先把根据老师的代码运行时碰到的问题贴上

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

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

#7

ayu_大歌2013-02-10 01:13

只有本站会员才能查看附件，请登录

结贴时间已到，先结了

附件是我的工程

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

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

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