ADP+SQL SERVER 自动登录问题

chinasunny

如何屏蔽程序打开时自动登陆SQL SERVER的窗口；

我把登陆程序写在主菜单的OPEN函数中，可是SQL SERVER窗口还是出现！

好象时ADP一打开就要求连接了；请问我该把自动登陆程序写在哪里？或是如何关闭ADP一打开就要求连接的问题？

焦急等待。。。。先谢谢了

chinasunny

怎么没有人回答吗?

徐阿鹏

保存登录密码？

chinasunny

虾米意思??

KenjiSato

退出前先断开连接，下次进入重新连接，就不会出现了

appleboy0028

利用wondows集成验证！

z_cj

退出時取消鏈接，下次登陸就不會了

bikehome

这个功能确实比较麻烦，但是确实在多用户下确实是一件不错功能。权限设置都靠他了

yiwancn

学习了

zzcjp

建立一个新的模块，将以下代码复制黏贴到模块中：
'================================
Public Function CheckLinks() As Boolean
    Dim DB As Database
    Dim tbl As TableDef
    Dim a As String
    Dim b As String
    Dim d As String
    Dim dns As String
    Set DB = CurrentDb
    a = "sa" '数据库用户
    b = "sa" '数据库口令
    d = "采购订单" '数据库名称
     dns = "FILEDSN=采购订单.dsn;UID=" & a & "WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
    For Each tbl In DB.TableDefs
   
      If tbl.Attributes = 536870912 Then
           tbl.Connect = dns
           tbl.Attributes = dbAttachSavePWD
           tbl.RefreshLink
        End If
    Next
    DoCmd.OpenForm "SY_系统登录"'你的登录窗口名称
End Function
’==================================
然后建立一个“宏”

'------------------------------------------------------------
' autoexec
'
'------------------------------------------------------------
Function autoexec()
On Error GoTo autoexec_Err
    Call CheckLinks

autoexec_Exit:
    Exit Function
autoexec_Err:
    MsgBox Error$
    Resume autoexec_Exit
End Function
‘=========================
宏操作：RunCode
函数名称：CheckLinks ()
宏名：autoexec

这个宏名是access默认名，access启动时会自动查找这个宏，找到后自动执行。
ok，自动连接SQL数据库完成。