Question

如何用vb读取access表中数据，并赋值给另一变量？ 急！

例如，access中有一表：
书名 价格 数量
aaa 10 2
bbb 15 5...
欲把价格字段各值赋给变量Q.用vb语言如何实现
conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\abc.mdb"
报错,说要求有对象的提示?

Answer 1

Private Sub Command1_Click()
Dim conn As Object, rs As Object, q As Currency
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\数据库名.mdb"
rs.open "select 价格 from 表名 where 书名='aaa'", conn, 1, 1
If Not rs.EOF Then q = rs(0)
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "书名为《aaa》的书价格为" & q & "元"
End Sub

Answer 2

VB的错误去。取决于什么错误，你直接提出了这个错误，谁知道什么是错的。发布代码或错误代码。让我们来看看它。