delphi mongodb 调用group
var query,b1,b2:tbson; buf:tbsonbuffer; code:TBsonCodeWScope; begin if dbman=nil then dbman:=tdbmanage.create;
buf:=tbsonbuffer.Create; buf.startObject(‘group‘); buf.append(‘ns‘,‘testc‘);
buf.startObject(‘key‘); buf.append(‘name‘,null); buf.finishObject;
buf.startObject(‘initial‘); buf.append(‘num‘,0); buf.finishObject;
code:=tbsoncodewscope.Create(‘function(doc,prev){ prev.num++;}‘,bson([])); buf.append(‘$reduce‘,code);
buf.finishObject; query:=buf.finish;
b2:=dbman.mongodbs.mongo.command(‘prjdbs‘,query);
b1:=dbman.mongodbs.mongo.getLastErr(‘prjdbs‘); if b1<>nil then showmessage(b1.Displaystr.ToString); showmessage(b2.Displaystr.ToString);
end;
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
