谁能给我发一个用户登录和修改登录用户密码的成品（用VB做的），基本的源代码也可以。谢谢各位朋友了
我的邮箱 liuxiao11111@163.com

你应该自己做...不懂的再来问...你不懂是因为哪方面不会呢?...叫人帮你做是不可能的..也是没有用的.

Private Sub cmdOK_Click()
Dim r As New ADODB.Recordset
Set r = DataEnv.rsadmin
Dim strSQL As String
On Error Resume Next
If r.State = adStateOpen Then r.Close
If Trim(txtnew.Text) <> Trim(txtnewqr.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
txtnew.SetFocus
txtnew.Text = ""
txtnewqr.Text = ""
Else
strSQL = "select * from 系统管理表 where 用户名='" & user& "'"
r.Open strSQL, strConn, adOpenKeyset, adLockPessimistic
r.Fields(1) = txtnew.Text
r.Update
r.Close
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "提示！"
Unload Me
End If
End Sub

大家帮我看看哪个地方有问题？系统运行时 虽然提示密码修改成功 但是数据库仍然没有变更

[此贴子已经被作者于2006-5-6 19:55:00编辑过]

下面是我的代码..调试成功..

Option Explicit
Dim iConn As ADODB.Connection
Dim iRs As ADODB.Recordset

Private Sub Command1_Click()
Set iRs = New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM user_info WHERE user_name='" & Text1.Text & "'"
iRs.Open strSQL, iConn, adOpenKeyset, adLockPessimistic, adCmdText
If iRs.RecordCount > 0 Then
iRs.Fields("user_psd") = Text2.Text
iRs.Update
MsgBox "修改成功"
iRs.Close
Else
MsgBox "没有找到此用户"
iRs.Close
Exit Sub
End If
End Sub

Private Sub Form_Load()
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\psd.mdb"
Set iConn = New ADODB.Connection
iConn.Open ConnStr
End Sub

Private Sub Form_Unload(Cancel As Integer)
iConn.Close
Set iRs = Nothing
Set iConn = Nothing
End Sub

谢谢你