当ADP连接SQL出错时

KenjiSato

当

1. Application.CurrentProject.OpenConnection _
   
2.    "PROVIDER=SQLOLEDB.1;PASSWORD=123 ;USER ID=SA ;Persist Security Info=false;INITIAL CATALOG=AAA;DATA SOURCE=SERVER"

复制代码

连接不上时（或者服务器出故障时），能否弹出类似附图的选择窗口，选择新的服务器；
将SA、密码（见上代码）放在模块中安全不？会否被反编译出？
ADE中可否改写，如改写上代码中的登录名或密码。

KenjiSato

zhuyiwen

你說的這種情況，我這裏沒有

連不上時，我這裏的提示信息是“[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。”

“选择新的服务器”，用你自己的窗體，輸入信息，然後形成連接字符串，再連接。

ADE的反編譯...，目前我還沒拿到這樣的反編譯器。

不過世界上本來就沒甚麽絕對安全。[em26]

[此贴子已经被zhuyiwen于2002-8-6 14:51:22编辑过]

HG

我的建義少用SA來給自己找麻煩.
如果您想加密哪麼嚴是不可能的.
系統有連接可用,您確偏偏來個創新,(創新是好的,如果放在程度寫作思路上更好)
構構連接串,就意味著你會在程序的外圍,付出更長的時間來搞定.
您現在不是想在連接不上,或失敗時給用戶一個提示嗎?
我清楚的記得本壇有一貼是構架一個連接源,
當連接源不付時,給用戶一個提示,來輸入正確的連接源.
下面是總分例子(用UDL作數據源)
sub linkupdate()
dim strconnect as string
dim udl as msdasc.dataliks /*這才是sqlADP提專用提供者
set ud1 = new msdasc.datalinks
strconnect = udl.promptnew
currentproject.openconnection strconnect
end sub

----------------------------怎麼用,自己想吧-------------

[此贴子已经被HG于2002-8-6 17:43:51编辑过]