VB问题求助
我想用VB做一个登陆界面，用户的登陆信息存放在ACCESS数据库“管理系统”中的“用户登陆信息表”中。
但是我遇到的问题是：在登陆界面输入“用户名”和“密码”后点击 登陆 按钮，程序只能在数据表中找到第一条记录（用户名和密码），进行登陆。代码如下：
If (Text1.Text = "" And Text2.Text = "") Then
MsgBox "禁止用户匿名登陆"
End If
If (Text1.Text = "" And Text2.Text <> "") Then
MsgBox "请输入用户名"
End If
If (Text1.Text <> "" And Text2.Text = "") Then
MsgBox "请输入登陆密码"
End If
If (Text1.Text <> "" And Text2.Text <> "") Then
'sql = "select 用户名 from 用户登陆信息表"
If (Adodc1.Recordset.Fields("用户名") = Text1.Text And Adodc1.Recordset.Fields("密码") = Text2.Text) Then
Unload denglu
MDIForm1.Show
Else
MsgBox "用户名或密码错误"
End If
End If
如何才能寻找到表中所有的记录进行登陆验证？
请大家帮忙改改。谢了！！
控件：
（Text1.Text：用以输入用户名）、（Text2.Text：用以输入密码）、（Command1.Caption = 登陆）
（用ADODC控件连接数据库）
问题点数：0、回复次数：4Top
1 楼wmjinyong（魏明）回复于 2005-05-04 20:00:45 得分 0
第二个问题：
用VB做的人事登陆软件，输入新建职工的资料，如何添加到以有的数据库中，以及删除数据库中的以有数据？
窗体上有几个Text控件用来接受输入的资料：例如（Text1.Text = "‘用户名’"，Text2.Text = “’年龄‘” Text3.Text = “’出生日期‘” 等）、（Command控件 Command1.caption = “添加”，Command1.caption = “删除”等）、（数据库名是“数据库”、表名是“用户信息”）
我的思路是：先在Text文本框中输入相应的数据，点击“添加”按钮将输入的数据添加到指定的“用户信息”表中的相应字段，删除则是先从数据表中取出相应的字段（我用的是控件直接在属性窗口连接DataSource和DataField），然后点击“删除”将记录从表中删除。
请问如何写这段代码？
（我是个VB的出学者，请大家帮忙把代码写详细些。万分感谢！！！）Top
2 楼tjredian（）回复于 2005-05-04 20:06:13 得分 0
呵呵，我也是刚学，看不懂你的错，感觉是sql的问题，我是下面的方法实现的，你可以把data换成adodc
Data1.RecordSource = "select * from 密码 where 用户名 = '" & Text1.Text & "'"
Data1.Refresh
然后用一个label设置 datasoure 和 datafield（密码） ，这样 如果text2.text=label.caption就可以，否则不通过
不知你看懂了吗？Top
3 楼tjredian（）回复于 2005-05-04 20:14:49 得分 0
With Adodc1.Recordset
.AddNew
!用户名 = text1.Text
!年龄 = text2.Text
!出生日期 = text3.Text
.Update
End With
这是添加的，删除的我也不会
Top
4 楼wmjinyong（魏明）回复于 2005-05-05 20:23:15 得分 0
不明白！！Top
