求助Access与EXCEL中的连接关系~~

丨隕落丨

我想做个表格和数据库连接，达到的功能如下：在单元格A1位置输入器件的名称Y，单元格B1位置输入器件的数量X，单元格C1位置自动出现Y的单价，单元格D1位置出现总价。然后再EXCEL用了 DAO 引用 附件.rar (171.7 KB, 下载次数: 31)

2010-11-4 16:03 上传

点击文件名下载附件

如下：
Function Price(Name)
    Dim dbs As Database
    Dim rst As Recordset
    Dim qdf As string
    Set dbs = OpenDatabase("c:\db1.mdb")
       qdf = "select 单价 from 产品 where 名称='" & name & "'"
   Set rst = dbs.OpenRecordset(qdf)
   Price = rst.Fields("单价")
End Function

接着切换到EXCEL表格界面，C1单元格中输入
=Price(A1)
D1单元格中输入
=C1*B1

可是为什么不能用 是哪里错了吗？我是新手 求助啊。。。具体看附件 错误的地方麻烦指正啊~~~

styhs

语句出错，Access表对象只有“表1”，而没有“产品”。另Set变量后，例程结束前最好进行释放；同时注意返回空值时的处理步骤。

错误的语句：
qdf = "select 单价 from 产品 where 名称 = '" & Name & "'"

丨隕落丨

可以加个QQ详谈一下吗？。。。还是有点问题啊723640162

丨隕落丨

可以加个QQ详谈一下吗？还有点问题啊 请教一下啊 723640162 谢谢啊

丨隕落丨

我将db1.mdb放才C盘，然后修改语句为
Function Price(Name As String) As Currency
Dim dbs As Database, rst As Recordset, qdf As String
    Set dbs = OpenDatabase("C:\db1.mdb")
    qdf = "select 单价 from 表1 where 名称 = '" & Name & "'"
    Debug.Print qdf
    Set rst = dbs.OpenRecordset(qdf)
    If rst.EOF Then
        Price = 0
    Else
        Price = rst.Fields("单价")
    End If
    Set rst = Nothing: Set dbs = Nothing
End Function
还要做其他的修改吗？还是有错误啊

styhs

办公时间无法上QQ，错误在什么地方？

丨隕落丨

编辑后 任然无法达到效果，依旧是#XXXX。。

styhs

激活函数所在的单元格，还会吗？

丨隕落丨

咋激活啊？。。。难道还要其他步骤的啊。。

丨隕落丨

下载了你给的附件 然后把数据库放在C盘，Set dbs = OpenDatabase("C:\db1.mdb")这么修改，开始的时候有28.3的显示，单元格激活后，#XXXX了。。。