MapInfo Pro Developers User Group

'*********************************************************

'Using a User Interface by selecting the query parameters

'*********************************************************

Dialog

Title "Query Parameters"

Control StaticText

Title "Select Landuse"

Control RadioGroup

Title LandUse

ID 1

Control StaticText

Title "Select Zoning"

Control ListBox

Title Zoning

ID 2

Control StaticText

Title "Select Suburb"

Control PopupMenu

Title Suburb

ID 3

Control OKButton

Control CancelButton

Calling Query

End Sub

'*******************************************************************

'Running the SQL Select using the parameters and display on the map

'*******************************************************************

Sub Query

Select PrimaryLanduseType, PermissibleLandUse from PermissibleLandUse, mlnk_Suburbs

Where PermissibleLandUse.obj Within mlnk_Suburbs.obj

And PrimaryLanduseType = "ReadControlValue(1)"

And PermissibleLanduse.Zoning = "ReadControlValue(2)"

And mlnk_Suburbs.Locality = "ReadControlValue(3)"

End Sub

I would add an 'into myquery?' clause to your select statement so that you know the name of the output table (otherwise it goes into the special table 'selection').

Then simply add the statement: map from myquery -- if you want to add to new map

or  to add to an existing map something like this:  add map window frontwindow() auto layer myquery

Hi Bob, thanks for the hint.  I had included ?your suggestion into the statement and no errors when compiling the program however its still not displaying on the map.   Also 'selection' or 'myquery' were not seen when the I open table browser to view them. I do not have a problem when I hard quote the variables in the query.  Sub Query

Select PrimaryLanduseType, PermissibleLandUse from PermissibleLandUse, mlnk_Suburbs

Where PermissibleLandUse.obj Within mlnk_Suburbs.obj

And PrimaryLanduseType = "Rural"

And PermissibleLanduse.Zoning = "Rural"

And mlnk_Suburbs.Locality = "Baldivis"

End Sub

Are there any examples of similar mapbasic programs which I could view and see what I could be missing.

Hi Nasi,

The "Run Command" statement should help you out. Construct your SQL as a string:

sSQL = "Select PrimaryLanduseType, PermissibleLandUse from PermissibleLandUse, mlnk_Suburbs Where PermissibleLandUse.obj Within mlnk_Suburbs.obj And PrimaryLanduseType = """ + sVal1 + """ And PermissibleLanduse.Zoning = """ + sVal2 + """ And mlnk_Suburbs.Locality = """ + sVal2 + """"

Then execute the sSQL string using Run Command:

Run Command sSQL

Hi James,  I did a copy and paste and ?no errors appeared when compiling. However the results was still being able to display on the map.  Thank you for the hints.

Hi Nasi,

My code was just an example, rather than something you can just copy and paste!

Hi James, I am still working on the changes.  Cheers.

Nasi,

Also remember to include Bob's statement for actually adding the resulting query to a map:

add map window frontwindow() auto layer myquery

where myquery is the name of the query you just created

Hi Peter, thank you for the advise.  I will keep you guys updated on ?the project.