VB6 error sort virtual recordset

[sal21]

Code: Select all

 Set RSTC = CreateObject("ADODB.Recordset")
    RSTC.CursorLocation = adUseClient
    RSTC.Fields.Append "ORIG", vbString
    RSTC.Fields.Append "COD", vbString
    RSTC.Open

    With RSTC
        For C = 0 To MYDIC.Count - 1
            .AddNew
            RSTC("COD").Value = MYDIC.Keys()(C)
            RSTC("ORIG").Value = MYDIC.Items()(C)
        Next C
    End With
    
    RSTC.MoveFirst
    RSTC.Sort = "ORIG DESC" [b]<<<<< error[/b]

note:
COD is a string valkue, ORIG is a integer value

[HansV]

Don't use vbString. In ADODB, this corresponds to a string terminated by Chr(0).
Instead, use adVarChar and specify the maximum length. For example, if ORIG and COD will be at most 30 characters:

Code: Select all

    RSTC.Fields.Append "ORIG", adVarChar, 30
    RSTC.Fields.Append "COD", adVarChar, 30

[sal21]

Don't use vbString. In ADODB, this corresponds to a string terminated by Chr(0).
Instead, use adVarChar and specify the maximum length. For example, if ORIG and COD will be at most 30 characters:

Code: Select all

    RSTC.Fields.Append "ORIG", adVarChar, 30
    RSTC.Fields.Append "COD", adVarChar, 30

tks.
i cannot test now...

but
RSTC.CursorLocation = adUseClient

is required? or not?

[HansV]

It works without the line

Code: Select all

    RSTC.CursorLocation = adUseClient

[sal21]

Don't use vbString. In ADODB, this corresponds to a string terminated by Chr(0).
Instead, use adVarChar and specify the maximum length. For example, if ORIG and COD will be at most 30 characters:

Code: Select all

    RSTC.Fields.Append "ORIG", adVarChar, 30
    RSTC.Fields.Append "COD", adVarChar, 30

work perfect!