0001 function cb_executeQuery(varargin)
0002
0003
0004 mainfig = findobj('Tag', 'LTPDARepomainfig');
0005 conn = getappdata(mainfig, 'connection');
0006 if isempty(conn)
0007 error('### Please connect to a database first.');
0008 end
0009
0010
0011 fieldList = findobj('Tag', 'fieldsList');
0012 fieldsStr = get(fieldList, 'String');
0013 vals = get(fieldList, 'Value');
0014 fields = fieldsStr(vals)';
0015
0016
0017
0018 h = findobj('Tag', 'queryDisplayTxt');
0019 q = get(h, 'String');
0020
0021 curs = exec(conn, q);
0022 curs = fetch(curs);
0023 results = curs.Data;
0024 close(curs);
0025
0026 if strcmp(results{1}, 'No Data')
0027 errordlg('Query returned no results.', 'Query Empty');
0028 return
0029 else
0030 whos('results')
0031 whos('fields')
0032 sqlResultsGUI(results, fields, q)
0033 end
0034