0001 function message = ltpda_insert(conn, table, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016 q = sprintf('INSERT INTO %s(', table);
0017 for j=1:2:length(varargin)
0018 q = [q varargin{j} ','];
0019 end
0020 q = q(1:end-1);
0021
0022 q = [q ') VALUES('];
0023
0024 for j=2:2:length(varargin)
0025 val = varargin{j};
0026 if ischar(val)
0027 q = [q '''' val '''' ','];
0028 elseif isnumeric(val)
0029 q = [q mat2str(val) ','];
0030 else
0031 error('unknown data type');
0032 end
0033
0034 end
0035
0036 q = q(1:end-1);
0037 q = [q ');'];
0038
0039 curs = exec(conn, q);
0040 message = curs.Message;
0041 disp(message);
0042 close(curs);