Type=StaticCode
Version=2.30
@EndOfDesignText@

Sub ParameterQueryExample
	Dim asPrimaries(4) As String
	Dim asSpinnerArg As String(2)
	Dim sSortParameter1 As String, sSortParameter2 As String
	Dim lvPrimaries As ListView
	Dim cmdQuery As String

	sSortParameter1 = "PGType"
	sSortParameter2 = "Description"

	asPrimaries(0) = asSpinnerArg(0)
	asPrimaries(1) = asSpinnerArg(1)
	asPrimaries(2) = sSortParameter1
	asPrimaries(3) = sSortParameter2
	' Set Query string
	cmdQuery = 
	"Select PGType, Description, Performers FROM PrimaryGroups where " & _
	"PGType like ? AND Performers like ? " & _
	"ORDER BY ?,?;"
	' Execute Query
	DBUtils.ExecuteListView(MME.sqlMB,cmdQuery,asPrimaries,0,lvPrimaries,True)

End Sub

Sub WorkingQueryExample
	Dim asPrimaries(2) As String
	Dim asSpinnerArg As String(2)
	Dim sSortParameter1 As String, sSortParameter2 As String
	Dim lvPrimaries As ListView
	Dim cmdQuery As String

	sSortParameter1 = "PGType"
	sSortParameter2 = "Description"

	asPrimaries(0) = asSpinnerArg(0)
	asPrimaries(1) = asSpinnerArg(1)
	' Set Query string
	cmdQuery = 
	"Select PGType, Description, Performers FROM PrimaryGroups where " & _
	"PGType like ? AND Performers like ? " & _
	"ORDER BY " & sSortParameter1 & "," & sSortParameter2 & ";"
	' Execute Query
	DBUtils.ExecuteListView(MME.sqlMB,cmdQuery,asPrimaries,0,lvPrimaries,True)
End Sub