Question

VB 小问题

Adodc1.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source =" & App.Path & "/db_CService.mdb"
Adodc1.RecordSource = "select * from tb_User where xm ='" & Combo1.Text & "' and mm='" & Text1.Text & "' "
Adodc1.CommandType = adCmdTable
If Adodc1.Recordset.EOF Then
MsgBox "用户或者密码错误!", vbOKOnly, "系统提示"
Else
MsgBox "good"
End If
哪里错了？？ 为什么总是密码错误？

Answer 1

在 IF 前面加一句：
Adodc1.Refresh
试试

不行把你的数据库（db_CService.mdb）发来（5594486@qq.com）我看看

Answer 2

这什么东西？乱七八糟的。
也是一段不全的代码？
也是让别人补全了才找错？
问就专门问题，要不就全代码，要不谁有空慢慢补？

Answer 3

在if前面加ADODC1.Recordset.movefrist试试，指针一直在最后没回去，所以一直进入第一个if

Answer 4

ACCESS是否有密码？有的话
Adodc1.ConnectionString = "provider= microsoft.jet.oledb.4.0;password=密码;data source =" & App.Path & "/db_CService.mdb"

Answer 5

te Sub Command_click( )
Dim X as integer
x=1
y=1
call AA (Y+1) '设用AA（2）子过程；
z=BB(x) '调用函数BB（1），返回值赋于Z变量
print x, y, z ,在窗口输入,2,2,2
end sub 'Command_click过程结束。
private sub AA(ByVal Z as integer ) '由call AA（2）传入z=2
y=z+x 'x为0，y=2
z=x+y ’x为0，z=2+0=2
end sub '执行完些句再返回到z=BB(X);
private function BB(ByRef y as integer)，BB(x)传入参数，y=1
y=y+1 'y=2,同时使得BB（X）中X的值也因y值的改变而变为X=2
BB=x+y, ‘此处x值仍为零，BB=0+2=2

end function '此句结束，后BB的值返回给Z;