允许共享驱动器上的其他人使用访问odbc连接

Question

我有一个带有ADD和UPDATE查询的Access文件，该文件链接到某种SQL数据库（按顺序）。我正在构建报告和事物，但是我们公司中的其他人最终可能会使用它-可能是各种各样的人-因此，我将其放在共享驱动器上。

但是，当我从另一台计算机访问它（试图向Ops管理器演示）时，尽管两台计算机也都可以访问该驱动器，但它却失去了与SQL数据库的连接。我是新手，但我认为它所依赖的ODBC文件/连接在构建数据库的计算机中的某处-错误消息为ODBC connection to 'Orderwise 2' failed.。

我尝试研究它，但是没有找到非常确定的东西，它似乎涉及.mdb文件，但我不知道这些文件在哪里，并且在控制面板设置中搜寻并不能给将odbc移至共享驱动器。

如何共享此数据库，以便共享驱动器上的每个人都可以使用实时数据连接？

Answer 1

下面是连接SQL数据库和运行命令的代码。

Service::Status

您必须添加Private Sub cmdTest_Click() 'Add reference Microsoft ActiveX Data Objects 2.1 Library 'Fix SQL Server Connection ERROR! See below link 'https://blog.sqlauthority.com/2009/05/21/sql-server-fix-error-provider-named-pipes-provider-error-40-could-not-open-a-connection-to-sql-server-microsoft-sql-server-error/ 'Declare variables' Dim objMyConn As ADODB.Connection Dim objMyCmd As ADODB.Command Dim objMyRecordset As ADODB.Recordset Set objMyConn = New ADODB.Connection Set objMyCmd = New ADODB.Command Set objMyRecordset = New ADODB.Recordset Dim strEmpID As String, strEmpName As String Dim JoiningDate As Date Dim eSalary As Integer Dim myRate As Double 'Open Connection' objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=192.168.0.150;User ID=sa;Password=saDBpassword;" objMyConn.Open 'Another provider 'Provider=sqloledb;Data Source=192.168.0.150,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=myUsername;Password=myPassword; 'Set and Excecute SQL Command' Set objMyCmd.ActiveConnection = objMyConn ' Insert data to SQL Database table. strEmpID = InputBox("Enter Employee ID:", "Employee ID", "HO-300") strEmpName = InputBox("Enter Employee Name:", "Employee Name", "Mr. SQL") JoiningDate = InputBox("Enter Joining Date:", "Joining Date", Date) eSalary = InputBox("Enter Salary:", "Salary", 10000) myRate = InputBox("Enter Rate:", "Rate", 11.11) objMyCmd.CommandText = "INSERT INTO [TestDB].[dbo].[tblEmpInfo] (EmpID, EmpName, jDate, Salary, HourRate) Values('" _ & strEmpID & "', '" _ & strEmpName & "', '" _ & JoiningDate & "', " _ & eSalary & ", " _ & myRate & ")" objMyCmd.CommandType = adCmdText objMyCmd.Execute 'Execute SQL command End Sub 进行引用。我正在使用ActiveX Data Objects 2.5 Library。对象引用可能取决于MS-Access版本。

请仔细阅读本文以解决网络服务障碍。 SQL Server Fix Error.