玩传奇论坛

 找回密码
立即注册

扫一扫,访问移动社区

论坛喇叭+ 发布

01-25 10:01
系统通知全站压缩包解压密码:www.wanmirbbs.com
01-25 10:01
01-25 10:01
查看: 57530|回复: 47
打印 上一主题 下一主题

[文本教程] 91M2引擎如何操作数据库 77M2引擎数据库修改难吗?

  [复制链接]
跳转到指定楼层
楼主
发表于 2019-5-12 20:28:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,以游结友!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
如何操作数据库
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. 本站提供的素材、源码、等等其他资源,都不包含技术服务支持!
4. 若因线路和服务器问题非本站所能控制范围的故障导致暂停服务期间造成的一切不便与损失,论坛不负任何责任。
5. 注册会员通过任何手段和方法针对论坛进行破坏,我们有权对其行为作出处理。并保留进一步追究其责任的权利。
收藏收藏 分享分享 分享淘帖 支持支持 反对反对
沙发
发表于 2019-5-13 07:03:09 | 只看该作者
又抢到前排了。哈,不用怀疑,不用惊讶,你也没有看错!
板凳
发表于 2019-5-30 07:50:38 | 只看该作者
这个帖一般般,还可以哦!
地板
发表于 2019-5-30 09:24:28 | 只看该作者
这个帖一般般,还可以哦!
5#
发表于 2019-6-6 07:02:11 | 只看该作者
顶顶顶顶顶大大大
6#
发表于 2019-6-15 09:19:30 | 只看该作者
不错,顶一个!
7#
发表于 2019-6-21 08:46:42 | 只看该作者
呵呵,低调,低调!
8#
发表于 2019-6-26 08:14:00 | 只看该作者
路过 帮顶 嘿嘿
9#
发表于 2019-7-5 07:18:36 | 只看该作者
不错,顶一个!
10#
发表于 2019-7-7 08:56:40 | 只看该作者
66666668
懒得打字嘛,点击右侧快捷回复 【乱回复纯数字纯字母将禁言】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

必备工具

地图查看分析转换三合一

目前地图转换 单纯的OB真彩地图转换编...号想必很多人都会, 也有很多工具

南宫地图编辑器v5.0

使用方法,放置传奇客户端DATA文件夹...

Tiles转换工具,支持支持255

支持255地图转换工具!

关于本站

玩传奇论坛 - 专业提供游戏素材、游戏工具、传奇单机、传奇服务端,致力于打造最精品的版本素材分享平台!

Archiver|小黑屋|玩传奇吉ICP备18002996号-1) |网站地图 

GMT+8, 2024-12-23 11:54 , Processed in 0.037453 second(s), 35 queries , Gzip On. 

 Powered by Discuz! X3.2

 © 2001-2013 Comsenz Inc.

返回顶部