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

pwj2009

所有的表都已经链接上SQL.每次打开窗体都弹出SQL登陆，要输入账号密码才能链接。。如何在打开窗体后，在后天自动链接制定的数据库！

pwj2009

在SQL2005中建立了数据库创建了表，已经在ACCESS中链接了，，但是每次登陆都要重新输入SQL数据库的账号密码链接。，，。！我想在后台用代码自动登陆！

pwj2009

cuxun 发表于 2015-6-3 16:45
ADP?

用VBA
在SQL2005中建立了数据库创建了表，已经在ACCESS中链接了，，但是每次登陆都要重新输入SQL数据库的账号密码链接。，，。！我想在后台用代码自动登陆！

我写了代码在打开窗体事件是否正确？
Dim rst5 As Recordset
Set rst5 = CurrentDb.OpenRecordset("SELECT * FROM 用户密码表 IN '' [ODBC;DSN=数据库名称;UID="用户名"WD=" 密码 ";DATABASE=数据库名称] where 用户名='"登陆窗体用户名"'", dbOpenDynaset, dbSeeChanges)
rst5.Edit
rst5.Update
rst5.Close
D oCmd.OpenForm "窗体"      
还是这样？
Dim mySQLConnection As New ADODB.Recordset
    mySQLConnection.Open "SELECT * FROM 用户表 IN '' [ODBC;DSN=ccc;UID=saWD=123456;DATABASE=数据库名称]", CurrentProject.Connection, adOpenForwardOnly
    mySQLConnection.Close
    Set mySQLConnection = Nothing

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

pwj2009

tmtony 发表于 2015-6-4 09:30
Dim connstr As String, mydb As DAO.Database
    connstr = "ODBC;" & _
                "DRIVER=SQL  ...

我在打开窗体事件输入了代码，。还是弹出要输入数据库的账号密码。！！！

tmtony

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

zpy2

用链表保存l密码