Le portail francophone de la géomatique

SUB SEARCH

dim req as string

Rec=readcontrolvalue(2)
if commandinfo(cmd_info_dlg_ok) then

req="Select * from Selection Where name like " + chr$(34) + "%" + Rec + "%" + chr$(34) + " order by Name into select"
run command req

Elseif

req="Select * from Selection Where commune like " + chr$(34) + "%" + Rec + "%" + chr$(34) + " order by commune into select"
run command req


Browse * from select
end if

END SUB