查找字段的值并传递给TEXT1.TEXT

来源：百度知道 编辑：UC知道 时间：2024/06/07 04:17:17
数据库LL有两个字段HH1和XX2，TEXT1.TEXT对应的是HH1，TEXT2.TEXT对应的是XX2，现在要根据TEXT2.TEXT的内容查找出HH1的内容，并把HH1的内容传递给TEXT1.TEXT， 要详细的代码，谢谢

Private Sub Command1_Click()
Dim A,B
A=Text1.Text
B=Text2.Text
'缺少数据库连接和数据表连接语句
strsql="Select * Form LL Where HH1 Like '%" & A & "%' AND XX2 Like '%" & B & "%'"
RS.Open strsql,db,2,2
Do While Not RS.EOF
Text1.Text=Text1.Text & RS!HH1 & VBCRLF
RS.MoveNext
Loop
RS.Close
Set RS=NotHing
End Sub
注意：因为是模糊查询，可能查询有多条记录，因此Text1.Text必须是多行文本框。