+
−% Get a list of database fields
+
−%
+
−% M Hewitson
+
−%
+
−% $Id: getFields.m,v 1.3 2011/04/08 08:56:25 hewitson Exp $
+
−%
+
−function fields = getFields(mainfig, conn)
+
−  
+
−  
+
−  if ~isempty(conn)
+
−     % get the selected table
+
−     tblSel = findobj(mainfig.handle, 'Tag', 'tableSelect');
+
−     tbls   = get(tblSel, 'String');
+
−     tbl    = tbls{get(tblSel, 'Value')};
+
−    % get the databases
+
−    try
+
−      q = sprintf('describe %s', tbl);
+
−      curs = exec(conn, q);
+
−      curs = fetch(curs);
+
−      fields = curs.Data(:,1);
+
−      close(curs);
+
−    catch
+
−      disp(sprintf('### Server returned: %s', curs.Message));
+
−      warning('!!! Can not read from database');
+
−      fields = {'-'};
+
−    end
+
−  else
+
−    fields = {'-'};
+
−  end
+
−  
+
−end