首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

一个关于绑定的有关问题

2012-02-26 
一个关于绑定的问题数据库包含一个表,表内有两个项目NAME和GENDER,NAME里存放学生姓名(姓名唯一).GENDER里

一个关于绑定的问题
数据库包含一个表,表内有两个项目NAME和GENDER,NAME里存放学生姓名(姓名唯一).GENDER里存放学生性别

操作界面由一个TEXTBOX和一个LABEL组成,当在TEXTBOX里输入姓名之后则LABEL立刻可以显示出该学生的性别。

求教该如何解决?

[解决办法]
Dim cn As ADODB.Connection, rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"
End Sub

Private Sub Form_Unload()
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Private Sub Text1_Change()
Label1 = ""
Set rs = cn.Execute("SELECT GENDER FROM 表 WHERE [NAME]='" & Text1 & "'")
If Not rs.EOF Then Label1 = rs!GENDER & ""
End Sub

热点排行