ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Will.li

[原创] Excell VBA+Access的应用:关于局域网内多用户数据收集的应用

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-9-11 12:37 | 显示全部楼层
本帖已被收录到知识树中,索引项:Access协同
hongtao_bmc 发表于 2012-9-11 11:06
附件里的EXCEL中有一些宏连接ACCESS,我想让EXCEL能够同时多人录入数据,如果将excel设为共享后里面的宏就不 ...

你的代码里面都已经固定好数据库路径了,这样做不太方便。你可以像我那样,将数据库放到共享共享文件夹里面,更改一下代码中的数据库路径,这样Excel文件不需要共享就可以实现多人同时录入数据。

TA的精华主题

TA的得分主题

发表于 2012-9-11 13:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请教如何更改数据库路径

TA的精华主题

TA的得分主题

发表于 2012-9-11 14:36 | 显示全部楼层
将数据库放到共享共享文件夹里面,更改一下代码中的数据库路径后,EXCEL文件发给不同的人,录入数据就可以输入到数据库里吗,数据库会有冲突吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-9-11 17:56 | 显示全部楼层
没问题的,我公司用我这个程序快一年了,数据库放在共享文件夹,很多人用,没有问题的。录入的人得有权限编辑这个数据库,否则保存不了。

TA的精华主题

TA的得分主题

发表于 2012-9-11 20:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我把ACCESS数据库文件放在局域网的文件夹里,然后把excel文件里的连接数据库路径改成局域网文件的路径,录入人员在各自的电脑上往excel文件中录入数据,通过excel文件中的按钮录入到数据库中时,会有先后顺序吗?会覆盖先录入的数据吗?录入的人都会通过excel中的按钮编辑数据库。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-9-11 20:55 | 显示全部楼层
hongtao_bmc 发表于 2012-9-11 20:06
我把ACCESS数据库文件放在局域网的文件夹里,然后把excel文件里的连接数据库路径改成局域网文件的路径,录入 ...

你看一下你的程序的数据写入方式是什么样的?是update还是insert?是update的话,那就会有覆盖的情况,是insert的话就不会。这个程序是你自己写的吗?

TA的精华主题

TA的得分主题

发表于 2012-9-11 21:45 | 显示全部楼层
看不懂,路过,留下脚印。

TA的精华主题

TA的得分主题

发表于 2012-9-11 21:57 | 显示全部楼层
数据写入方式是
Sub BT录入()  '读入到access的代码
Application.ScreenUpdating = False
    Dim conn As New ADODB.Connection   '连接
    Dim rs As New ADODB.Recordset      '记录
    Dim connString As String
   
     connString = "G:\Customer Service Division\Operations\00 Documents\03 Department\FA & repair\新维修组\维修数据库.MDB" '要打开的文件"
    conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;data source=" & connString & ";Jet OLEDB:Database Password=" & "admin"
   
    str1 = "select * from BT原始"        'sql语句
    rs.Open str1, conn, adOpenKeyset, adLockOptimistic   '打开记录
   
    '增加记录
    For i = 5 To [A65536].End(xlUp).Row
             rs.AddNew
            rs.Fields(0) = Cells(i, 1)
            rs.Fields(1) = Cells(i, 2)
            rs.Fields(2) = Cells(i, 3)
            rs.Fields(3) = Cells(i, 4)
            rs.Fields(4) = Cells(i, 5)
            rs.Fields(5) = Cells(i, 6)
            rs.Fields(6) = Cells(i, 7)
            rs.Fields(7) = Cells(i, 8)
            rs.Fields(8) = Cells(i, 9)
            rs.Fields(9) = Cells(i, 10)
            rs.Fields(10) = Cells(i, 11)
            rs.Fields(11) = Cells(i, 12)
            rs.Fields(12) = Cells(i, 13)
            rs.Fields(13) = Cells(i, 14)
            rs.Fields(14) = Cells(i, 15)
            rs.Fields(15) = Cells(i, 16)
            rs.Fields(16) = Cells(i, 17)
            rs.Fields(17) = Cells(i, 18)
            rs.Fields(18) = Cells(i, 19)
            rs.Fields(19) = Cells(i, 20)
            rs.Fields(20) = Cells(i, 21)
            rs.Fields(21) = Cells(i, 22)
            rs.Fields(22) = Cells(i, 23)
            rs.Fields(23) = Cells(i, 24)
            rs.Fields(24) = Cells(i, 25)
            rs.Fields(25) = Cells(i, 26)
            rs.Fields(26) = Cells(i, 27)
    Next i
    rs.Update
   
   
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Rows("5:65536").ClearContents
   
    Range("a5").Select
     MsgBox "BT录入完毕!!"
      Application.ScreenUpdating = False
End Sub

TA的精华主题

TA的得分主题

发表于 2012-9-12 08:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习了楼主

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-9-12 12:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
hongtao_bmc 发表于 2012-9-11 21:57
数据写入方式是
Sub BT录入()  '读入到access的代码
Application.ScreenUpdating = False

你这个是AddNew,跟insert差不多,不会覆盖的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 23:31 , Processed in 0.032578 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表