＋设为首页 ＋添加到收藏夹
dim sServer,sUser,sDBName,sPass,sTmpPath,sInstallPath,sVersion
Dim MyWshShell
set MyWshShell=Server.CreateObject("WScript.Shell")
sserver=MyWshShell.RegRead("HKLM\SOFTWARE\My\MyData\DBServerName")
.
.
.
.
.
Application("ConnectString") = _
"Provider=SQLOLEDB.1;" _
& "Password=" & sPass & ";" _
& "Persist Security Info=True;" _
& "User ID=" & sUser & ";" _
& "Initial Catalog=" & sDBName & ";" _
& "Data Source=" & sServer & ";" _
& "Connect Timeout=90"
也就是怎么通过注册表来连接数据库的
权限够访问注册表吗？
