BuildKeyWhereClause(newdata,row,TableName,csFieldnames,csPrimaryKey)

function whereclause = BuildKeyWhereClause(newdata,row,TableName,csFieldnames,csPrimaryKey)
% BUILDKEYWERECLAUSE given a matrix of data and indexes to the changed
% data, BUILDKEYWHERECLAUSE will build a where clause to be used by the
% UPDATE command in the Mathworks Database Toolbox
%
% BUILDKEYWHERECLAUSE(NEWDATA,ROW,TABLENAME,CSFIELDNAMES,CSPRIMARYKEY)
%
% 
% See Also update database primarykey
%
% Key Words sql update database primarykey primary key fieldnames
%    field names table whereclause where clause
%
%
% It's not fancy, but it works

% Michael Robbins
% [e-mail]
% [e-mail]


[dummy,idxFieldnames] = intersect(csFieldnames,csPrimaryKey);
for i=1:length(csPrimaryKey)
    if i==1
        whereclause = 'WHERE ';
    else
        whereclause = [whereclause ' AND '];
    end;
    whereclause = [whereclause ...
        sprintf('((%s.%s) = %s)', ...
        TableName, ...
        csFieldnames{idxFieldnames(i)}, ...
        BKWCData2String(newdata{row,idxFieldnames(i)}) ...
        )];
end;

function xstr = BKWCData2String(x)

if isnumeric(x)
    if isinteger(x) || islogical(x) || (x-floor(x))<eps*2
        xstr = sprintf('%d',x);
    else
        xstr = sprintf('%f',x);
    end;
elseif ischar(x)
    xstr = ['''' x '''']; 
end;