excel表格和数据库之间的关系
我想做个表格和数据库连接,达到的功能如下:在单元格A1位置输入器件的名称Y,单元格B1位置输入器件的数量X,单元格C1位置自动出现Y的单价,单元格D1位置出现总价。这个功...
我想做个表格和数据库连接,达到的功能如下:在单元格A1位置输入器件的名称Y,单元格B1位置输入器件的数量X,单元格C1位置自动出现Y的单价,单元格D1位置出现总价。这个功能需要怎么样制作才能实现啊~~~
展开
1个回答
展开全部
在EXCEL中按ALT+F11进入VBA编程界面,
先点“工具”菜单中的引用,
勾选Microsoft DAO 3.6 Object Library,
然后在模块中插入这段代码:
Function Price(Name)
Dim dbs As Database
Dim rst As Recordset
Dim qdf As string
'db1.mdb要换成你的数据库名称
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
OK!
先点“工具”菜单中的引用,
勾选Microsoft DAO 3.6 Object Library,
然后在模块中插入这段代码:
Function Price(Name)
Dim dbs As Database
Dim rst As Recordset
Dim qdf As string
'db1.mdb要换成你的数据库名称
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
OK!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询