vb6 ado ordenar recordset

[korny]

hola!!!

tengo una aplicacion en vb6, utilizo ado para acceder a mis bds.
mi problema es que cuando intento ordenar un campo de tipo texto de un recordset con la propiedad SORT, me da error.

si lo pruebo con campos de tipo numerico si que me los ordena.

alguien sabe como puedo ordenarlos por un campo de tipo texto?

gracias

[carlosbou]

Enviame el código para revisartelo. Entiendo que debe ser algo sencillo.

Saludos

Carlos Bou
Visual Basic Instructor

[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

[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 !!!