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

解决一个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.

iPad如何在三年内改变世界 划时代的成果:新DNA存储技术 轻而易举装下世界 谷歌产品设计:Larry Page的魅力革命 开源移动统计工具Countly更新 支持Unity 3D DailyCost传奇设计师访谈,彰显HTML5移动应用优势 如何成为一名架构师? Apache Hadoop集群的安全性架构 Wood Camera开发者访谈:我们如何冲到榜首的 代码审查:程序员内炼之道 Twitter Q1推广告API 收入剑指10亿 Dell:在OpenStack成熟后才会推出服务 一个开源工作者对开源与赚钱的一些想法 宏碁:Windows8仍不成功 Chrome表现令人意外 雅虎发布Q4财报 净利润同比下滑8% 游戏机禁售令起风波,索尼任天堂股价大涨 国外开发者吐槽Facebook Android设计一例 Rovio转向发行业务 将发布新作Tiny Thief 上山下海 “硬汉”服务器无所不能 访金山云CTO杨刚:开源改进PK自主研发,技术驱动前行 苹果涉及色情问题,且进一步恶化 开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 如何将系统的短日期格式由yy-MM-dd改为yyyy-MM-dd 100分,再次求助,关于jsp中应用java bean的问题! 求助:如何在自己的程序里控制其它应用程序,主要实现对另一应用程序的鼠标定时自动单击 为什么???? 数据库该学哪种语言??? win2000并口编程,怪事?? 请问一个关于超链接的问题! 动态的软件演示用什么软件做?好象播放时用的是screencam.谢谢 一个利用Access 的report design做完报表后怎样用Delphi编程打印输出此报表的问题 数据库该学哪种语言??? 为什么老是说“要求对象”?高手请进! 例如一个编辑框,设为TIME型的,我用什么方法来检测其有效性呢?? 这句SQL如何写?有关 和checkbox搭配的问题?急急急! ejb问题 有编过输入法的吗? lucene中文检索 关于vc下的字符界面程序的光标控制 服务器端定义的类在客户端还要定义吗?(delphi三层结构) 希望在网络编程方面有经验的高手谈一谈学习网络编程的经验(让新手少走一些弯路)。 help me please!!! 听说Delphi6要出中文版了!有人知道详细情况吗? 数据库该学哪种语言??? 各位大侠帮个忙,跳转页面如何加 Session值? 使用触发器的一个简单例子,请帮忙看看错在哪里?50分相送! 紧急,怎么删除当前记录。。在线等待 foxpro 一个弱智问题,有关在WEB页怎样绑定数据库? Modem为何不能连通? 有一个系统,服务器端是安装sqlserver2000,客户端是安装msde,通过电话拨号连到server,怎样通过增量复制将server更新的数据copy到客户端 寻找WinRunner! 多谢 数据库该学哪种语言??? 各位有没有关于群发邮件的好例子,或者说解决办法 关于MSFlexGrid的问题! ●●∑∑●●∑∑测量窗体‰‰▲▲∑∑●●谢谢 VC的编译器到底怎么回事,老是说我少了分号。我都快气死了 棘手的问题! com高手请进!!!!急 硬盘分区 我的VB烦死了 请教一个关于数据库表格备份和bcp命令的问题,急!!! 请问学习JAVA语言用什么工具最小又最好?比如说学习C语言就用TC就OK了! 关于汉诺塔升级版。 急!为什么临时表空间总是不够? 如何判断一个线程已经处于死循环或不响应(即系统CPU占用率高达98%以上)?求助!!! 用CPictureEx类加载gif动画的疑难问题,给分50 请问各位高手,java项目经验主要包含什么东西? 如何判断一个线程已经处于死循环或不响应(即系统CPU占用率高达98%以上)?求助!!! 救我啊!想在局域网的网关机上监控其他机器发出的http请求 怎样快速选取checkbox 请问怎么把几个txt文件合并成一个文件,急!!!!在线等待 关于在广州建立《江西老乡在广州的备忘录》倡议书! 需要有关女性伟人的英语文章、短一些就行、居里夫人的不要、 copy的不要太热情、 把一个长20厘米,宽18厘米,高15厘米的长方体木块,锯成一个最大的正方体,锯掉的木头体积是多少?过程 像鹅毛雪,柳叶眉,樱桃嘴,娥眉月这样的词还有哪些? 谁会写以承诺为题的作文,800字.要求是写历史名人然后写现在,就是从古到今 哪位写诗高手帮我改下我自己写的六一藏头诗…(祝大家六一快乐)自己乱写的,写的不好,望高手帮忙改的顺畅些,意思不变.内容:『祝』福六一在今日,『大』地祖国欢乐节.『家』家少儿争 想一想,仿写词语.鹅毛雪,柳叶眉,( )( )( ) 1、计算由直线x+y=2及抛物线y=x^2所围成的平面图形的面积? 怎样写诗?诗的种类?本人问不懂写诗,也忘了那些,现在我觉得有些诗就像平常说话般的语句,是不是水平不高?照说应该是那种一大段文字浓缩成几个字经典,看后要思考的.诗能重字吗?有的一句 像鹅毛雪、柳叶眉这样的词还有吗3个.急3个急 求曲线 y=2x 和y=x^3 所围成的平面图形的面积y=x^3 我画不出来,大致算了一下,第一象限是在y=2X的下方,第三象限是在y=2X的上方, 那我这道题目是不是按照面积和来算?是当y∈[0,2√2] ∫(2x-x^3) 当y 大家看看这首诗咋样哦!谢谢大家的评价,缺点一定要指出!本人才11岁,第二次写诗,感觉写诗非常有意思.不知怎么,周围起了雾,我只身一人,飘荡在静寂的回廊里.雾同我一起,消失在那凝固的空气 像鹅毛雪、柳叶眉之类的词语,急 一个长方体长8分米宽6分米高5分米把6个面涂上油漆后锯成1分米的正方体3个面有油漆的有几块两个面有油漆的有几块一个面有油漆的有几块没有油漆的有几块 描写大海的词语有那些我一是半会儿想不出来所以请大家来帮我了 蜗牛是属于什么的.昆虫?它有鼻子吗? 描写大海的优美句子谁知道这个,写作文没有思路, PS如何让一张图片周围的颜色变得一致出了用印章.如何让两边白色部分颜色变得跟桌面颜色一样.就是棕色 有一种含盐百分之二十的盐水60千克要加入多少千克含盐百分之五十的盐水才能配制成含盐百分之二十五的盐水好我再加 圆C:x=1+cosa,y=sina (a为参数)的普通方程为____________,设O为坐标原点,点M(x0,y0)在C上运动,圆C:{x=1+cosa,y=sina} (a为参数)的普通方程为____________,设O为坐标原点,点M(x0,y0)在C上运动,点p(x,y)是线 一张图片中,PS怎么把图片的一片区域的颜色换成另一区域的颜色 1.照样子,现在括号里填上合适的词,再写句子例:悄悄地(说)考试开始了,我悄悄地提醒同桌兰兰说:“仔细读题!”1、拼命地( )————————————————————————— x=sina y=cosa+1怎么化成圆的方程 PHOTOSHOP如何对一张图片里的单独一个颜色进行更换例如这张图片,我想把蓝色的那些改成紫色,怎么操作? 10个带"臭"的成语. 关于大海的优美句子30字左右! 送别诗里的题目怎么写求求你们,快点 照样子,用括号里的词语与写句子.(1)天空撒满了快活地眨着眼睛的星星,天河显得很清楚,(仿佛)为了过节,有人拿雪把它擦亮似的……(2)要砍圣诞树了,爷爷(先)抽一斗烟,(再)吸一 关于童年的梦的文章包括题目、主要内容、感想一定要包括包括题目、主要内容、感想!急 写送别诗和相处了5年的好友就 要分别了,临别的时候我想送他一首诗!可是送什么古诗好呢? 形容一条河又赃又臭应该用什么成语恰当 一个长方体木块,长、宽、高分别是9分米,4分米,6分米,把它锯成若干个小正方体,再拼成一个大正方体.这个大正方体的表面积是多少? 送别诗怎么写 含臭的成语越多越好PS:此时臭念“xiu” 有一块长方体森料长72厘米,宽60厘米,高36厘米现在想把它锯成同样大小的正方体木块,求可以锯成几块? 按要求写诗的题目.1.送别诗写三个.2.描写季节的诗三个.3.与月亮有关的诗三个. 樱桃是什么意思 一个长方体木块,长宽高分别为9分米,4分米,6分米,把它锯成若干个小正方体,拼成一个大正方体,这个大正方体的表面积是多少? 写一首送别诗 女生送男生樱桃是什么意思 蚂蚁是昆虫吗?大神们帮帮忙 草虫的村落课后小练笔 有甚么描写大海的句子?要好的 儿童诗该增么理解?如何指导小孩写诗? 形容一道题非常难的成语 送女孩樱桃是什么意思? 模仿五年级课文《儿童诗两首》写诗 带有“臭”的成语无 樱桃的寓意是什么 描写儿童的诗 一个印刷厂3小时装订240本书,照这样计算,装订640本书一共要几小时?(用比例解答) “樱桃”的特殊含义? 求一篇作文《童年的梦》这个梦是梦想这类的 ,注意,是梦想,题目也可以是童年的梦想这类的. 一块长30厘米宽18厘米高9厘米的长方体木块,可锯成多少块棱长3厘米的正方体木块?这些小木块体积和是多少 早晨起床前,有时感觉看天花板及墙壁上有蜘蛛(或其他虫子)在爬行,是什么原因?大约几分钟之后就不觉得有(实际上是没有虫子等). 童年的梦想作文和初一课文第一课《在山的那边〉差不多的就行!xie xie~ 建造一个容积为8立方米,深为2米的无盖长方体蓄水池,池壁的造价为每平方米100元,池底的造价为每平方米300元.把总造价y表示为底面一边长x的函数 氯丁胶乳防水砂浆多少吨一立方啊?用的水泥是525#硅酸盐水泥,沙子是干燥天然中砂添加LB-7氯丁胶乳水泥砂浆防水剂搅拌,配合比是水泥:砂:配合料=1:1.5:0.5(重量比)看清楚了啊~~~是多少 名人英语的作文(40字)六年级的水平(带翻译)写得好的有丰富的.嘻嘻 把长是144厘米,宽是48厘米,高是32厘米的长方体木块锯成同样大小的正方题木块,求正方体木块的棱长与锯成的块数.急用 与鹅毛雪.柳叶眉相关的词语有
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘