Programming Mechworks PDM > DBWCommandShell > Library Reference > UserInterface

Description

Displays a selection box reading data from a database.
Same purpose as DBWFilterSelect4 but allowing a user to make no selection and click OK.

Syntax

Function DBWFilterSelect5(Title, Dsn, SelectStatement, FieldToRead, FieldToFilterOn, FilterValue, byref Multiresult, position, autoselectfirstrow)

Parameters

Title	title for the dialog box.
Dsn	ODBC data source name.
SelectStatement	SQL SELECT statement for the data
FieldToRead	name of the field to be read
FieldToFilterOn	name of the field on which apply the filter when inputting characters in the edit box
FilterValue	initial value for the filter that appears in the text box
Position	it the position of the dialog; possible values are: 0: center of the screen 1: default location, as for new window; generally in the top left corner of the screen 2: in the current mouse pointer position
autoselectfirstrow	0: no row is selected and manual selection is required by the user. 1: the first row of the grid is automatically selected at dialog displaying so to let the user just confirm with OK.

Return values

Multiresult

It is an array of Field_to_Read values in the filtered records

Example

Sub main()
title="Select a project"
dsn="DBWORKS"
FieldtoRead="ID"
FieldToFilterOn="DESCRIPTION"
FilterValue=""
SelectStatement="SELECT * FROM DOCUMENT WHERE T='0' ORDER BY UNIQUE_ID DESC"
position=0
dim multiresult
res=DBWFilterSelect5(title,Dsn,SelectStatement,FieldtoRead,FieldToFilterOn, FilterValue, multiresult, position,1)
if res="" then
  DBWMsgbox "user canceled"
else
  DBWMsgbox ubound(multiresult)+1 & " result(s)"
   for i=0 to ubound(multiresult)
   DBWMsgbox multiresult(i)
  next
end if
End sub