option compare database
public appaccess as access.application
sub callsqldmosqlserverlogin()
dim srvname as string
dim suid as string
dim pwd as string
' 设置 sql server 的登录参数
srvname = "(local)"
'suid = "sa"
'pwd = ""
' 调用 sql server 登录过程
sqldmosqlserverlogin srvname, suid, pwd
end sub
sub sqldmosqlserverlogin(srvname as string, suid as string, pwd as string)
dim srv1 as sqldmo.sqlserver
' 新建一个服务器实例
set srv1 = new sqldmo.sqlserver
' 调用 sql server 登录连接方法
srv1.connect srvname, suid, pwd
' 断开连接
srv1.disconnect
set srv1 = nothing
end sub
sub callsqldmowindowslogin()
dim srvname as string
' 设置 windows 登录参数
srvname = "(local)"
sqldmowindowslogin srvname
end sub
sub sqldmowindowslogin(srvname as string)
dim srv1 as sqldmo.sqlserver
' 新建一个服务器实例
set srv1 = new sqldmo.sqlserver
' 在调用前，设置 loginsecure 属性为 true
' 使用服务名进行连接
srv1.loginsecure = true
srv1.connect srvname
' 断开连接
srv1.disconnect
set srv1 = nothing
end sub
sub callchangeserverauthenticationmode()
dim constauth as byte
' 设置 constauth 参数为：
' sqldmosecurity_integrated 为 windows authentication 模式
' sqldmosecurity_mixed 为 mixed authentication 模式
' 设置 constauth 的默认值
constauth = sqldmosecurity_mixed
' 调用改变 sql server 身份认证模式的方法
changeserverauthenticationmode constauth
end sub
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
