【问题标题】:Set user and pws in linked table在链接表中设置用户和密码
【发布时间】:2015-07-10 23:01:30
【问题描述】:

使用下面的代码我设置了链接表参数,我设置了UsrPws,但每次程序启动并使用链接表时,我都会收到此错误:



然后

现在我必须取消标记受信任的连接并再次输入UsrPws

这是什么原因造成的?

Public Function SetLinkedTablesTruck()

    Dim db As DAO.Database
    Dim tdf As TableDef
    On Error GoTo ErrorHandler    
    Set db = CurrentDb
    ' Loop Table Defs
    For Each tdf In db.TableDefs
    If tdf.Name = "TruckOUT" Then
    MsgBox tdf.Connect
    tdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=MYITSRV;DATABASE=dbItalianDb;TABLE=dbo.truckView;UID=UserView;PWD=UserView"
        tdf.RefreshLink
        db.TableDefs.Refresh
    End If

    Next

    Set tdf = Nothing
    Set db = Nothing

    MsgBox "Tables Re-Linked"

ExitHandler:
   Exit Function

ErrorHandler:
   MsgBox "Error in SetLinkedTables : " & err.Description
   Resume ExitHandler

End Function

【问题讨论】:

    标签: ms-access vba ms-access-2007


    【解决方案1】:

    您通常不包括表名,因此:

    tdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=MYITSRV;DATABASE=dbItalianDb;UID=UserView;PWD=UserView"
    

    【讨论】:

    • 谢谢,但这不是问题,我试过没有表名,但问题是一样的
    • 然后尝试使用Trusted_Connection=No 扩展连接字符串,因为当您同时提供UIDPWD 时,服务器似乎需要一个可信连接。
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 2018-05-08
    • 2012-07-11
    • 2012-09-01
    • 2013-10-20
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多