請問如何判斷SQL server 與access其資料庫的索引名稱是否存在？ 謝謝

您好﹗    

Var
  I : Integer;
begin
  For I:=0 to ADOTable1.RecordCount-1 do
    if ADOTable1.Field[I].DataType = ftAutoInc then
      ShowMessage('第' IntTo(I 1) '個欄位是Primary Key');
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

1.TAdoDataset.GetIndexNames 2.TAdoConnection.OpenSchema, 參考(siIndexes 那個):  http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&selm=3b5ec47e_1%40dnews 3.Import ADOX and read Index properties, 參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&selm=3e53c8cb%40newsgroups.borland.com    --- 歡迎光臨 KTop 研究院

MSSQL : 可下SQL "select count(*) from sysindexes where name='[IndexName]'" ACCESS : 用 BDE 為例, 參考看看

procedure GetIndexList(DB : TDatabase; IndexList : TStrings);
var T,L : TStrings;
    B : TTable;
    i : integer;
begin
  T := TStringList.Create;
  L := TStringList.Create;
  B := TTable.Create(nil);
  B.DatabaseName := DB.DatabaseName;
  try
    DB.GetTableNames(T,False);
    for i := 0 to T.Count-1 do begin
      B.Close;
      B.TableName := T[i];
      B.GetIndexNames(L);
//      IndexList.Add('Table :'  T[i]);
      IndexList.AddStrings(L);
    end;
  finally
    L.Free;
    T.Free;
    B.Free;
  end;
end;

取出 IndexList 後, 用 IndexList.IndexOf('[IndexName]')=-1 來判斷.