UC知道+20/vb中，关于数据库查找的问题。
来源：百度知道 编辑：UC知道 时间：2024/06/20 08:45:02
我有一个。mdb的数据库。用adodc来连接。用以下代码添加：
Private Sub Command1_Click()
Dim sc As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;"Data Source=E:\vb\Access_db.mdb;Jet OLEDB:Database Password=
strSQL = "select * from 商品信息"
rs.Open strSQL, conn, 3, 3
rs.AddNew
rs!编号 = Text1.Text
rs!名称 = Text2.Text
rs!价格 = Text3.Text
rs.Update
rs.Close
conn.Close
MsgBox ("添加记录成功！")
Adodc1.Refresh
End Sub
数据库中还有"ID"列，为自动编码，是主键。
-------------------------
请问，如果有一command2，在text1中输入编码后，单击按钮，text2,text3返回该编码的名称和价格。
折怎么实现。
Private Sub Command1_Click()
Dim sc As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;"Data Source=E:\vb\Access_db.mdb;Jet OLEDB:Database Password=
strSQL = "select * from 商品信息"
rs.Open strSQL, conn, 3, 3
rs.AddNew
rs!编号 = Text1.Text
rs!名称 = Text2.Text
rs!价格 = Text3.Text
rs.Update
rs.Close
conn.Close
MsgBox ("添加记录成功！")
Adodc1.Refresh
End Sub
数据库中还有"ID"列，为自动编码，是主键。
-------------------------
请问，如果有一command2，在text1中输入编码后，单击按钮，text2,text3返回该编码的名称和价格。
折怎么实现。
strSQL设置为带where条件的查询语句然后打开rs
如果返回的记录数为1
可用
Text1.Text=rs!编号
这样显示
你四级了居然用10分来钓鱼啊，--！
知识是很值钱的。
你升到100分，我给你写个完整的程序来！