Excell VBA+Access的应用：关于局域网内多用户数据收集的应用

Will.li

hongtao_bmc 发表于 2012-9-11 11:06
附件里的EXCEL中有一些宏连接ACCESS，我想让EXCEL能够同时多人录入数据，如果将excel设为共享后里面的宏就不 ...

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

hongtao_bmc

请教如何更改数据库路径

hongtao_bmc

将数据库放到共享共享文件夹里面，更改一下代码中的数据库路径后，EXCEL文件发给不同的人，录入数据就可以输入到数据库里吗，数据库会有冲突吗？

Will.li

没问题的，我公司用我这个程序快一年了，数据库放在共享文件夹，很多人用，没有问题的。录入的人得有权限编辑这个数据库，否则保存不了。

hongtao_bmc

我把ACCESS数据库文件放在局域网的文件夹里，然后把excel文件里的连接数据库路径改成局域网文件的路径，录入人员在各自的电脑上往excel文件中录入数据，通过excel文件中的按钮录入到数据库中时，会有先后顺序吗？会覆盖先录入的数据吗？录入的人都会通过excel中的按钮编辑数据库。

Will.li

hongtao_bmc 发表于 2012-9-11 20:06
我把ACCESS数据库文件放在局域网的文件夹里，然后把excel文件里的连接数据库路径改成局域网文件的路径，录入 ...

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

陪玲一生

看不懂，路过，留下脚印。

hongtao_bmc

数据写入方式是
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

a8737461

学习了楼主

Will.li

hongtao_bmc 发表于 2012-9-11 21:57
数据写入方式是
Sub BT录入()  '读入到access的代码
Application.ScreenUpdating = False

你这个是AddNew，跟insert差不多，不会覆盖的。