如何读取数据库中一行的数据

Question

如题所述

Answer 1

Dim sql As String
sql = "select * from Teacher"
'这句有问题，肯定是修改第一行数据，应该是
sql = "select * from Teacher Order BY id Desc"
Set rs = exesql(sql)
’在这里必须添加下面的语句：
rs.AddNew '新增数据
rs.Fields("管理员姓名") = Trim(Text1.Text)
rs.Fields("工号") = Trim(Text2.Text)
rs.Fields("管理员密码") = Trim(Text19.Text)
rs.Fields("性别") = Trim(Text3.Text)
rs.Fields("联系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close

另外，我认为以下语句没有任何意义，不如删除：
rs.Fields("管理员姓名") = ""
rs.Fields("工号") = ""
rs.Fields("管理员密码") = ""
rs.Fields("性别") = ""
rs.Fields("联系方式") = ""
rs.Fields("家庭住址") = ""

Answer 2

Dim sql As String sql = "select * from Teacher" '这句有问题，肯定是修改第一行数据，应该是 sql = "select * from Teacher Order BY id Desc" Set rs = exesql(sql) ’在这里必须添加下面的语句： rs.AddNew '新增数据 rs.Fields("管理员姓名...