关于密码与数据库的问题,很急！！！

Question

这么简单的问题还来问！SHIT！

Answer 1

有好心人能指点一下吗？谢谢！虚心求教！
想dreammaker这类人简直....

Answer 2

插入记录
insert into 表名 values('" & txtuser & "','" & txtpassword & "')用个combox,
循环 do until rs.eof
    combox.additem txtuser/txtpassword   loop很easy的问题，也不要怪别人说你，学到东西最重要

Answer 3

给你个例子看看：
Dim cnnPass As New ADODB.Connection
Dim rstPass As New ADODB.Recordset
Dim strSQL As String
Dim LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload Me
End Sub
_________________________________________
Private Sub cmdOK_Click()
LSize = Len(CombUserName.Text)
If LSize 0 Then
User = Left$(CombUserName.Text, LSize)
Else
User = vbNullString
End If
If User = "管理员" Then
Pass = rstPass!Password
If txtPassword.Text = Pass Then
LoginSucceeded = True
Else
MsgBox "无效的密码，请重试!", vbExclamation + vbOKOnly, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
ElseIf User = "普通用户" Then
User = "普通用户"
LoginSucceeded = True
'在此加入一些限制代码
Unload Me
Else
MsgBox "非法用户!!!", , "登录"
CombUserName.SetFocus
txtPassword.SelLength = Len(txtPassword.Text)
SendKeys "{Home}+{End}"
End If
End Sub
___________________________________________________
Private Sub Form_Load()
DatName = App.Path & "\DBNAME.dll"
cnnPass.Provider = "microsoft.jet.oledb.3.51"
cnnPass.Open DatName, "admin"
strSQL = "select * from regpass "
rstPass.CursorLocation = adUseServer
rstPass.Open strSQL, cnnPass, adOpenKeyset, adLockReadOnly, adCmdText
With CombUserName
Set .DataSource = rstPass
.DataField = "UserName"
Set .RowSource = rstPass
.ListField = "UserName"
.BoundColumn = "UserName"
End With
CombUserName.Text = "管理员"
End SubPrivate Sub Form_Unload(Cancel As Integer)
If rstPass.State = adStateOpen Then
rstPass.Close
Set rstPass = Nothing
End If
If cnnPass.State = adStateOpen Then
cnnPass.Close
Set cnnPass = Nothing
End IfEnd Sub