码迷,mamicode.com
首页 > 数据库 > 详细

Mongodb 执行eval命令

时间:2014-09-19 15:14:55      阅读:409      评论:0      收藏:0      [点我收藏+]

标签:io   os   ar   for   sp   cti   on   c   r   

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;

Mongodb 执行eval命令

标签:io   os   ar   for   sp   cti   on   c   r   

原文地址:http://www.cnblogs.com/HuiLove/p/3981346.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!