Question

vb Adodc操作ACCESS数据库问题

有一表名为：账号
字段： 用户 密码
123 123
321 456
789 443

怎样依次读取用户或者密码，怎样在已知用户名（比如用户789）的情况下，修改此用户名的密码

Answer 1

Private Sub Command1_Click()
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\aaa.mdb"
Set rs.ActiveConnection = con
'以下为依次读取，显示在窗体上：
rs.Open "select 用户,密码 from 账号"
Do While Not rs.EOF
Print rs.Fields(0), rs.Fields(1)
rs.MoveNext
Loop
rs.Close
'将用户789的密码修改为789：
rs.Open "update 账号 set 密码='789' where 用户='789'"
End Sub