Hi,
I try to get information about the foreign keys of the table.
I use Delphi 7 and SQL Server 9.00.3042.00
I have (ignore this SQL syntax. I won't work on SQL Server but is much easier to read in this email than dump from SQL server)
CREATE TABLE Resource
(
Id INTEGER NOT NULL,
Comment VARCHAR(50),
PRIMARY KEY(Id)
);
CREATE TABLE Country
(
ThisId INTEGER NOT NULL,
Id INTEGER NOT NULL,
Language VARCHAR(10) NOT NULL,
Name VARCHAR(50) NOT NULL,
Population INTEGER NOT NULL,
Capital VARCHAR(50) NOT NULL,
Description VARCHAR(200) NOT NULL,
PRIMARY KEY(ThisId),
FOREIGN KEY(Id) REFERENCES Resource(Id)
);
and I use code
procedure TLaSqlServerDatabase.DoGetForeignKeys(dataSet: TDataSet; keys: TTntStrings);
var
field: TStringField;
metadata: TMsMetadata;
begin
metadata := TMsMetadata.Create(nil);
try
metadata.Connection := FConnection;
metadata.DatabaseName := metadata.Connection.Database;
metadata.TableName := (dataSet as TMsTable).TableName;
metadata.ObjectType := otForeignKeys;
metadata.ObjectType := otColumns;
metadata.Open;
while not metadata.Eof do
begin
field := metadata.FieldByName('FK_COLUMN_NAME') as TStringField;
keys.Add(field.Value);
metadata.Next;
end;
finally
metadata.Free;
end;
end;
The problem is that it show the foreign key in Resource table but not in Coutry table (where it is actually defined). I mean when metadata.TableName = 'Resource' I get foreign key items but when it is 'Country' the data set is empty.
How can I enumerate foreign keys of Country table?
Best regards,
Jaakko
