调用数据库问题
高手帮忙呀！！！数据库名为datamaster。表名：password 两个字段: username passwd
界面里的用户名为第一个字段里的数据，密码为第二个字段里的数据。
我做完之后只能依次注销用户。怎么才能实现选择哪个用户注销哪个用户。
Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox "请选择用户", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
If Text2.Text <> DBList1.Text Then
MsgBox "用户名不正确", vbOKOnly + vbExclamation, ""
DBList1.SetFocus
End If
If Text1.Text = "" Then
MsgBox "请输入密码", vbOKOnly + vbExclamation, ""
Text1.SetFocus
End If
If Text1.Text <> Data1.Recordset.Fields("passwd") Then
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text1.SetFocus
End If
If Text2.Text = Data1.Recordset.Fields("username") And Text1.Text = Data1.Recordset.Fields("passwd") Then
MsgBox "注销成功", vbOKOnly, "注销成功"
Text1.Text = ""
Text2.Text = ""
DBList1.SetFocus
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub --------------------编程问答-------------------- 选择某个用户产生一个值传递给注销按纽 --------------------编程问答-------------------- Private Sub List1_Click()
a = List1.Text
MsgBox a
End Sub
单击list产生一个值,你试试
在注销这个a值就好了. --------------------编程问答-------------------- 因为你用的是data控件，那你就必须在你选择了一个用户后，把data控件的recordset移到这个用户，然后才能删除 --------------------编程问答-------------------- 单击list时,把list的值给Text2,并且定位记录集指针到当前用户 --------------------编程问答--------------------
支持
补充：VB , 数据库(包含打印，安装，报表)
