Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

This article is in:
CodeLib → Programming aids → Delphi

CodeLib Delphi: ADO: List all primary keys of a table
procedure GetPrimaryKeyNames(con: TADOConnection; TableName: string; outsl: TStrings);
var
  ds: TADODataSet;
begin
  ds := TADODataSet.Create(nil);
  try
    con.OpenSchema(siPrimaryKeys, Unassigned, EmptyParam, ds);
    while not ds.Eof do
    begin
      if ds.FieldByName('TABLE_NAME').AsString = TableName then
      begin
        outsl.Add(ds.FieldByName('COLUMN_NAME').AsString);
      end;
      ds.Next;
    end;
  finally
    ds.Free;
  end;
end;

GetPrimaryKeyNames(ADOConnection1, 'CUSTOMERS', Memo1.Lines);
Daniel Marschall
ViaThinkSoft Co-Founder
Autor: Daniel Marschall
Datum: 13 July 2016
Gelesen: 21,566 Mal