求助达人vb 输入查询问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 07:29:38
在text1中输入关键字，按“查询”键后在text2中输出查询结果。应该如何实现？先谢谢各位了！
Text2="select * from table where NO='"Val(Text1)"';" 如果这样写按钮事件的话应该怎么改才行呢？text1是输入框、text2是显示结果框

你得先连接数据库啊，用一个ADODC控件连接数据库
Adodc1.commandtype=adcmdtext
Adodc1.recordsource="select * from table where NO='"val(text1)"'"
Adodc1.refresh
with Adodc1.recordset
.movefirst
text2.text=.fields(0).value
end with
你也可以在with语句块前面加上一个if语句块，判断结果集是否为空，如果为空，输出一个msgbox。
希望能帮到你

用递归，遍历所有文件夹

再用几个API FindFirstFile,FindNextFile,FindClose