如何解决允许共享驱动器上的其他人使用访问odbc连接
我有一个带有ADD和UPDATE查询的Access文件,该文件链接到某种SQL数据库(按顺序)。我正在构建报告和事物,但是我们公司中的其他人最终可能会使用它-可能是各种各样的人-因此,我将其放在共享驱动器上。
但是,当我从另一台计算机访问它(试图向Ops管理器演示)时,尽管两台计算机也都可以访问该驱动器,但它却失去了与SQL数据库的连接。我是新手,但我认为它所依赖的ODBC文件/连接在构建数据库的计算机中的某处-错误消息为ODBC connection to 'Orderwise 2' failed.
。
我尝试研究它,但是没有找到非常确定的东西,它似乎涉及.mdb文件,但我不知道这些文件在哪里,并且在控制面板设置中搜寻并不能给将odbc移至共享驱动器。
如何共享此数据库,以便共享驱动器上的每个人都可以使用实时数据连接?
解决方法
下面是连接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.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。