Кто-нибудь сталкивался с проблемой получения всех атрибутов поля из *.mdb-ой базы данных.

А именно: тип поля, условия, длина поля, разрядность, условия?

Проблема имеет место быть конкретно для типа "денежный" - изменение атрибута с "основного" на "фиксированный" нельзя отследить из VB.

Заранее благодарен,

Toller

Проблема имеет место быть конкретно для типа "денежный" - изменение атрибута с "основного" на "фиксированный" нельзя отследить из VB.

Т.е. в базе изменили у ячейки денежного типа формат с основного на фиксированный - а в RecordSet - никаких изменений не произошло.

Если можно, примерчик.

Вот изменение  столбца, например с целого на длинное целое, сразу меняет DefinedSize с 2 на 4 и type c 2 на 3 ,
а изменение формата денежный, почему то ничего не меняет.

работал след фрагмент кода:

       For i = 0 To RS.Fields.Count - 1
         If RS.Fields.Item(i).Name = NameFields Then                       'фильтр искомого поля
            sss = sss & "DefinedSize=" & RS.Fields.Item(i).DefinedSize & ",   "
            sss = sss & "Attributes=" & RS.Fields.Item(i).Attributes & ",   "
            sss = sss & "Type=" & RS.Fields.Item(i).Type & ",   "
            sss = sss & "NumericScale=" & RS.Fields.Item(i).NumericScale & ",   "
            sss = sss & "Precision=" & RS.Fields.Item(i).Precision & ",   "
            sss = sss & "Value=" & RS.Fields.Item(1).Value & ",   "
           
            sss = sss & "Propertis="

            For j = 0 To RS.Fields.Item(i).Properties.Count - 1 
 '              sss = sss & Trim(RS.Fields.Item(i).Properties.Item(j).Name) & Str(j) & "=" & RS.Fields.Item(i).Properties.Item(j).Type & ",  "
                sss = sss & "Name" & bs_NtoS(j) & "-" & RS.Fields.Item(i).Properties.Item(j).Name & ";  "
                sss = sss & "Type" & bs_NtoS(j) & "-" & RS.Fields.Item(i).Properties.Item(j).Type & ";  "
                sss = sss & "Attr" & bs_NtoS(j) & "-" & RS.Fields.Item(i).Properties.Item(j).Attributes & ";  "
                sss = sss & "Value" & bs_NtoS(j) & "-" & RS.Fields.Item(i).Properties.Item(j).Value & ";  "
            Next j
         End If
       Next i

Результат:
' пуск для формата денежный основной
Summ  DefinedSize=8,   Attributes=122,   Type=6,   NumericScale=255,   Precision=19,
      Propertis=
                       Name0-BASECOLUMNNAME;    Type0-202;  Attr0-1;  Value0-Summ;   'имя стобца
                       Name1-BASETABLENAME;     Type1-202;  Attr1-1;  Value1-WZ01M;  'имя таблицы
                       Name2-ISAUTOINCREMENT;   Type2-11;   Attr2-1;  Value2-False;  ' что за элемент и за что отвечает?
                       Name3-ISCASESENSITIVE;   Type3-11;   Attr3-1;  Value3-False;  ' что за элемент и за что отвечает?
                       Name4-COLLATINGSEQUENCE; Type4-3;    Attr4-1;  Value4-1033;   ' что за элемент и за что отвечает?

' пуск для формата денежный фиксированный да и любой другой
Summ  DefinedSize=8,   Attributes=122,   Type=6,   NumericScale=255,   Precision=19,
      Propertis=
                       Name0-BASECOLUMNNAME;    Type0-202;  Attr0-1;  Value0-Summ;
                       Name1-BASETABLENAME;     Type1-202;  Attr1-1;  Value1-WZ01M;
                       Name2-ISAUTOINCREMENT;   Type2-11;   Attr2-1;  Value2-False;
                       Name3-ISCASESENSITIVE;   Type3-11;   Attr3-1;  Value3-False;
                       Name4-COLLATINGSEQUENCE; Type4-3;    Attr4-1;  Value4-1033;