想用ACCESS而不会用的请进.
ACCESS高手请来指点
本文件适合以下人员下载,学习
对EXCEL熟悉但对ACCESS不懂的人.
对学习不感兴趣,但急于想用的人.
文件来历:在做物流公司从客户建档,制单,客服,统计,流量分析,查帐,对帐,成本等一整套表格时
最开始是用EXCEL做数据存贮,由于EXCEL的强项是分析数据,用是能用,就是不方便
1是EXCEL打开慢,保存慢(数据量大的话)
2是不能多人同时更新修改,经常能听到客服的大喊:柜台的把文件关一下,我要更新数据.
3是存贮数量有限,65536条
只有用数据库才能解决,以上3个问题
虽然从没用过,但好在EH里有不少列子,但远不如VBA和函数丰富,
看来这方面的资料还是少的多啊.
列子中多数是用的常量,如何改为变量,不懂
只好逐条改动看效果,还是掌握了一些用法.
边学边改三天后,数据转换成数据库,使用正常,同时修改互不影响
看了好多列子,但仍有一些关键问题没有找到方法.
用VBA打开有打开密码的数据库,找到一种,还有一种在兰兄的教材中只有打开无密码文件的方法,
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") PWD不知道该放在哪？
居然要这样写才行,为找这个方法花了我一整天的时间
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB", False, False, ";Pwd=123")
还有只提取部分内容(逐行逐列),修改后存入数据库的方法,(如在EXCEL中不难)
例子中只找到,全部提取,全部存入的方法,不实用
这个方法正是我最需要的核心,也是摸索出来的
我相信有很多人也在找这个方法,
如何指定时间段,提取数据库中的资料,前几天看到个这样的提问贴,不知道有答案了没有
我是这样处理的:
把日期写到表上,再设置格式为数值,这就可以了
最后再把格式改回日期格式,都通过VBA操作,用户根本不觉得有变化
感觉这个方法是个笨办法,但好在能用,如有其它方法请指点.
虽然手头还有好多工作没完成,但还是觉得应该先把这个发上来,
花了不少时间,修改成通用的,这都是我在EH得到的知识.
不敢说原创,只能说把自己的学习心得和经历与大家分享
毕竟是第一次用ACCESS
对于代码中使用不当之处,请指出.谢谢
功能简介: 所有密码都是"123"
直接在表上显示结果,虽粗陋,但实用
设了简单的用户系统,密码都是123
管理员可删除用户,添加用户,
可向数据库中批量添加,删除数据,
如数据库共有10个字段(我叫它列头)
可以只提取其中的几个来修改,其它不受影响
就是按条件提取,再按条件修改
唯一性列头"姓名"也是能改的
自动记录修改时间,和操作员,用户本人无法干预,
两种检索方案
1.指定列头和时间段
2.只查时间段
显示内容为目录表中第三行所示列头,根据需要,自行设定
方式表中有管理工具,并设了6个查询模式,供用户自定义
自定义表中的A列自动生成指定文件的列头.
自定义表中的B和C列为检索窗口下拉菜单内容
通过这个文件,打开其它指定的*.mdb文件,有方便的选择界面
*.mdb文件必须是已知密码或无密码的,其它数据库类型没试过
此文件是以通讯录为样本设计的
如你的数据库是产品库存,请把其中具有唯一性的列头改为"姓名"
列:把"货号"改为"姓名",这样最省事
如不怕麻烦,可以把代码中所有"姓名"都改成"货号",可能有十几处吧*_*
还有一个必改之处,在"按单号"模块的Macro2中,已做标示
感觉Macro2的写入方法不太好,有高人经过请指点一下.
水平有限只能做到这么多了,现在公司的数据库中已有103列*12000行
放在局域网上,运行良好.
两个隐藏表,运行下面的代码可见
Sheets("b").Visible = 1
Sheets("h").Visible = 1
也不知道这是宝还是草?
觉得有用就用，觉得不足就多指点．不用给我面子，呵呵
EH. ldy888
2006-6-8
hDD0EF8j.rar
(99.72 KB, 下载次数: 1284)
PS:一些改善的方法,在后面的跟帖中有讨论,有些已方法已找到,但还不完善(俺水平不高)
如有完善的方法,会在一楼更新.
[此贴子已经被作者于2006-6-16 14:50:26编辑过] |
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2006-6-8 20:24
楼主
