Question

access中VB语句调用查询并返回结果的问题

网上有许多类似在VB中调用ACCESS的问题,但都不是我要的答案,请回答者看清楚了.我的VB就是指我的ACCESS中的VB语句,如果用网上的一般方法,会提示这个ACCESS文件已经被锁定.
具体的例子就是:我在ACCESS文件test.mdb中已经制作好了一个表,这个表名是product,表有2个字段,分别是name、price，我在access中制作了一个窗体，窗体上有个按钮，我希望点一下这个按钮，出来我指定的产品指定数量的总价，也就是说返回“ select price*数量 from product where name='AAA' ”的值，但我不知道怎么写，请多多指教。
非常感谢,不过我后来找到更简洁的写法也能满足我的要求,之前我一直错误是因为产品名称的引号掉了一边,我晕,我一直因为是vb在连自身所在的access时,应该有个类似于current一样的写法,谢谢了.
Set Conn = CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\yuzhou.mdb"
text1.Value = Conn.Execute("SELECT sum(price) from product where name='战斗机'")(0)

Answer 1

Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\text.mdb;Jet OLEDB:Database password=;persist security info=false"
rs.Open "select 数量 from product where name = " & text1.text,con, adOpenKeyset, adLockOptimistic
if not rs.eof then
msgbox rs("price")
else
msgbox "产品不存在"
end if
rs.close
con.close
end sub

product表应该有三个字段吧，name、prize、数量
窗体上有text1控件，用来输入产品名称