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

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

代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 为改善Flickr 雅虎收购拍照应用开发商GhostBird 让你轻松学习新代码库的六个步骤 RESTful API 设计最佳实践 谷歌11亿美元豪购Waze原因:获取数据 争本地广告市场 为什么大家都要疯狂吐槽iOS 7的扁平化设计? 伟大的程序员是天生的,不是造就的 比Hive高效7倍 Facebook推新一代查询引擎Presto 未来的存储系统设计——PMC技术交流会举行 关于下拉框连动的问题?? 关于标点符号 有关c#在 ASP中的应用 我太笨了!我只是想用vb显示access2000数据库中的纪录,但是我办不到,我不想。。。。。。。 请问如何能得到分辩率 请问各位这个错误提示是什么意思? 菜单 Sql server OLAP Server 的问题,win98如何支持更新立方体? applet连接数据库,写了一个policy文件,用appletviewer可以browse,但是如何在ie和nc中带那个policy文件?请各位帮忙一下... 请问sql server怎样改变原来的排序规则名称 SOCKET的问题 BSD系统中关于服务器bind后的释放 下面这段代码是做什么用的 用C语言怎样在命令行编程方式下实现对用户输入文件路径正确的判断?谢谢 干这一行的找个工作与找个对象哪个容易,谈谈你的经历。 有关拼音查询的问题 能给出标准SQL书写事务的SQL语句吗?请给个例子。 个人的邮箱大小为什么不变? 如何在视图上添加自定义的背景! SQLServer2000的问题 关于核新安全代理客户端的问题 如何把Memo里的某些内容替换? 大虾,救救我,程序打包! 一个工作者线程怎样向创建它的主线程发送消息?::SendMessag第一个参数怎样写? 关于com中的dc,componet的结构设计???? 如何确定图形中画线问题 在下面的程序里如何避免警告? 小弟有一些关于用ATL开发组件来封装asp网页的问题来请教各位高手!!! 简单 关于Qmail的webmail问题!急!!! 将数据导入到Excel文件中的源程序 快快快,紧急!!!!!!!!! Vb+Sql server OLAP Server 的问题,win98如何支持更新立方体? 能否安装Oracle Application Server 的问题.(欢迎参加) 请问在word2000其中一个文档关闭前后各触发什么事件?其中的参数怎样写? 高手们,能讲一下BCB的事件机制么? 讨厌,我的问题都到什么地方去了嘛~ 请帮我看一下这段代码,错在哪里?真快弄晕我了!!!! 如何抓取VB中FORM最小化事件 怎么样得到cpu的二级缓存信息? 我是新手 吉他和小提琴哪个好? 请教:如何在jsp中使用存储过程 关于串口的问题(好低级我就是不会) 有关mfc的问题 请问题在win2000p下用delphi6连sql server 2000 personal要加什么补丁? 一个奇怪的问题---应用程序为什么还出错? 怎样知道文件被哪个程序在使用? java web start实例代码COPY不了,怎么办? PowerBuilder 7.0的数据军定义在存储过程中 SQL SERVER 2000: [DBNMPNTW]拒绝纺问 甲乙丙三台抽水机同时抽水,在某一时间内共抽水2600立方米.已知甲和乙抽水量的比为6:7,丙的抽水量等于甲乙两台抽水机抽水量之和.问这三台抽水机各抽水多少立方米? 汽车电瓶是做什么的,有什么作用 在直角坐标系xoy中,已知点p是反比例函数y=2根号3/x(x>0)图像上的一个动点,以p为圆心的圆始终与y轴相切,切点为A如图2.圆P运动到与x轴相交,设交点为BB、C,当四边形ABCP是菱形时:1.求点A、B 用两台水泵抽水,小水泵抽6小时,大水泵抽8小时,一共抽水312立方为.小水泵抽5小时的水量等于大水泵2小时的量,两台水泵每小时各抽多少立立方米? 如图电路,电源电压保持不变,R0为定值电阻.闭合开关S,当滑动变阻器的滑片P在某两点之间来回滑动时,电流表的示数变化范围是0.5—1.5A,电压表的示数变化范围是6—3V.求电源电压 手机进水后能放在太阳下晒吗?之前已经用电吹风和电风扇吹了好长时间了,水雾消失了,可是一放在太阳下晒,水雾就又出现了,还能继续晒吗? 大小两台水泵抽水,大的抽2小时,小的抽3小时,共抽105吨水,大水泵每小时抽水量等于小水泵2小时抽水量, 用功率10千瓦的水泵为水箱抽水.水箱体积为10立方米,水被提升的高度为20米,求:要用多少时间才能将水箱抽满水? 手机在太阳下晒了2个小时会怎么样? 无线鼠标电压到底是1.5V还是3V?如题,我的无线鼠标标称是1.5V,6mA,但是却安排了两个七号电池插槽,得用两个七号才通电,那不就3V了吗,鼠标能撑得住不烧坏? 一块漂浮在水面上的蜡,露出水面的体积为1m³,求这块蜡的质量.(蜡的密度为7.8*10³千克/米³) 泰山为什么被称为“五岳之长” 如图所示,一个不计重力的小滑轮,用一段轻绳OA悬挂在天花板上的O点,另有一段轻绳跨过该定滑轮,一端连结一个重为20 N的物体,在轻绳的另一端施加一水平拉力F,使物体处于静止状态时,求:(1 初三的一道物理计算题.急.质量相等的两个实心小球A和B,已知它们的密度之比为ρA:ρB=1:2,现将A和B放入盛有足够多水的容器中,当A、B两球静止时,水对A、B两球的浮力之比是FA:FB=8:5,则ρA、 在直角坐标系中,一次函数y=负三分之根号三x+2的图像分别与x轴y轴相交于A,B若以AB为一边的等腰三角形ABC的底角为30,点c在x轴上,求点C的坐标 一个不计重力的小滑轮,用一段轻绳OA悬挂在天花板上的O点,另有一段轻绳跨过该定滑轮,一端连结一个重为20(1)轻绳OA对滑轮的拉力为多大?(2)轻绳OA与竖直方向的夹角α为多大?我不解为什 要使1㎏,20℃的水烧开,要吸收多少热量?如果这些热量由酒精燃烧提供,且酒精燃烧放出的热量有80%被水吸收,则要燃烧多少酒精? 手机怕太阳晒吗? (桶自身重量为1kg水中深30cm) ()水车()? 如图,平行四边形ABCD的低是18cm,高是6cm,M是AB的中点,求阴影部分的面积. 这副图做成实体可以正常工作吗?太阳能电池板能给电池充电吗,到晚上灯会亮吗?【太阳能发电3.7v电池是3.7V120mA的锂电池】 AB两球用轻质杆连,在光滑桌面相同角速度绕0做圆周运动,两球质量比1:2,OA:AB=1:1,求加速度比和OA,AB拉力之比 某实验电路中所用小灯泡上标有“2.5V 0.3A”的字样,实验中用电压为4V的蓄电池组供这个小灯泡正常发光式的电阻多大需串连一个多大的定值电阻麻烦给出过程哈 两台抽水机抽水,甲单独用完a小时,乙单独用完b小时,两台合抽1小时抽水量为( 6.7v的电池怎么给3.7v的电池充电我有一块输出是6.7v的蓄电池,想给3.7v的手机电池充电,蓄电池是5800毫安的,手机电池是1200毫安, 水车的特征及用途不是来历,是用途 高中物理题!两根质量均为m 的等长,均质硬杆oa.ab用铰链绞于a处,它们分别可绕o轴和a轴转动.当水平平衡时,加在竖直方向上的力为?求过程! 有一个5.5V的太阳能电池板 一个3.7V手机锂电池 一个肖特基二极管 开关(可控充电) 要做一个有一个5.5V的太阳能电池板 一个3.7V手机锂电池 一个肖特基二极管 开关(可控充电) 要做一个太 水车什么 成语 水泵抽水的出水量现有一基坑积水约4000立方米,基坑深度约6米,需要排水,怎样其设计抽水泵,需要几台,几天能抽完?麻烦各位给点意见! 英语翻译lifting creambalancing waterfirst care serumrevitalizing serumV Collagenic Serumbalancing emulsion要自己翻译的 不要翻译器上面的 找翻译器我自己也会 老水车旁的风景 “老”和“不老”如何理解? 3.如右图,长1 m的轻杆OA可绕O端转动,水平放置时,在A端挂一质量为m的物体,现将长1 m的轻绳系于杆上某点B,另一端系于墙上,要使绳子拉力最小,拉力的大小和OB的长度分别为多大? 英语翻译Derma Genesis Cellular CleansingLLLuminating Make-up Removing Milk国外买的欧莱雅的 不知道是洗面奶还是卸妆乳 瓶子上是这么写的 汽车蓄电池每小时放电多少w才算一v? 用两台水泵抽水,先用大水泵抽5小时,再用小水泵抽3小时,一共抽水430吨.已知小水泵5小时的抽水量相当于大水泵3小时抽水量.小水泵每小时抽水多少吨?(用方程)请高手们想一想办法啊!::>_ 英语翻译我姐姐从国外带的化妆品,但我忘记问她这是这是香水还是其他什么东东,可能上面的看不清楚ESTEE LAUDER(应该是这个化妆品的牌子)AdvancedNight PepairProtective(小字)Recover Complex(同上) 物理初三计算题.帮帮忙有一天台太阳能热水器.接收太阳能能总有效面积为1.2平方米,能把接收道的太阳能的50%转化为水的内能.天气晴朗时,若每平方米的面积在1h内得到的太阳辐射能平均为2.8 匀质杆质量为m,长OA=l,在铅垂面内绕定轴O转动,杆质心C处连接刚度系数K较大的弹簧, 物理初三计算题一水壶中盛有4kg水,用煤油炉10min可将水从20°C烧开(1标准大气压),燃烧煤油的质量是40g,求煤油炉的热效率?(q=4.6*10的7次方J/KG) 要写过程 经实验探究发现,在拉力相同的情况下,弹簧伸长的长度与弹簧的材料粗细原长(弹簧不受外力的长度)经实验探究发现,在拉力相同的情况下,弹簧伸长的长度与弹簧的材料粗细原长(弹簧不受 在弹性限度内,弹簧的弹力大小与弹簧的伸长量成正比,即F=kx,其中F为弹力大小,x为伸长量,k为弹簧的劲度系数.已知某弹簧劲度系数为100N/m,原始长度为10cm,则在弹力为5N时,弹簧长度可能为( 【1】一个瓶子的质量是200g,装满水后的总质量是700g,装满另一种液体是总质量是600g,那么这种液体的密度是多少?【2】一容积为3×10的-4次方m³的瓶内盛有0.2kg的水,一只口渴的乌鸦每次将一 请设计一个简单实验,证实弹簧伸长的长度与弹簧原长有关? 弹簧长度的增加量与对应的弹力增加量成正比 1、某导弹驱逐舰的满载排水量为7000t,(海水密度1.03×10三次方kg/[平方米],g取10N/kg)求:(1) 满载时,该舰受到浮力多大?(2)该舰满载航行,通过舰载雷达发现目标,若雷达发出电磁波经2×10(-4 已知,直角坐标系XOY中,一次函数Y=3分之根号3乘X,+2图像分别与X轴Y轴交于点A,B若以AB为一边的等腰三角形的底脚为30度,求出点C的坐标 弹簧长度的变化量是不是与对应的弹力变化量成正比 如图.当然如果有过程就最好啦~ 如果弹簧的原长为五厘米,将弹簧压缩和拉长相同的长度,弹簧受到的拉力和压力是否相等?设计实验证明必须有实验 1500毫安的电池电压为5V功率为4W求能用几个小时 一个实心的塑料漂浮在水面上时,排开水的体积为300平方厘米,塑料块的质量是多大?挡在塑料块上放置一个重量为2牛的砝码后,塑料块刚好没如水中,问此时塑料块受到的浮力是多大?塑料块的密 帮忙设计个小实验.弹簧的形变大小和外力大小的关系 一节电池的电压是1·5V.,哪连结电池的电压是3V吗? 什么是进水车 10分巨额——在直角坐标系中,一次函数y=根号3/3x+2的图像与x轴交于点A在直角坐标系中,一次函数y=【(根号3)/3】x+2的图像与x轴交于点A,与y轴交于点B,过点O作OC⊥AB于C,求C点坐标. 250mah的电池用在电压3V,功率4W的用电器上能用多久 如图所示,线段OA=2AB,A、B两球质量相等,当它们绕O点在光滑的水平桌面上以相同的角速度转动时,两线段拉力之比TOA:TBA为 正解为2:3 已知直角坐标系中,一次函数y=-根号3/3x+2的图像分别于x轴、y轴交与点A和点B,若以AB为一边的等腰三角形的底角为30°,试求C的坐标
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘