如何输入某个数据,其他控件里面就会显示其相关信息? 急!!!问题很低级!

Question

我建了个123.MDB数据库,里面有三个字段:姓名,性别,年龄
在窗体中加了3个TEXTBOX控件: 当我输入姓名时(这个姓名是数据库中的),其他两个控件就会分别显示性别,年龄!怎么做啊!!!谢谢!!!急~~~~~~~~~~~~~一下想不出来啊!~~!

Answer 1

dim db as dao.database
dim rs as dao.recordset
set db=opendatabase("c:\123.mdb")
set rs=db.openrecord("select 性别，年龄 from 表名")sub 姓名_change()           '放在change里会拖慢你的程序，不妨改成lostfocus  rs.find("姓名='" & 姓名.text & "'")  if not rs.eof then
    性别.text=rs![性别]
    年龄.text=rs![年龄]
  else
    性别.text=""
    年龄.text=""
  end ifend sub