如何判斷DataBase中是否有此TableName |
|
尚未結案
|
|
ju1977
一般會員   發表：9 回覆：9 積分：3 註冊：2002-07-16 發送簡訊給我 |
判斷'DBDEMOS'資料庫中是否有'UserData'TableName,
以下是我的測試;但每執行一次就得重新輸入username & password,有無其它方法?? procedure TForm1.Button1Click(Sender: TObject);
var
ii: word;
name: TStringList;
begin
name := tstringlist.create;
Session.GetTableNames('DBDEMOS', '', False, False, name);
for ii := 0 to name.count - 1 do
if Pos('UserData', name[ii]) > 0 then
begin
showmessage('UserData');
break;
end;
end;
|
|
huwk
資深會員  發表：26 回覆：340 積分：323 註冊：2002-04-03 發送簡訊給我 |
|
|
ju1977
一般會員 發表：9 回覆：9 積分：3 註冊：2002-07-16 發送簡訊給我 |
|
|
cmj
高階會員 發表：15 回覆：242 積分：226 註冊：2002-06-12 發送簡訊給我 |
引言: 判斷'DBDEMOS'資料庫中是否有'UserData'TableName, 以下是我的測試;但每執行一次就得重新輸入username & password,有無其它方法?? procedure TForm1.Button1Click(Sender: TObject); var ii: word; name: TStringList; begin name := tstringlist.create; //若是paradox資料檔試試看 Session.AddPassword('Your Password'); Session.GetTableNames('DBDEMOS', '', False, False, name); for ii := 0 to name.count - 1 do if Pos('UserData', name[ii]) > 0 then begin showmessage('UserData'); break; end; end;//若不是PARADOX 拉一TDatabase元件試試看 procedure TForm1.Button1Click(Sender: TObject); var ii: word; name: TStringList; begin name := tstringlist.create; Database1.AliasName:='DBDEMOS'; Database1.DatabaseName:='DATABASE1'; Database1.LoginPrompt:=False; Database1.Params.Values['USER NAME']:='Your UserName'; Database1.Params.Values['PASSWORD']:='Your Password'; Database1.Open; Database1.GetTableNames(Name.Items,False); Database1.Close; for ii := 0 to name.count - 1 do if Pos('UserData', name[ii]) > 0 then begin showmessage('UserData'); break; end; Name.Free; end; |
發表時間：2003-06-15 15:23:43
IP:211.22.xxx.xxx 未訂閱
系統時間：2024-05-19 23:48:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |