登入資料庫，要如何判斷有無成功，甚至判斷有無此資料庫呢 |
|
答題得分者是：Coffee
|
|
17kobe
初階會員   發表：86 回覆：73 積分：31 註冊：2007-07-30 發送簡訊給我 |
procedure TForm2.Button1Click(Sender: TObject);
var a: TForm1; begin svr:=edit1.text; db_name:=edit2.text; db_account:=edit3.text; db_pass:=edit4.text; svr_string:='Provider=SQLOLEDB.1;Password=' db_pass ';Persist Security Info=True;User ID=' db_account ';Initial Catalog=' db_name ';Data Source=' svr; //Provider=SQLOLEDB.1;Password=xasset;Persist Security Info=True;User ID=sa;Initial Catalog=kobe;Data Source=10.1.0.53\sqlexpress try ADOConnection1.ConnectionString :=svr_string; ADOConnection1.Connected := True; except Showmessage('連線失敗!'); end; a:= TForm1.Create(Form2); try a.ShowModal; //ShowData(); finally a.Free; end; form2.Close; end; 這是在form2，當form2輸入成功後，關掉後跳到form1(但我的form2還留在下面，一close掉，就全close)，還有是如何判斷可不可以連到輸入的資料庫呢 用try的方法好像不行。 |
|
Coffee
版主 發表：31 回覆：878 積分：561 註冊：2006-11-15 發送簡訊給我 |
ADOConnection用OpenSchema去查，OpenSchema的內容就可以拿來查DB是否存在
另你的Form2若為MainForm，則關閉MainForm後就會關閉整個Application，在Project Manager看的到， 就是你第一個開啟的Form 如果你要共用整個Connection，還是作個DataModule出來會比較好。
------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法，謝謝大家！
編輯記錄
Coffee 重新編輯於 2007-08-20 18:50:10， 註解 無‧
|
發表時間：2007-08-20 18:33:39
IP:60.250.xxx.xxx 訂閱
系統時間：2024-05-17 11:10:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |