Database vb6.0中的多用户数据库

Database vb6.0中的多用户数据库,database,ms-access,vb6,adodb,Database,Ms Access,Vb6,Adodb,我使用ms access 2003和vb6.0作为我的项目完成了一个ERP系统,但是,当我为我的项目进行测试时,我发现一个问题,ms access 2003仅适用于1个pc用户,我需要它在不同的pc中是多用户的,并且能够同时进行读/写,任何人都可以告诉我,我应该如何使我的系统成为多用户系统?随信附上我对adodb和adodc的部分编码,请帮助我如何使该ERP系统成为多用户系统,感谢您的帮助 对于Adodb: Dim con As New ADODB.Connection Dim cmd As N

我使用ms access 2003和vb6.0作为我的项目完成了一个ERP系统,但是,当我为我的项目进行测试时,我发现一个问题,ms access 2003仅适用于1个pc用户,我需要它在不同的pc中是多用户的,并且能够同时进行读/写,任何人都可以告诉我,我应该如何使我的系统成为多用户系统?随信附上我对adodb和adodc的部分编码,请帮助我如何使该ERP系统成为多用户系统,感谢您的帮助

对于Adodb:

Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\simewood.mdb" & "; Persist Security Info=False;"
con.CursorLocation = adUseClient
con.Open
strSQLmarketing = "select * from tblMarketing where Order_ID = '" & cboOrderID & "' and Model_ID = '" & cboModelID & "'"
With cmd
    .ActiveConnection = con
    .CommandText = strSQLmarketing
    .CommandType = adCmdText
End With
With rs
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open cmd
End With
对于Adodc:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\simewood.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tblLogin where status = 'enabled'"

访问不是一次使用,它对多个用户非常满意(在某种程度上-见下文)。但是,每个用户都必须能够访问.accdb文件。因此,如果文件隐藏在一台PC上的非共享文件夹中,而无法从第二台PC访问,则第二台PC将无法访问该文件


Access中的并发用户数是有限的。上次我对多个用户(Access 97)使用它时,它开始在大约9个并发用户中耗尽资源。我不知道最新版本允许什么,但像SQL Server、Oracle MySQL/MariaDB等“成熟”数据库将更少。

它们都在本地windows网络上吗?不是……不是在本地网络中,它将由来自不同区域的多个网络访问实际上真正的限制更接近255个用户。甚至这也取决于使用场景。首先,您希望将应用程序限制为每个实例1个连接(这是一个常见错误)。然后,您可以使用半连接模型,其中只有中间件连接/打开数据库本身。最后,在cave man案例中,每个客户端实例有一个连接,您可能需要行级锁定,但即使如此,如果有大量更新,锁争用也会增加。但是,如果9个客户端使您的速度变慢,您可能做了一些非常错误的事情。我应该如何进行编码,使我的.mdb文件激活,以实现多用户可访问性??你能给我一些样品吗?还是你有其他更好的推荐?