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

来源：百度知道 编辑：UC知道 时间：2024/06/28 03:55:31
用adodc来连接数据库。
数据库中有列：ID（主键），商品编号，商品名称，商品价格。
窗体中有text1，text2，text3，分别对应商品编号，商品名称，商品价格。还有一按键按钮command1.
如何实现在text1中输入编号，按下按钮后，text2，text3，返回该编号的，商品名称和价格。

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

不知道你用的是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