简单的access问题,可我不会

Question

请先下载我的源码看下下载地址:http://langennet.com/ziliao/ym.rar(右键另存为)我的问题有2个①当选中combo1下拉列表中某用户名时,text1则显示该用户名的密码.(即表中"密码"一列的同一行数据)②当用户手动输入用户名和密码时,输入完毕后,则判断表里有没有相同的用户名,如有则无动作,没有则添加一条(保存用户名和密码)本人初学数据库,望各大侠多多关照,谢谢...

Answer 1

Private Sub Combo1_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    With rs
        Set .ActiveConnection = cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "select * from 用户数据 where 用户名='" & Combo1.Text & "'"
        If Not .EOF Then
            Text1.Text = rs.Fields("密码").Value
        End If
        .Close
    End With
    Set rs = Nothing
End Sub

Answer 2

'1
Private Sub Combo1_Click() ''''''''
     If rs1.State = 1 Then rs1.Close
     rs1.Open "select * from 用户数据 where 用户名='" & Combo1.Text & "'"
     Text1.Text = rs1.Fields(1)
End Sub
'2
Private Sub Text1_KeyPress(KeyAscii As Integer) '''''''''''''''
    If KeyAscii = 13 Then
        If rs1.State = 1 Then rs1.Close
        rs1.Open "select * from 用户数据 where 用户名='" & Combo1.Text & "'"
        If rs1.RecordCount > 0 Then
        Else
           cnn.Execute ("INSERT INTO 用户数据 values('" & Combo1.Text & "','" & Text1.Text & "')")
           If rs1.State = 1 Then rs1.Close
           rs1.Open "select * from 用户数据 where 用户名='" & Combo1.Text & "'"
           Combo1.Text = rs1.Fields(0)
           Text1.Text = rs1.Fields(1)
           Combo1.AddItem Combo1.Text
        End If
    End If
End Sub