Как определить тип данных поля?

[xenomorph]

Привет всем!

Вопрос: Как ппрограмно (т.е. кодом, а не на глаз) определить
тип данных определённого поля (Field) в Recordset-e?

эээ ... красиво! определить!

У меня выдаёт ошибку при:
MsgBox СStr(.adodc_Main.Recordset.Fields(i).DataFormat)
--
Заранее огромное спасибо!

[Ennor]

2 минуты поисков, чесслово:
http://msdn.microsoft.com/library/defau ... jfield.asp
Конкретно то, что нужно тебе сейчас:

Return the basic characteristics of a field with the Type, Precision, and NumericScale properties.

Однако, прогуляться по ссылке рекомендую, чтобы хотя бы сложилось представление, что это вообще такое и с какой стороны подходить.

[xenomorph]

эээ ... Третий час мучаю Васик ...
МСДН переползал вдоль и поперёк ...

... начинаю ГЛЮЧИТЬ ...

Не ВЫХОДИТ!!!

Огромная просьба дать пример!
--
Заранее огромное спасибо!

[3ton]

Если еще актуально, то вот пример, выдернутый из хелпушника по MDAC

Код: Выделить всё

Public Sub TypeX()

   Dim rstEmployees As ADODB.Recordset
   Dim fldLoop As ADODB.Field
   Dim strCnn As String

   ' Open recordset with data from Employees table.
   strCnn = "Provider=sqloledb;" & _
      "Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.Open "employee", strCnn, , , adCmdTable

   Debug.Print "Fields in Employees Table:" & vbCr

   ' Enumerate Fields collection of Employees table.
   For Each fldLoop In rstEmployees.fields
      Debug.Print "  Name: " & fldLoop.Name & vbCr & _
         "  Type: " & FieldType(fldLoop.Type) & vbCr
   Next fldLoop

End Sub
'EndTypeFieldVB



'BeginTypeField2VB
Public Function FieldType(intType As Integer) As String

   Select Case intType
      Case adChar
         FieldType = "adChar"
      Case adVarChar
         FieldType = "adVarChar"
      Case adSmallInt
         FieldType = "adSmallInt"
      Case adUnsignedTinyInt
         FieldType = "adUnsignedTinyInt"
      Case adDBTimeStamp
         FieldType = "adDBTimeStamp"
   End Select

End Function


Кстати, по вышеуказанной ссылке этот пример тоже мона найти

[xenomorph]

СпАсИбо!
Огромное спасибо ещё раз!