Mongodb 执行eval命令

procedure TForm1.BitBtn7Click(Sender: TObject);

var

   query,b1,b2:tbson;

   buf:tbsonbuffer;  

   code:tbsoncodewscope;

begin

  if dbman=nil then dbman:=tdbmanage.create;  

   code:=tbsoncodewscope.Create(‘function(){var a=db.testc.find();return a[0].name;}‘,bson([]));

   buf:=tbsonbuffer.Create;  buf.append(‘eval‘,code);

 

 query:=buf.finish;

  showmessage(query.Displaystr.ToString);

 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;

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。