Obtener los atributos de un campo de Ador Recordset

[mondobizarro]

Buenas tardes gente, sucede lo siguiente, quiero importar un excel a un recordset desconectado que genero a partir de un objeto COM, el problema es que hay campos de este recordset que, admiten NULL otros no, y con diferentes propiedades (no tipos, eso es fácil)

Mi idea es, según cada campo si admito o no valores null, por ejemplo...

si yo genero un XML de manera persistente de la estructura de este recordste obtngo algo similar a lo siguiente:

Código XML:

<s:Schema id='RowsetSchema'>
    <s:ElementType name='row' content='eltOnly' rs:updatable='true' rs:UniqueTable='VERSION 2'>
        <s:AttributeType name='ID_Comp' rs:number='1' rs:write='true'>
            <s:datatype dt:type='int' dt:maxLength='4' rs:precision='0' rs:fixedlength='true' rs:maybenull='false'/>
        </s:AttributeType>
        <s:extends type='rs:rowbase'/>
    </s:ElementType>
 

En cada nodo se define en las etiquetas DataType algunos datos muy interesantes, como ser maxLength, precision, maybenull entre otros.

Mi pregunta es la siguiente, hay aguna forma de que, del recordset generado en memoria, obtener este informacion? digo, yo puedo con un simple ciclo recorrer cada campo del recordset y obtener el tipo de dato, mediante, por ejemplo

Código vb:

for  i=0 to rs.fields.count -1
    msgbox(rs.fields(i).type.tostring)
next
 

pero, el resto de las propiedades? se obtienen con algún método? es posible? si así no fuera, se podrá hacer leyendo el XML que genero a disco por otro lado? digo, cargo el XML en una variable y de ahí saco esos datos....lo primero esta resuelto (abrir el XML y meterlo en memoria, pero lo otro?? imagino que si se puede una cosa, la otra también, el tema es como??

je! dese ya muchas gracias!

[mondobizarro]

si a alguno le sirve, encontre el metodo, en visual studio 2010 estaba medio complicado, pero aca esta:

Código vb:

Dim RS As Object
        RS = CreateObject("ADOR.RECORDSET")
        Dim JA As MI_COM.METODO
        JA = CreateObject("MI_COM.METODO")
        Dim M As Boolean
 
        M = JA.METODO1(parametroA, RS)
        Dim I = 0
 
        For I = 0 To RS.FIELDS.COUNT - 1
 
            If (RS.FIELDS(I).ATTRIBUTES And ADODB.FieldAttributeEnum.adFldMayBeNull) = ADODB.FieldAttributeEnum.adFldMayBeNull Then
                MsgBox(RS.FIELDS(I).NAME & " SI", vbInformation, "ES NULLEABLE? ")
            Else
                MsgBox(RS.FIELDS(I).NAME & " NO", vbInformation, "ES NULLEABLE? ")
            End If
 
        Next
 

claro que el name space ADODB tienen que agregarlo como referencia al proyecto, y ademas, tiene varios enumeradores, entre ellos FieldAttributeEnum que cuenta con diferentes valores que responden a TRUE o FALSE

En fin, espero que les sea de utilidad, a mi me ayudo bastante conocer esto, y hay muchas cositas mas pára seguir viendo...saludos!