Получение информации о таблицах в ADO по команде OpenSchema

← →
nm (2003-09-22 13:53) [0]

Выполняю команду OpenSchema(siColumns, ... и получаю DataSet с данными о структуре нужной таблицы.
В поле "DATA_TYPE" возвращаемого набора данных получаю числа: 130 и т.п., соответсвующие типам данных, хранимых в столбцах таблицы.
Как от чисел перейти к названиям типов данных -> integer, char и т.п.
Спасибо.

← →
nm (2003-09-22 18:45) [1]

Вот так:

function DataTypeName (val : integer) : string;
var
Text : string;
begin
case val of
$00000000: Text := "adEmpty";
$00000010: Text := "adTinyInt";
$00000002: Text := "adSmallInt";
$00000003: Text := "adInteger";
$00000014: Text := "adBigInt";
$00000011: Text := "adUnsignedTinyInt";
$00000012: Text := "adUnsignedSmallInt";
$00000013: Text := "adUnsignedInt";
$00000015: Text := "adUnsignedBigInt";
$00000004: Text := "adSingle";
$00000005: Text := "adDouble";
$00000006: Text := "adCurrency";
$0000000E: Text := "adDecimal";
$00000083: Text := "adNumeric";
$0000000B: Text := "adBoolean";
$0000000A: Text := "adError";
$00000084: Text := "adUserDefined";
$0000000C: Text := "adVariant";
$00000009: Text := "adIDispatch";
$0000000D: Text := "adIUnknown";
$00000048: Text := "adGUID";
$00000007: Text := "adDate";
$00000085: Text := "adDBDate";
$00000086: Text := "adDBTime";
$00000087: Text := "adDBTimeStamp";
$00000008: Text := "adBSTR";
$00000081: Text := "adChar";
$000000C8: Text := "adVarChar";
$000000C9: Text := "adLongVarChar";
$00000082: Text := "adWChar";
$000000CA: Text := "adVarWChar";
$000000CB: Text := "adLongVarWChar";
$00000080: Text := "adBinary";
$000000CC: Text := "adVarBinary";
$000000CD: Text := "adLongVarBinary";
$00000088: Text := "adChapter";
$00000040: Text := "adFileTime";
$00000089: Text := "adDBFileTime";
$0000008A: Text := "adPropVariant";
$0000008B: Text := "adVarNumeric";
else
Text := "<Unknown>";
end;
result := Text;
end;

Получение информации о таблицах в ADO по команде OpenSchema Найти похожие ветки