说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

解决一个DBF表时的"Index not found.."错误-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
解决一个DBF表时的"Index not found.."错误-Delphi资料

怎样解决打开一个DBF表时的"Index not found.."的错误

当 你 创 建 一 个 DBF 表 时 , 如 果 使 用 了 MDX 格 式 的 索 引 文 件 , 那 么 DBF 表 的 表 头 中 的 某 个 字 节 就 自 动 被 设 置 了 一 个 标 志 , 当 你 下 次 试 图 重 新 打 开 这 个 DBF 表 的 时 候 , 数 据 引 擎 会 自 动 识 别 这 个 标 志 , 如 果 此 标 志 为 真 , 则 数 据 引 擎 将 试 图 打 开 相 应 的 MDX 文 件 , 当 相 应 的 MDX 文 件 不 存 在 时 , 错 误 就 产 生 了 。 知 道 了 问 题 产 生 的 原 因 , 解 决 方 案 也 就 有 了 : 我 们 只 需 将 那 个 标 志 字 节 ( 其 实 就 是 第 28 个 字 节 ) 设 为 零 就 行 了 。 下 面 为 示 范 代 码 :

unit Fixit;

interface

uses

SysUtils

WinTypes

WinProcs

Messages

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls

DB

DBTables

Grids

DBGrids;

type

TForm1 = class(TForm)

Table1: TTable;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

const

TheTableDir = 'c:\temp\';

TheTableName = 'animals.dbf';

procedure RemoveMDXByte(dbFile: String);

{ 这 个 procedure 的 参 数 是 一 个 文 件 名 , 它 将 对 这 个 文 件 的 文 件 头 }

{ 进 行 处 理 , 以 确 保 它 不 在 需 要 MDX }

const

Value: Byte = 0;

var

F: File of byte;

begin

AssignFile(F

dbFile);

Reset(F);

Seek(F

28);

Write(F

Value);

CloseFile(F);

end;

procedure TForm1.Button1Click(Sender: TObject);

{ 此 procedure 将 试 图 打 开 一 个 表 , 如 果 相 应 的 .MDX 文 件 不 存 在 }

{ 将 对 表 文 件 进 行 处 理 并 尝 试 再 次 打 开 }

begin

try

{ 为 表 设 置 路 径 }

Table1.DatabaseName := TheTableDir;

{ 设 置 表 的 名 字 }

Table1.TableName := TheTableName;

{ 尝 试 打 开 表 }

Table1.Open;

except

on E:EDBEngineError do

{ 如 果 MDX 文 件 未 发 现 , 将 返 回 以 下 错 误 信 息 }

if Pos('Index does not exist. File'

E.Message)>0 then begin

{ 询 问 用 户 是 否 继 续 }

MessageDlg('MDX file not found. Attempting to open

without index.'

mtWarning

[mbOk]

0);

{ 从 表 头 中 移 去 相 应 标 志 }

RemoveMDXByte(TheTableDir + TheTableName);

{ 再 次 向 Button1 发 送 被 按 下 的 消 息 , 本 procedure 再 次 被 执 行 }

PostMessage(Button1.Handle

cn_Command

bn_Clicked

0);

end;

end;

end;

end.

奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 iKair转型传感器及SaaS厂商,发布Maxense平台与9款“云传感器” 免费jQuery幻灯片图片轮播插件Galleriffic的使用方法 专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 自己的贴子可否删除?怎么删? MUGEN 人物预览利器 菜鸟请教:1delphi有什么好处——与别的语言相比 关于组播问题,急急急! 求:IE5.50使用代理服务器/不使用代理服务器 之间进行切换的代码 送分20!!! 周五不好干什么,没女朋友,编程水平又菜,学校又不好,文凭又差自修室又不开放??? 各位同志,我有个问题搞不清楚.请不吝赐教. 如何在局域网中实现共享只读文件(没有共享密码)的写操作 杭州的朋友,请问........ 如何在explore显示的网页的文本框中设置正文??? 谁能告诉我学软件工程到底有多少用? 这里有20分,谁要? 大家来看,这就是别人对中国程序员的看法! 寻找图书~? 获取NT管理员权限创意 ?寻找图书~? 为什么运行时正常的程序,编译成可执行文件后运行过程中出错... 怎样填充按钮客户区? 寻找图书~?? 请问如果数据量很大,比如大型企业的即时采集数据,应该用什么数据库系统处理呢?oracle,sysbase,db2,sqlserver还是cobol?? 这么简单的问题,难道就没有人能帮我了吗?!太遗憾了! 敬一杯“情人醉”给MM_mimi(人淡如菊),别人不要进来呀! 谁有过同样的遭遇??? 长整数除法的算法?? 关于Java Plug-in和Applet的一个问题 请求推荐有关SDK的好书!!!!!!! 我受不了了 个人主页链接如何让鼠标变成手形?谢谢! 老话题:三层结构中blob字段的存取出问题了? run-time类是怎么回事? 当多个程序对同一个文件进行读写操作,如何防止同时写入造成混乱? 求银行家算法的c程序! 请问W2K下面鼠标阴影的效果是用哪个API实现的? 我提议有编程经验的朋友们,一起来研究一种真正符合我们实际开发工作的模板 我用上kylix了!!!!!!! 请教,关于NT域用户的问题!NT账号,怎么设定唯一性呀?比如有aa的用户,我用aa登陆后,别人不能用aa同时登陆了?应该在那儿设置呀? Mfm1992?是个什么东西呀! 如何在informix/esql c中使用大事物? 如何保存收下來的email呢???!!!!! 关于一个网站建设的问题,望高手指点。 求救;如何建立一个登陆页面? 谁能给出一个远程访问互联网ACCESS数据库的经典代码?有28分送上! 怎样将-个十六进制数转换为十进制? 如何将java程序编译成dll文件 cannot focus a disabled or invisible window 一表我想通过文本框来增加记录,为何不能发送到表中,不要告诉我是没有post的原因。 奇怪,borland的开发能力这么强,为什么几乎没有一个象office那样流行的应用软件呢?如果它的应用软件很多,就不会象现在这样穷了吧? Delphi 数据库不如Power Builder 吗? 请问怎么安装新的控件? B样条曲线:如何由经过点反算控制点? 人教版六年级下册数学同步解析与测评35页4题答案一种农药用药液和水按照1:1200配制而成.1.如果现在有1.5kg的药液,能配制这种农药多少kg?2.要配制这种农药480.4kg,需要药液与水各多少kg?要准 人教版数学六年级上册配套练习册71页答案. 苏教版小学数学六年级补充习题61页第二大题 小学六年级数学下册配套练习与检测第38页思维拓展第9题解法在长度为1米的线段上任取10个点,至少有两个点,他们之间的距离不大于1/9米.为什么? 五年级下册人教版数学练习册第四页第五大题的第二小题怎么写 苏教版小学数学补充习题(六年级上册)23页答案 小学六年级数学练习册第25页第6题怎么做? 五年级下册数学练习册点中典12页 五大题1小题 人教版六年级上册数学补充习题49 50页 小学六年级上人教版数学练习册24页第一题2X( )=8分之9X( )=( )x16分之13分之2+( )=( )—8分之7=( )x100 五年级下册数学练习册56页五大题 六年级小学数学上册补充习题答案46到51页所有答案请你都告诉我! 六年级上数学练习册4.3习题的答案帮帮忙啊~ ~ 五年级下册数学练习册答案55-58 数学六年级下补充习题46——48答案拜托啦 六年级数学练习册答案66页第五题的第二小题 苏教版数学补充习题66~68答案要算式 苏教版六年级下册数学配套练习册86---95页答案苏教版六年级下册配套练习册! 苏教版六年级下册数学练习册48-50页的答案 68答案要算式 小学六年级下册数学苏教版练习册的第102页10.1111(1):一个长方形的长减少6厘米,面积减少30平方厘米,剩下的部分正好是个正方形,求原来的长方形面积是多少? 要有意思,列式( 六年级上册数学练习册人教版51、52的答案 苏教版六年级上册数学补充习题65 2010至2011六年级下册数学期中试卷苏教版 52谢谢你的关注,其实已经不需要了 小学六年级上册数学补充习题六十八页上的答案快帮帮我吧,给你们跪下了~~~~(>_ 六年级上册数学配套练习册64页 数学练习册5年级下册人教版52 小学数学苏教版补充习题六年级上册71-72答案 六年级上册小学语文配套家庭练习册11课第五大题第一小题答案老人是聋子吗?你是从哪里看出来的?用“波浪线”标一标……以后,每天清晨,我都到小树林去练琴,面对我唯一的听众,一位耳聋 2011六年级上册数学人教期中测试题和答案漳州市的啊!下午就要考了, 人教版小学英语六年级下册课堂作业本50、51、52、53页答案没有答案的就不要来,不要空说,我要答案,高悬赏 人教版五年级上册数学书第67页第7题怎样做?快、、、、、、、、、 苏教版六年级下册数学小练习册第八页答案 第25页 急 给我发来可不 五年级上册数学书第6单元67页最后一题做怎么写? 苏教版六年级下册数学配套练习册16,17页答案啊啊啊跪求了! 10 人教版五年级上册数学课本第67页第4题 六年级数学苏教版练习册下册105至116页答案,后天老师让我讲课,怕讲错啊,小生必定大恩不言谢啊! 苏教版六年级上册数学练习册50到57页答案 苏教版六年级上册数学书第67页第九题小明、小华和小军分别用4元各买一种水果.小明所买的水果重五分之四千克,是小华所卖水果的五分之二,是小军所卖水果的五分之三.他们各买了什么水果 苏教版六年级数学上册练习册第58页答案 六年级上册数学练习册【66页】折扣——能力扩展体育服装专卖店根据市场需要,决定调整某款运动套装的售价.调整的方案如下:运动衣打八折,运动裤提价20%.这样每件运动衣和每条运动裤 人教版八年级上册数学书第66页的14题 苏教版六年级数学练习册63—64页答案苏教版!急、急、急……六(2)班的男生人数是女生的8/9(九分之八),转进1名女生后,男生人数是女生的6/7(七分之六).六(2)班原来男、女生各有多 1、一根长方体木料的横截面是边长为5厘米的正方形。已知该木料长120厘米,这跟木料的体积是多少立方厘米?2、一个长5米宽4、5米高2米的无盖木箱,容积是多少(木板厚度忽律不计)3、 五年级上册数学书最后一页应用题(算式也要) 快,有急用 果园里桃树和杏树共180棵,桃树的棵树是杏树的3倍,桃树和杏树各有多少课?甲、乙、丙三个数的和是490,甲是丙的4倍,乙是丙的2倍.甲、乙、丙各是多少?三个连续自然数的和是246,求这3个数甲、 66页应用题答案 人教版六年级数学练习册63.64. 数学练习册五年级上册76页答案 小学五年级数学上册课本应用题的答案 人教版 同步解析与测评下册 (检查孩子作业) 五年级上册数学练习册60页 小学6年级上册数学课本66页答案 小学六年级下册人教版数学检测第60页准确一点的答案! 一个工地用汽车运土,每辆车运X吨.一天上午运了6车,下午运了5车.这一天共运土( )吨,上午比下午多运( )吨.商场上午卖出电视机10台,下午卖出去7台,每台电视机a元.全天买电视机一共收入 在一个长25厘米,宽12厘米,高20厘米的长方体玻璃缸中放入一个棱长9厘米的正方体铁块,然后在玻璃缸中加入一些水,使铁块完全浸没在水中,当铁块从水中取出时,玻璃缸中的水会下降多少厘米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn