Olá,

 

Estou usando um RecordSet Desconectado e ao aplicar ordenação me retorna este erro abaixo:

Microsoft Cursor Engine(-2147217824): A ordem de classificação não pode ser aplicada.

Falta algo na hora de fazer o sort?

parte da rotina está aqui:

        Set objRstLista = New ADODB.Recordset 'Recordset desconectado
       
        With objRstLista
            With .Fields
                .Append "NomeCorretora", adBSTR
                .Append "QtdOferta", adInteger
            End With
            .Open
        End With
 
        For intLoop = 1 To intTotCompra
            'Atribui valores ao Recordset desconectado
            With objRstLista
                .AddNew
                .Fields("NomeCorretora") = vntCampos_C(intCont + pos_INST)
                .Fields("QtdOferta") = vntCampos_C(intCont + pos_QTD)
                .Update
            End With
        Next
 
        objRstLista.Sort = "NomeCorretora"

Grato,

 

Olá!

 

O problema no Sort acontece por causa do tipo do campo "NomeCorretora". Não é texto? Se for coloque como:

 

.Append "NomeCorretora", adChar, 255

 

Abraço

Oi Caco,

Ao colocar adChar, AdVarChar, dá este erro assim que faz o Append:

 

Se eu coloco adVariant, dá erro igual ao tipo adBSTR:
Microsoft Cursor Engine(-2147217824): A ordem de classificação não pode ser aplicada.

 

Ainda falta algo?

 

Grato

Oi,

 

Depois de ler este Microsoft KB(http://support.microsoft.com/default.aspx?scid=kb;en-us;189837) e trocar o tipo de campo e definir tamanho, deu certo!

agora ficou assim:

.Append "NomeCorretora", adChar, 255

objRstLista.Sort = "NomeCorretora ASC"

 

Valeu!