Topic: sort and loop access table in autocad

[dr-j]

Hi,
I'm working on a small calculating prog in Autocad.
It should take a record from a access database table, and calculate it.
I already got the calculating part going, but can anyone help me to sort the table according to a certain fieldname.
Also, if i want to loop the caltulation on every record till it finds a correct one, how do i do that?

This is the code that i have:

Code: [Select]

Public wksObj As Workspace
    Public dbsObj As Database
    Public tblObj As TableDef
    Public fldObj As Field
    Public rstObj As Recordset

Private Sub CommandButton5_Click()
'Berekeningen en toetsen.

Set dbsObj = DBEngine.Workspaces(0).OpenDatabase("D:\My Documents\project\7m535\access database\profielen.mdb")
Set rstObj = dbsObj.OpenRecordset("profielinfo", dbOpenTable)

'Ascending
Dim SQLString As String
SQLString = "profielinfo.* FROM profielinfo ORDER BY profielinfo.profielhoogte ASC;"

so the thing now is that it keeps picking the number 1 id record  instead of the first of the fieldname"profielhoogt" that should have been sorted in ascending order.

if someone can help me on this i'd be very grateful 

[Troy Williams]

Code: [Select]

SQLString = "profielinfo.* FROM profielinfo ORDER BY profielinfo.profielhoogte ASC;"


How about this:

Code: [Select]

SQLString = "SELECT * FROM profielinfo ORDER BY profielinfo.profielhoogte ASC;"


[Swift]

I'm not sure and didn't test this, but try

Code: [Select]

SQLString = "[b]SELECT * FROM profielinfo[/b] ORDER BY profielinfo.profielhoogte ASC;"


[Swift]

good answer Troy 

[dr-j]

Thanx a million 

i'll start on it right away and will let you know how it went.

[dr-j]

ok i got it workin basically with making the order through vba.
the next thing is I made a query in access as i thought i should have something to compare it with.
but how can you open a query table through vba?

i thought it should be along the line of:

Set dbsObj = DBEngine.Workspaces(0).OpenDatabase("D:\My Documents\project\7m535\access database\profielen.mdb")
Set rstObj = dbsObj.OpenRecordset("Queryprofielhoogte", dbOpenQuery)

it just gives me a big errorr there so i know i as being a noob must do something terribly wrong.
can someone give me a hand here?

[Jim Yadon]

Try this one out...
http://www.w3schools.com/sql/default.asp

I do a fair bit of data crunching and have found SQL to be the smoothest way to handle the selection & transport of data once the connection is established.