求教：要将sql查询到的某个字段的值显示到文本框里该怎么做？

比如：select kh_mc from kh where kh_khid='0000001'
将该记录的kh_mc的字段值显示到文本框里该怎么做？

3 个解决方案

#1

text1 = rs.fields("kh_mc ")

#2

dim rs as new adodb.Recordset
rs.open "select kh_mc from kh where kh_khid='0000001'",cn
text1.text=rs!kh_mc
rs.close
set rs=nothing
      ^_~

#3

strsql = "select kh_mc from kh where kh_khid='0000001'"
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Text1.Text =rs.Fields("kh_mc")