关于VB中输入字段 从数据库中找到 并输入输出,如何做呢。.

来源：百度知道 编辑：UC知道 时间：2024/06/24 14:36:36
我有一个数据库,表中有代号和名称2项,分别为SCODE和NNAME..数据表表名为MPSNAME

要做一个输入框,要求输入代号,如果匹配,在第二个输入框中显示出名称...

一点VB基础都没啊...大哥大姐帮帮忙...谢谢...
就是在第一个textbox中输入几位数字
如果数字和表中SCODE对应,就自动在第二个textbox中把表中的NNAME输出...

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=date.MDB;"
Set RS = New Recordset
rs.open "select * from mpsname where scode='" & text1.text & "'"
rs.movefirst
text2.text=rs("nname")
rs.close
db.close

晕了