91M2引擎如何操作数据库 77M2引擎数据库修改难吗？

如何操作数据库
unit Q7;

interface
  uses Classes, SysUtils, DB{使用TDataSet对象必须引用此单元};

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

{
拼接SQL注意,以MSSQL为例,假设SQL语句为: SELECT * FROM Table WHERE Name='xxx'
则在Pascal中字符表示为: S := 'SELECT * FROM Table WHERE Name=''xxx''';  
                       S := 'SELECT * FROM Table WHERE Name=''' + Player.Name + '''';
                       两个单引号来表示SQL中的一个单引号
}

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
  ADataSet: TDataSet;
  AList: TStrings;
begin
  //普通执行语句不需要返回
  Gamelib.DBEngine.ExecSQL('HumDB', 'UPDATE Players SET nGold=0 WHERE nGold < 0');     
  Gamelib.DBEngine.ExecSQL('HumDB', 'UPDATE Players SET nGold=10000 WHERE sChrName=''' + Player.Name+ ''''); //这里需要注意引号的使用
  //查询数据并将结果放到数据集，然后从数据集读取数据
  ADataSet := Gamelib.DBEngine.Query('HumDB', 'SELECT * FROM Players');
  if ADataSet <> nil then //必须做此判断,因为当数据连接找不到的时候返回为nil值
  begin
    AList := TStringList.Create;
    try      
      ADataSet.Open; //打开数据集  
      if not ADataSet.IsEmpty then //如果数据集不为空的情况下
      begin
        while not ADataSet.Eof do //如果没到数据集的末尾
        begin
          //S := ADataSet.FieldByName('sChrName').AsString; //直接将字段赋值到变量S中         
          AList.Add(ADataSet.FieldByName('sChrName').AsString);  //将字段sChrName的值取出来放到AList中
          ADataSet.Next; //数据集向后滚动,如果循环读取数据，此处必须，否则会死循环
        end;   
      end;
      Npc.MessageBox(Player, AList.Text);
    finally
      ADataSet.Free;  //数据集需要自己手工释放
      AList.Free; //自己创建的TStrings类对象需要释放
    end;
  end;  
  //直接将一个查询结果中的第一个字段的值填入到一个TStrings
  AList := Gamelib.DBEngine.ValueList('HumDB', 'SELECT sChrName FROM Players');  //ValueList函数一定会返回一个TStrings实例，并且需要自己释放
  Npc.MessageBox(Player, AList.Text);
  AList.Free;
end;

end.

注意：操作SQLite数据库的时候需要注意对应的数据库文件是否被其他应用打开，如果被其他应用打开则只是只读状态，增删改等操作是无效的。比如正在被使用中的示范版本的角色数据库和账号数据库

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

这个帖一般般，还可以哦！

这个帖一般般，还可以哦！

顶顶顶顶顶大大大

不错，顶一个！

呵呵，低调，低调！

路过 帮顶 嘿嘿

不错，顶一个！