ACCESS如何打开后在后台自动链接？？？

tmtony

Dim connstr As String, mydb As DAO.Database
    connstr = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=192.168.0.1,1433;" & _
                "DATABASE=OfficeCn;" & _
                "UID=sa;" & _  '数据库登录ID
                "PWD=*********" '登录密码，链接表中请不要保存此密码
    Set mydb = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, connstr) 'DM 为随意的名字，不重要
    mydb.Close
    Set mydb = Nothing
    MsgBox "OK", vbInformation, "Connect to SQL Server"

    Exit Function

tmtony

不需要的。我们很多项目 都是这样使用的。
用了很多年了。一直正常