Question

VB6.0链接SQL实现查询问题。如图，数据库里有一个“用户查询”的表，输入订单号实现查询。求代码。

Answer 1

1、引用ADO组件
2、定义Connection
dim cn as new adodb.connection
3、定义RecordSet
dim Rs as new adodb.recordset
4、打开Connection
cn.open "这是连接字符串"
5、打开RecordSet
Rs.open "select * from 用户查询 where 订单号='" & text1.text ,cn
if not Rs.eof then

text2.text=rs("字段1") & ""

text3.text=rs("字段2") & ""

.....

end if
rs.close
cn.close