一个关于绑定的问题
数据库包含一个表,表内有两个项目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