Question

vb中，如何在text1返回数据库的内容。

用adodc来连接数据库。
数据库中有列：ID（主键），商品编号，商品名称，商品价格。
窗体中有text1，text2，text3，分别对应商品编号，商品名称，商品价格。还有一按键按钮command1.
如何实现在text1中输入编号，按下按钮后，text2，text3，返回该编号的，商品名称和价格。

Answer 1

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Source = "select * from table where id='" & Text1.Text & "'"
Set rs.ActiveConnection = cn
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open

If Not rs.EOF And Not rs.BOF Then

Text2.Text = rs.Fields("商品名称")
Text3.Text = rs.Fields("商品价格")

End If
rs.Close
End If

Answer 2

不知道你用的是VB几的版本
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb"

If Text1.Text <> "" Then
str = "select * from 表名 where 商品编号='" & Text1.Text & "'"
rs.Open str, cn, adOpenKeyset, adLockOptimistic
Text2.Text = rs.Fields("商品名称")
Text3.Text = rs.Fields("商品价格")
rs.Close
Set rs = Nothing
cn.Close
End If
'后面的路径自己修改下就可以了，把代码添加到command1下

'也可以在ADODC下自己设置好，但是一般我喜欢自己写。。。