捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
FBLIB连接Firebird数据库重大BUG修改版
关键字：Firebird,FBLIB,BUG修改版
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2009/10/7
发布者：bsense 发布时间：2009/10/10
编辑器：DELPHI7 语　　种：简体中文
分　类：数据库 下载浏览：459/7879
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
FBLIB连接Firebird数据库重大BUG修改版,修改了如果某个字段是空白字符串，导致读取失败问题, move(tempString[1] ,如果是一个tempstring := '';
责失败，已修改by bsense@126.com
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论3条 当前显示最后2条评论
kkyy 2009/10/12 21:31:02
写修改哪里就可以了
bsense 2009/10/13 10:45:41
修改FBLDataset.pas 的
function TFBLCustomDataset.GetFieldData(FieldNo: Integer; Buffer: Pointer): Boolean;
var
 TempString:string;
 ftype,
 fscale: smallint;
begin
    Dec(FieldNo);
    Result := False;
    if FisEmpty or FDsql.EOF then Exit;

    if FDsql.FieldIsNull(FieldNo) then
      Exit;
    fscale := FDsql.FieldScale(FieldNo);
    ftype   :=  FDsql.FieldType(FieldNo);
    case ftype of
      SQL_VARYING,
      SQL_TEXT:
        begin
        TempString := FDsql.FieldAsString(FieldNo);
        //2009-10-5 by sxg 解决空字符串问题 ,否则会出现灾难性错误 TempString[1]无效访问
        TempString := TempString + #0;//这一行添加
        if length(TempString)>0 then //这一行添加
          Move(TempString[1],Buffer^,FDsql.FieldSize(FieldNo))
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表