存入資料表名稱至Listbox內作為選項 |
|
尚未結案
|
|
a120803
初階會員   發表：61 回覆：66 積分：25 註冊：2003-03-12 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
引言: 請問各位大大: 我使用的是SQL Server,如何把自訂的資料表格名稱存入Lisbox內作為選項1.你所謂[自訂的資料表格名稱]是指資料庫現有的資料表還是不存在的資料表呢? 2.無論如何資料表格名稱,就是一個String吧，所以你的問題就是如何把字串加入到ListBox的選項內吧
Begin
ListBox1.Items.Clear;//清除選項(有必要才做)
If ListBox1.Items.IndexOf('xxxxxx') =-1 Then Begin
ListBox1.Items.Add('xxxxxx');
End;
End;
如會錯意，請勿見怪!並再說明詳細些
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi:
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select name' #13
'from sysobjects' #13
'where xtype = ' QuotedStr('U') // U:User Table S:System Table
'order by' #13
' name');
Query1.Open;
ListBox1.Items.Clear;
WHILE NOT Query1.Eof DO
BEGIN
ListBox1.Items.Add(Query1.FieldByName('Name').AsString);
Query1.Next;
END;
end;
------
Fishman |
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
|
|
ann0509
一般會員  發表：19 回覆：42 積分：12 註冊：2010-08-09 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
發表時間：2004-02-07 02:09:00
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-04-20 11:20:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |