vb6 ado ordenar recordset

[gabi2005]

Iniciado por korny

aqui tienes el codigo:

Lo que hago es ir rellenando manualmente un recordset temporal, y cuando el usuario acepta las lineas quiero ordenarlo, pero me falla.

Sub CrearRecordseTemporal()
Set RsTemp = New ADODB.Recordset
RsTemp.Fields.Append "Linea", adInteger
RsTemp.Fields.Append "EjercicioFactura", adInteger
RsTemp.Fields.Append "NumeroFactura", adBigInt
RsTemp.Fields.Append "SerieFactura", adBSTR, 2
RsTemp.Fields.Append "FechaFactura", adDBDate
RsTemp.Fields.Append "CodigoCliente", adBSTR, 15
RsTemp.Fields.Append "RazonSocial", adBSTR, 40
RsTemp.Fields.Append "ImporteFactura", adCurrency
RsTemp.Fields.Append "CodigoTipoEfecto", adInteger
RsTemp.Fields.Append "RemesaHabitual", adBSTR, 15
RsTemp.Fields.Append "CifEuropeo", adBSTR, 15
RsTemp.Fields.Append "CodigoBanco", adBSTR, 6
RsTemp.Fields.Append "CodigoAgencia", adBSTR, 6
RsTemp.Fields.Append "DC", adBSTR, 2
RsTemp.Fields.Append "CCC", adBSTR, 15
RsTemp.Fields.Append "Prevision", adBSTR, 1
RsTemp.Open
End Sub

esto es lo que me falla:
RsTemp.Sort = "[CodigoCliente] desc"

Pero esto no me falla:
RsTemp.Sort = "[linea] desc"

y este es el error:
Error -2147217824 (80040e60) error en tiempo de ejecucion
no se puede aplicar el orden

hola, es el tipo de campo q definiste, sacale adBSTR y ponele otro como adVarChar, adChar, etc a esta linea:

RsTemp.Fields.Append "CodigoCliente", adBSTR, 15

slds y suerte !!!