pc蛋蛋主页
正安在线
资讯中心
您的位置:正安在线首页 > 资讯杂文 > 编程开发 >

Delphi MySQL数据库操作类

        本站所有文字、图片、视频,版权均属原作者所有,如有侵权或争议请联系管理员删除。已授权本站的内容,在使用时必须注明“来源:正安在线或正安论坛”,违者将依法追究相关责任。

{*
 *                         MySQL Helper v1.0
 *                            2015.6.19
 * 说明:
 *     这是一个操作MySQL的类,该类必须和libmysql.dll,dbxmys.dll两个文件一起使用.
 * 安装:
 *     将dll拷贝到C:\Windows\System32下和项目目录下,发行的时候放到exe目录下即可.
 * 使用:
 *    //使用insert,update,delete语句时请使用:TMySQLHelper.ExecSQL();返回受影响行数Integer;
 *    //使用select语句时请使用TMySQLHelper.Query();返回数据集TSQLQuery;
 * 测试:
 *     WIN7 SP1 X86 , MySQL 5.6.17 , Delphi XE 测试通过.
 * ==========================================
 * var
 *   MySQLHelper : TMySQLHelper;
 * begin
 *   MySQLHelper :=  TMySQLHelper.Create;
 *   MySQLHelper.User_name := 'root';
 *   MySQLHelper.Password  := 'root';
 *   MySQLHelper.Database  := 'Test';
 *   ShowMessage('影响行数:'+IntToStr(MySQLHelper.ExecSQL('INSERT INTO test(name)values(''FangJun'')')));
 *   MySQLHelper.Free;
 * end;
 * ==========================================
 * var
 *   MySQLHelper : TMySQLHelper;
 *   SQLQuery : TSQLQuery;
 * begin
 *   MySQLHelper :=  TMySQLHelper.Create;
 *   MySQLHelper.User_name := 'root';
 *   MySQLHelper.Password  := 'root';
 *   MySQLHelper.Database  := 'Test';
 *   SQLQuery := TSQLQuery.Create(nil);
 *   SQLQuery := MySQLHelper.Query('select * from test');
 *   while not SQLQuery.Eof do
 *     begin
 *       ShowMessage('姓名:'+VarToStr(SQLQuery.FieldValues['name']);
 *       SQLQuery.Next;
 *     end;
 *   MySQLHelper.MySQLClose;
 *   MySQLHelper.Free;
 * end;
 * ==========================================
}


下载地址   http://files.cnblogs.com/files/fangjunai/MySQLHelper.rar
责任编辑: admin
文章关键词:

你看到此篇文章的感受是:

您可能?#34892;?#36259;的文章
掌上正安 关于我们 业务联系 版权声明 友情链接
pc蛋蛋主页 网络百人牛牛能赢吗 今晚一肖一马的好资料 双色球复式投注器 下载app送18元彩金平台 有人拉你投彩骗局 排九至尊大还是天牌大 重庆时时开彩结果官网 江苏时时彩计划软件 重庆时时真的存在吗 百人牛牛游戏软件