WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

MicroSoft Jet OLEDB Sort Numbers in a Text Field

 Keywords:  MicroSoft Jet OLEDB Human Sort Numbers Text Field Order By Len SELECT * MicroSoft.Jet.OLEDB ADO GetString 

; MicroSoft.Jet.OLEDB Sort Numbers in a text field
;query = 'SELECT * FROM Customers ORDER BY [FIELD1]'

query = 'SELECT * FROM Customers ORDER BY LEN(FIELD1),[FIELD1]'

strMDB = 'D:\Temp\Data\Customers.mdb'
If ! FileExist(strMDB) Then Exit

oConn = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=":strMDB
oRS = CreateObject("ADODB.Recordset")
oRS.CursorLocation=1
oRS.Open(query,oConn,0,1,1) ; forward-only cursor

;The GetString method returns the specified Recordset as a string.
data = oRS.Getstring
Pause('Results', data)

oRS.Close()
oRS=0
Exit

Article ID:   W18065
Filename:   MicroSoft Jet OLEDB Sort Numbers in a Text Field.txt
File Created: 2011:07:14:13:39:08
Last Updated: 2011:07:14:13:39:08