Соотвитствие между Oracle Data Types и ADO - VB

Формулировка задачи:

Уважаемые господа!
Может кто-нибудь знает, где можно найти информацию о соотвитствии между Oracle Data Types и ADO. Например, что number - это adNumeric (131) и т.д.
Пожалуйста!
МаринаК

Решение задачи: «Соотвитствие между Oracle Data Types и ADO»

textual
                            Листинг программы 
                        

                            Public Function ColumnType(iType <font color="blue">As</font> Integer) <font color="blue">As</font> String
<br><font color="blue">Select</font> <font color="blue">Case</font> intType
<br><font color="blue">Case</font> adInteger
<br>ColumnType = <b><font color="green">"NUMBER"</font></b>
<br><font color="blue">Case</font> adDecimal
<br>ColumnType = <b><font color="green">"NUMBER"</font></b>
<br><font color="blue">Case</font> adNumeric
<br>ColumnType = <b><font color="green">"NUMBER"</font></b>
<br><font color="blue">Case</font> adSingle
<br>ColumnType = <b><font color="green">"NUMBER"</font></b>
<br><font color="blue">Case</font> adDouble
<br>ColumnType = <b><font color="green">"NUMBER"</font></b>
<br><font color="blue">Case</font> adDate
<br>ColumnType = <b><font color="green">"DATE"</font></b>
<br><font color="blue">Case</font> adChar
<br>ColumnType = <b><font color="green">"VARCHAR2"</font></b>
<br><font color="blue">Case</font> adVarChar
<br>ColumnType = <b><font color="green">"VARCHAR2"</font></b>
<br><font color="blue">Case</font> adLongVarChar
<br>ColumnType = <b><font color="green">"LONG"</font></b>
<br><font color="blue">Case</font> adLongVarBinary
<br>ColumnType = <b><font color="green">"LONG RAW"</font></b>
<br><font color="blue">Case</font> adVarBinary
<br>ColumnType = <b><font color="green">"RAW"</font></b>
<br><font color="blue">Case</font> adBinary
<br>ColumnType = <b><font color="green">"RAW"</font></b>
<br><font color="blue">Case</font> adDBTimeStamp
<br>ColumnType = <b><font color="green">"DATE"</font></b>
<br><font color="blue">Case</font> <font color="blue">Else</font>
<br>ColumnType = <b><font color="green">"Unknown "</font></b> & intType
<br><font color="blue">End</font> <font color="blue">Select</font>
<br><font color="blue">End</font> Function
                        