Tabellen- und Feldbeschreibungen

[Dietmar Elsässer]

Ich möchte mit Delphi Tabellen- und Feldbeschreibungen in ein Dictonary schreiben.
Ich glaube, daß das mit TAdsDictionary.SetTableProperty und TAdsDictionary.SetFieldProperty funktionieren könnte.
Hat jemand dazu zufällig ein Beispiel für mich?
Oder geht sowas auch mit SQL?

Dietmar

[Joachim Dürr]

Die Online-Hilfe hat Beispiele, abgewandelt könnte es dann so aussehen:
<pre>
kommentar:= 'das ist die Beschreibung';
oAdsDictionary.SetTableProperty( 'salesreps',
ADS_DD_COMMENT,
pChar(kommentar ),
strlen(komentar),
0,
'' );

</pre>

SQL:
<pre>
sp_ModifyTableProperty
sp_ModifyFieldProperty
</pre&gt

[Dietmar Elsässer]

Danke,
hatte den Hilfeeintrag dreimal durchgelesen, dann war mir vor lauter UNSIGNED16 und pointer ganz schwumerig vor Augen, da hab ich das Beispiel nicht gesehen.

Dietma

[Dietmar Elsässer]

Ich wollte mit folgender procedure die Feldbeschreibungen abfragen, jedoch erhalte ich den Error: 5138 ""....that property was not set for that object...". ADS_DD_COMMENT scheint nicht zu funktionieren.
&lt;
var
usLength: UNSIGNED16;
aucProperty: array[0..ADS_DD_MAX_PROPERTY_LEN] of char;
begin
...
usLength:= ADS_DD_MAX_PROPERTY_LEN;
oAdsDictionary.GetFieldProperty('Tabellenname',
'Feldname',
ADS_DD_COMMENT,
@aucProperty,
usLength);
...
end;
&gt;

Frage: Was mache ich falsch?

OK: mit dem SQL
&lt;
SELECT Parent,
Name,
comment
FROM system.columns
where Parent = :Tabellenname
&gt;
erhalte ich die gewünschte Informationen.

Dietma

[Joachim Dürr]

Das funktioniert nur, wenn auch eine Beschreibung hinterlegt ist