Office中国论坛/Access中国论坛

标题: ADP+SQL SERVER 自动登录问题 [打印本页]

作者: chinasunny 时间: 2005-3-31 00:43
标题: ADP+SQL SERVER 自动登录问题
如何屏蔽程序打开时自动登陆SQL SERVER的窗口；

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

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

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

作者: chinasunny 时间: 2005-3-31 16:40
怎么没有人回答吗?

作者: 徐阿鹏 时间: 2005-3-31 17:18
保存登录密码？

作者: chinasunny 时间: 2005-4-1 00:23
虾米意思??

作者: KenjiSato 时间: 2005-4-6 15:19
退出前先断开连接，下次进入重新连接，就不会出现了

作者: appleboy0028 时间: 2006-11-6 22:32
利用wondows集成验证！

作者: z_cj 时间: 2007-1-13 16:16
退出時取消鏈接，下次登陸就不會了

作者: bikehome 时间: 2007-1-15 19:49
这个功能确实比较麻烦，但是确实在多用户下确实是一件不错功能。权限设置都靠他了

作者: yiwancn 时间: 2008-10-6 19:53
学习了

作者: zzcjp 时间: 2009-3-6 17:33
建立一个新的模块，将以下代码复制黏贴到模块中：
'================================
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数据库完成。

作者: chenyingfengsx 时间: 2009-9-26 14:07
ddd

作者: gdjdyyj 时间: 2010-2-1 15:54
学习！

作者: tiger_lyj 时间: 2010-5-7 17:35
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)