各位大大早安啊～ 想請教各位如何用Delphi結合SQL2000 Server，如何查出資料庫中所有各資料表的主索引鍵欄位名稱呢？感謝各位大大的幫忙喔！^^

你好！我是用這個方法！ select a.name, a.id, b.name from sysobjects a left outer join sysobjects b on a.id = b.parent_obj where a.xtype = 'U' and b.xtype = 'PK' Ian

您好﹗    可經于GetIndexName來取得索引欄位名﹐如下﹕

begin
  ADOTable1.GetIndexNames(ComboBox1.Items);
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

[quote] 您好﹗ 想請問(ComboBox1.Items)how to set內容，可麻煩舉例說明所提供方法如何用嗎？謝謝！感恩!!(新手上路請多多指教)    可經于GetIndexName來取得索引欄位名﹐如下﹕

begin
  ADOTable1.GetIndexNames(ComboBox1.Items);
end;

ADOTable1.GetIndexNames(ComboBox1.Items); 是把所有的Index name取出來，好像無單獨取出主鍵值！ Ian

插个花 sjaysyin您好：您是要得出“查出資料庫中所有各資料表的主索引鍵欄位名稱” 可采用如下方法：

procedure TForm1.Button3Click(Sender: TObject);
var
  str,IndexStr: TStringList;
  i:integer;
begin
  ComboBox1.Items.Clear;
  str:= TStringList.Create;
  IndexStr:=TStringList.Create;
//ADOConnection可根据自己需要设置  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=lijh;'
                                  'Initial Catalog=xyjj;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LIJH;Use Encryption for Data=False;Tag with column collation when possible=False';      ADOTable1.Connection:=ADOConnection1;
  ADOConnection1.LoginPrompt:=false;
  ADOConnection1.Connected:=true;
  ADOConnection1.GetTableNames(str); //得出数据库中所有的表      for i:=0 to str.Count-1 do
    begin
      ADOTable1.TableName:=str[i];
      ADOTable1.GetIndexNames(IndexStr); //得出索引名称
      ComboBox1.Items.AddStrings(IndexStr);  //显示索引名称
      next;
    end;
  str.Free;
end;
 

請問(ComboBox1.Items)how to set內容? 是指 这样吗？

 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text:=ComboBox1.Items[ComboBox1.ItemIndex];
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================