还在吗管理员  请帮帮忙谢谢了

斑竹在吗 请帮帮忙
你给的上面那段代码我这样做了 说不区配

Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer
strUsers = Split("11|11,22|22,33|33", ",")
strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text)
If UBound(strTemp) > -1 Then
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

快给我答复吧 我很急

快给我答复吧 我很急

Private Sub Command1_Click()
Dim strUsers, strTemp, i As Integer
strUsers = Split("11|11,22|22,33|33", ",")
strTemp = Filter(strUsers, Text1.Text & "|" & Text2.Text)
If UBound(strTemp) > -1 Then
'用户名和密码输入正确，登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确，登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

[此贴子已经被作者于2006-1-23 15:50:19编辑过]

谢谢leon2的答复！

可以把用户名和密码都存放到一个数据表里面,使用ADO进行连接.
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strsql As String
cnn.open "provider="Microsoft.Jet.OLEDB.4.0;Data Source=<要接连的数据库>"
strsql="<select * from <表名>>"
rst.open strsql,cnn

然后使用rst.movenext进行指针移动
最后只是确认文本框上输入的用户名和密码是否与记录集中的记录相同就可以了.
判断其实很简单
rst("<字段名>")就是当前记录该字段的值
IF
' 用户名文本框的值是否等于rst("user") and 密码文本框的值是否等于rst("Password")
Else
' 出错信息
End IF

[此贴子已经被作者于2006-1-31 14:30:18编辑过]

读文件,用循环语句挨着试,if text1.text=s then's为文件的一个值
msgbox"正确"
else
msgbox"错误"

我用了多用户密码的语句..运行后TEXT1,2什么都不输入..点击Command1..也是出现登陆成功...
要怎么才能什么都不输入就会出现登陆失败呢??

在下次运行是一定要将上次的清空,不然就回出现不输入也有成功的现象