ACCESS做数据库，EXCEL做前台的往来帐

hwhxhcw

我想做一个，ACCESS的数据库用EXCEL做前台录入的往来帐系统。
EXCEL就是平时录入用，与ACCESS活动更新（就是EXCEL更新ACCESS的数据也会自动更新）。
往来帐，就是每个客户的应收应付。不知哪位高手能提供一些模版。
应收帐款登记：日期  款项发生月份 摘要  应收金额  业务代表  月结天数
应收帐款收回：日期 摘要  收回金额
能查询每个客户的应收，收回，欠款情况（在同一张表）
自动生成报表，以客户，每月发生额。
应付帐款一样的道理。
因我不会做ACCESS，所以特请各位帮忙！hwhxhcw@126.com

tmtony

这个做起来就比较复杂了. Excel可以直接连接Access数据源
但在Excel中要使用Access数据也可使用ADO方式
使用ADO的connnection可连接到Access数据库
然后在Excel的功能就需要你在Excel中实现中.只是在提交数据时通过ADO更新数据到Access数据库

zhuyiwen

想法很好。不过实现起来并不容易。
我们曾经做过类似的项目，中石化广州分公司能源数据收集。与你的不同是采用SQL Server数据库。操作方式正如tmtony据说。

hwhxhcw

可否帮我做一个模块呢
我不知ADO是怎样的。
因为往来款多的话，在EXCEL用起来不方便。速度慢！

liwen

http://www.office-cn.net/vvb/thread-57563-1-1.html 这个是用EXCEL作前台ACCESS作后台的例子

hwhxhcw

可惜不会，C++。

chenwm1973

此例只举出了如何显示数据，添加，查询等大同小异。

hwhxhcw

原帖由 chenwm1973 于 2008-4-7 12:41 发表
此例只举出了如何显示数据，添加，查询等大同小异。

能从EXCEL录入，存在ACCESS吗？

chenwm1973

当然可以。
arrFileName = Array("xh", "sc_date", ......)

db.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source=" & Worksheets.Application.ActiveWorkbook.Path & "\*****.mdb "
db.Open
    Set rs1 = Nothing
    rs1.CursorLocation = adUseClient
    rs1.Open "select *  from tblDetailData order by xh", db, adOpenStatic, adLockPessimistic
    rs1.AddNew
rs1.Fields(arrFileName(1)).Value = 数据1   
rs1.Fields(arrFileName(2)).Value =数据2
......
rs1.Update
如此即添加到Access表中了。

hwhxhcw

就不知如何做起，不懂VB