VB中使用DAO打开.mdb数据库后,将打开查询的记录集赋值给定义好的记录集变量,显示类型不匹配

更新时间2019-09-23 05:35:53

Private Sub Command1_Click()

Dim db As Database

Dim rs As Recordset

Dim s As String

Dim st As String

Dim pw As String

Set db = opendatabase("C:UsersAdministratorDesktopUser.mdb")

Set rs = db.OpenRecordset("user表") '此处更改为SQL查询也不行

Rst.MoveFirst

s = rs.Fields("用户名").Value

pw = rs.Fields("密码").Value

If Text1.Text = pw And Text2.Text = s Then

Unload frmDataEnv

Form1.Show

Else

MsgBox "输入的用户名或密码不正确,请重新输入!", vbCritical

Text1.SetFocus

SendKeys "{home}+{end}"

End If

End Sub

请高手帮忙解决下,非常感谢!

你把

Dim rs As Recordset

删除就可以了（原因不明）

PrivateSubCommand1_Click()DimdbAsDatabaseDimrsAsRecordsetDimsAsStringDimstAsStringDimpwAsStringSetdb=opendatabase("C:UsersAdministratorDesktopUser.mdb")Setrs=db.OpenRecordset("user表")'此处更改为SQL查询也不行Rst.MoveFirsts=rs.Fields("用户名").Valuepw=rs.Fields("密码").ValueIfText1.Text=pwAndText2.Text=sThenUnloadfrmDataEnvForm1.ShowElseMsgBox"输入的用户名或密码不正确,请重新输入!",vbCriticalText1.SetFocusSendKeys"{home}+{end}"EndIfEndSub请高手帮忙解决下,非常感谢!网志问答在12小时前收到腾讯网的热心用户匿名网友关于VB中使用DAO打开.mdb**库后,将打开查询的记录集赋值给定义好的记录集变量,显示类型不匹配的提问，关于这些疑难问题，进行了深入的分析。得到了网志问答众多网友的支持，得到了如下解决方案，摘录了部分优质回答，如对此有任何好的意见，欢迎大家进行探讨共同解决

可以问软件店家、售后、厂家服务部，请他们解决会快些。

还是看不懂！！！

按照正常的操作即可

把密码修改下，不要超过用户名的数值

大概可能需要专业人员的专业知识

亲：何必费事辛苦，下载APP不就全解决了。

类型不对就检查类型的前后定义了。

需要先存储前强制转化数据类型才可以的，望采纳