Sorting Access table

[reeset]

I am STUMPED. Can someone please tell me how you would sort an access table through code. I have tried using the ORDER BY, but either I am not using it correctly, or it only works with queries, because it is not doing the job.

Thanks,

[RogerH]

ORDER BY should work, can you give me the SQL statement?

Roger

[reeset]

I tried using:

cmdtext = "SELECT surl,ptitle,stitle,sbib,serror,sid FROM temptable ORDER BY serror DESC;"


    'connect to the database and retrieve the code
    Set adoCon = CreateObject("ADODB.Connection")
    adoCon.Open gblConnectString
    Set adoCmd = CreateObject("ADODB.Command")
    adoCmd.ActiveConnection = adoCon
    adoCmd.CommandText = cmdtext
    adoCmd.Execute

[JasonGS]

That would sort your "recordset", that would not sort the Access table.

[RogerH]

exactly, try:

cmdtext = "SELECT surl,ptitle,stitle,sbib,serror,sid FROM temptable ORDER BY serror DESC;"

dim adoRec as ADODB.Recordset

    'connect to the database and retrieve the code
    Set adoCon = CreateObject("ADODB.Connection")
    adoCon.Open gblConnectString
    Set adoCmd = CreateObject("ADODB.Command")
    adoCmd.ActiveConnection = adoCon
    adoCmd.CommandText = cmdtext
    set adoRec = adoCmd.Execute

    do while not adoRec.eof
        debug.print adoRec.Fields("serror").value
        adoRec.MoveNext
    loop

serror is printed sorted in descending order

Roger

[reeset]

Thanks,

Works exactly like you said.