如何将sql查找的信息输出到vb文本框中

来源:百度知道 编辑:UC知道 时间:2024/06/16 03:36:34
如题。继续高人解答~!!谢谢。
数据库的基本操作我会的,
最主要的是,
如何在vb文本框中显示出来我查询的信息!!
谢谢大家了...

'=====读取数据库(查找数据显示内容)开始=====

Dim UserQuery As New adodb.Recordset
Dim i As Integer
Dim str As String
Dim LtItm As ListItem
Dim DBstr As String
'select 查询内容 from 表名 where 字段名='查询内容'
DBstr = "select * from TelUser where TelNum='" & Trim(frmFind.txtTel.Text) & "'"
'模糊查询,select 查询内容 from 表名 where 字段名 like '%查询内容%'
'DBstr = "select * from TelUser where TelUser like '%" & Trim(frmFind.txtUser.Text) & "%'"
'打开数据库相应的记录, '打开数据集
UserQuery.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
If check.RecordCount <= 0 Then '没有查找到相应记录
MsgBox "该记录不存在!" & vbCrLf & "请重新输入!", , "查找失败"
Exit Function
ElseIf check.RecordCount = 1 Then '查找到唯一记录
'让数据库中字段的值显示在文本框中
Me.txtID.Text = UserQuery.Fields("TelID").Value
Me.txtNum.Text = UserQuery.Fields("