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

怎样解决打开一个DBF表时的Index not found..错误-Delphi资料

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

当 你 创 建 一 个 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.

VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 Visual Basic 窗体背景花纹的实现 Visual Basic 中的界面设计原则和编程技巧 Visual Basic 中文本框处理技巧集萃 Visual Basic 中字符淡出淡入的实现 Visual Basic窗体背景花纹的实现 Visual Basic下工具条的制作 Visual Basic中的界面设计原则和编程技巧 Visual Basic中在同一界面输入大量数据的几种方法 VisualBasic中的界面设计原则和编程技巧 VisualBasic中用户界面的设计原则 把 VB 标准的工具栏变成平面式 把窗体卸载干净-VB资料 保持初始的窗体大小-VB资料 编程实现将所有窗口最小化-VB资料 不规则形状窗口详细说明 -VB资料 不用 API ,直接调用关联的程序 -VB资料 处理过程时的鼠标显示 -VB资料 窗口处理技巧大全 -VB资料 窗口事件的发生顺序-VB资料 VB创建不规则窗口 VB创建透明窗体 VB创建位图菜单 VB创建无 Icon 的窗口 打开 Win95 的创建快捷方式窗口-VB资料 打印机技巧 -VB资料 带有历史记录功能的菜单-VB资料 得知目前Mouse所指的Menu Item是哪一个-VB资料 调整 Combo 下拉部分的宽度 -VB资料 Dll向主窗口发送自定义消息? 如何用MoveWindow()和SetWindowPos()来改变窗口大小(最好有个例子)! script参数怎样传输到applet中 怎样把jpg转换位BMP,在线急等 我要开放mssql的访问,在防火墙中是不是只要开放1433端口就可以了? 外面买的2000安装盘有的里面只有一个程序,叫什么ghost,好象运行它后就可以非常快的安装2000,请问这个ghost是用哪个软件做的? 系统初始化把所有数据库里面的内容删除,保留表的结构,这是怎么实现的? 如何将AnsiString转换成LPCWSTR? 我想请问一下,当panel显示时如果下面有<select >控件是,这个控件不被盖住,结果好象panel破了下一样,请问题怎么办!谢谢 如何把这个程序转换成java程序,我够菜的:( 高分请教如何实现本地网址过滤?就好像反黄软件,或公安的监控软件一样。 又有问题了 谁能贴一个关于TQUERY,TTABLE等控件的数据库应用的详细使用 我会jsp+servlet sql server完成小项目 找相关工作还咬什么? vs.net的问题,看看你遇到过没有? 答者有分!怎样用超链接调outlook发邮件? 怎样把不同机子上的vc++模块连到一块 关于自增自减运算符的问题-缘引老师的教案 在SCO上配置Informix遇到n多问题 急!寻解线性代数方程组的算法程序或者相关资料 假设在 MDI 程序中打开了3个文档,现在想将其中一个文档提到前面显示 php语法的一个小问题 MM,有个难题急需解决(关于 DateTimePicker控件的) 请看图,长得巨像梁朝伟的工地民工!! §§如何从Variant变量中取出有符号long型值? 关于vc++和visual prolog的接口问题 Exchange 2000 Lotus connector 怎样把<<石器时代>>游戏里的图片和动画弄出来??? 有关PHP使用相对路径访问ACCESS数据库的方法。 大版主,特别是阿信,进来看! 怎么把数字以16进制格式输出 一个奇怪的顺序问题 怎样知道自己被“黑”了? 求一个三角形的组合问题 如何删除CListCtrl的单条或多条选中项 设个标志位,只取0,1两个值,该定什么类型好? 请问如何在vbscript的函数中嵌入asp的response.redirect方法 买了本VB书,很多的案例却不能用,高手帮忙看看! 求书Professional Active Server Pages 3.0 英文版!!!!! 谁有mdeamon服务器设置的相关中文资料呀?本人急需。 请问wacom合肥哪里有卖? 如何获取系统语言? ¥¥谢谢王小石,问题全部解决!我就剩50分了,都给你,过你天有分了,接着给你!! GDI的问题 放分大思考:如果没有IT,我们现在都在做什么?欢迎大家讨论哦 请问存储过程写在那里?我找aspx页面怎么没有看到呢?提示一下就好了 原来昨天不但是6.4还是端午节,祝所有水友快乐! 我在上传文件到数据库时遇到的问题,请指教 对String类的困惑! 请问什么叫差距类型(Dist)呢? tomcat和oracle的问题~~~~~ 黎明鸟 程光锐1.通过阅读全诗,说说最吸引你的是那个诗节,谈谈理由.2.品析下列诗句,体会诗句所蕴含的思想感情.(1)很久很久,你没有唱出歌声了.(2)突然从梦中醒来,惶惑而又急速,你就殷 2011.10.21流星雨在北京可以看到么,大约是几点啊,好像11.17号也有,21号这块到了想看 甲、乙两辆功率相等的汽车,如果在相等的时间内匀速通过的距离之比S甲:S乙=3:1,那么下列结论正确的是:A:两辆汽车的牵引力之比为1:3 B:两辆汽车的牵引力之比为3:1 C:两辆汽车所做 海洋地壳的平均厚度是多少? 2008清华自主物理动量题小车质量M,小球质量m,用长为l的细线系于小车上,当细线水平时由静止释放小球,不计一切摩擦. 1、从状态甲第一次到状态乙的过程中,细线对小车做功多大?状态乙时细线 汽车发动机功率怎么求?【急!】一辆汽车的发动机输出功率为66150W,每小时耗柴油14Kg,请你计算此发动机的效率.(柴油机的热值为43000000/Kg) 用 "双线桥" 表示下列氧化还原反应 (1)2Cl2+2NaBr===2NaCl+Br2(2)NaBRO3+5NaBr+3H2SO4=3NaSO4+3Br2+3H2O (3)3cu+8HNO3=3CU(NO3)3+2NO+4H2O (4)4Mg+10HNO3=4Mg(NO3)2+NH4NO3+3H2O 旅行家登山时怎样克服空气稀薄困难? 如下图,在长方体ABCD-A1B1C1D1中,AA1=3,AD=4,AB=5,沿长方体的表面从 A到C1的最短距离为_____ 为什么答案是4倍根号5而不是根号74 怎么用双线桥表示CL2+2NABr=2NACL+Br2的氧化还原反应的得失电子情况啊? 1mol H20中含于多少个分子,多少个原子,多少个氢原子,多少个氧原子,含有多少个质子,多少个电子 已知角阿尔法等于五十度且角阿尔法的两边与角贝塔的两边互相垂直,则角贝塔=什么? 什么是光子,什么是光波?回答不要太复杂.若答案很长,请删去一些. 求解2009清华自招物理题一道英国在海拔200m的峭壁上建了一个无线电收发站(发射塔高忽略不计),发出波长5m的无线电波.当敌机距此站20km时,此站接收到加强的无线电信号,反射信号的一束经 球面反射镜无球差的点共有几个? 两年没上学了,英语忘光光的,怎样利用电脑学英语才能够达到高效,优质的效果,期待获得高人的指点 麻烦各位给我讲讲全反射镜、偏振片、分光片、补偿片、扩束镜、衰减器的原理及其作用啊? 在哪里可以买到大口径的凹形反射镜最近想自制一个想天文台的望远镜一样大的望远镜,不知那里可以买到那么大口径的反射镜 一个具有E=13.6eV动能的、处于基态的氢原子与一个静止的、同样处于基态的氢原子发生正碰,试确定碰撞的性 显微镜下方常用一小镜来做反射镜,这一小镜是__镜或__镜,它的作用是使人看到的像的亮度__(增强或减弱)在光线较暗时应使用————镜?有额外分! 人的血液中含有+3价的铁离子么? 氢原子的基态能-13.6eV是势能和动能的总和吗 相同情况下,单根导线切割磁感线产生的电流为什么比线圈小 人站在凸球面反射镜前,若是人站在凹球面反射镜前呢?人站在凸球面反射镜前,能否看到和自已等大的像?若是人站在凹球面反射镜前呢?能否看到和自已等大的像? 1,已知氢原子基态能量为-13.6eV,下列说法中正确的有:A.用波长为600nm的光照射时,可使稳定的氢原子电离B.用光子能量为10.2eV的光照射时,可能使处于基态的氢原子电离C.氢原子可能向外辐射出11eV 在mstp 中的STM-1,STM-4,STM-64分别代表什么意思? 长方体ABCD-A1B1C1D1,Ab=3,AD=6,AA1=4求点A到平面D1CA1的距离 导体内电流增大,是说明导体内部的自由电子流动速度加快了,还是自由电子的数目(电荷量)增多了? CaCl2为什么可以除去乙醇?发生什么反应了? 外界因素(如温度)可以缩短半衰期吗,为什么? 金属的氦外电子在电压升高的影响下成为自由电子的数量会增加吗. 氯化钙能与乙醇反应吗 臭氧半衰期跟温度有关吗臭氧在水温37℃的时候能在水中保持多长时间呢,谁知道? AgNO3溶液加稀HNO3加BaCl2溶液有什么现象 乙醇会与氯化钙反应吗? 请问:物理学中的质点应该如何判断? She has two________(bowl)of rice for breakfast 怎样提高物理实践能力? 因为质点没有大小,所以与几何中心没有区别.这句话哪儿错了,杜绝抄袭. 自由电子的定向移动与电压有什么关系? 2FeCl2+Cl2=2FeCl3怎么判断哪个氧化性强于哪个上面是第1个 第2个大问题 1)Cl2+2KI=2KCl+I2  (2)2FeCl2+Cl2=2FeCl3(3)2FeCl3+2HI=2FeCl2+2HCl+I2   (4)H2S+I2=2HI+S①可知氧化性是氯气强于单质碘的 瓦和千瓦时之间的进率第二天要交作业的~~~请给我一个满意的回答 正棱锥中的斜高是什么? 为什么饱和氯化钙可以除去乙醇 放射性元素半衰期与温度物理学上说放射性元素半衰期是核内部的性质,与外界物理化学环境无关.但是化学动力学说衰变是一级反应,根据阿伦尼乌兹公式计算速率常数,说明和温度有关.这两 在电压作用下产生自由电子?电压是产生电流的原因吗?电流不是自由电荷(自由电荷是正电荷,自由电子是负电荷?)的定向移动形成的吗?那电压作用下产生自由电子是怎么回事 扫描隧道显微镜可以把一个物体放大多少倍?精确点 千瓦时化焦进率 中国夏朝时欧洲处在甚么时代? 为什么只有正棱锥有斜高 土壤中植物不同生育期内铵态氮正常值范围是多少啊? 小鸟为什么早晨要叫? 问下,充电过程中,是不是自由电子在电压作用下发生移动? 常数项算不算一项式?举个简单的例子吧。2x+3y+6、、这个常数项6算一项式吗??这个式子是三项式还是两项式【不好意思哇,才学,很多不懂的】 清晨,被鸟儿叫醒陈嘉瑞阅读答案 正四棱锥的斜高是什么 X+X=0,中的0算不算常数项 给我要一点清晨如同鸟叫的音乐有鸟叫的 好像在清晨树林一样能听到鸟叫的地方太少拉我希望在早晨安静一会儿 过的舒服点啊 苏格拉底面对死亡的态度是怎样的 7+c算不算常数P+Q=(3+a)x的平方+(b-6)x+(7+c)当a=-3 b=6时P+Q算不算常数到底算不算啊,不算也得告诉我为啥如果不是常数的话a=?b=?时P+Q是常数 俄武器出口一半销往亚太 称拟争取非传谷歌更新涂鸦纪念印度女数学家戴维84美国官员表示美政府不会考虑对斯诺登宽埃及法院就谋杀示威者罪名对穆尔西进行湖南3小学生遭绑架杀害续:每名学生家4男子以炉渣充铜渣 诈骗浙江商人63意大利前黑手党组织头目忏悔操控工厂排男子被卡两栋大楼中动弹不得 消防员破埃及法院就谋杀示威者罪名对穆尔西进行叙利亚中部城市发生自杀式炸弹袭击 致美海军核潜艇服役 穿了一身“怪衣服”外交部:CNN同情“10 28”涉男子被卡两栋大楼中动弹不得 消防员破男子加油站点烟引燃汽油 妻子瞬间变“澳洲癌症死亡率调查:农村地区高于城市澳大利亚人口出生率回升 总量破230德国惊现1.8吨二战炸弹 逾2万人撤俄罗斯将对中国过境游客实行72小时免叙利亚中部城市发生自杀式炸弹袭击 致俄将对20国过境游客实行72小时免签孙杨无证驾驶被杭州警方处行政拘留7天三大动力助反弹沥青变废为宝化身石墨烯黑科技助概念股OSCOO奥斯珂助力法国科麦思集团举安卓游戏机的未来 会好吗?合伙人之殇!竞争关键期,他竟这样拖垮《非玩不可》Vol.73-华丽空战 起航股份、贵之步、时代电影等18家公鑫光正、拜特科技、万力粘合等30家公关于北大,我们不仅讲专业,还讲传奇!飞新达定向增发3640万元获董事会批冯仑:底线决定成败中德宏泰定向增发500万元获董事会批喜宝动力定向增发472万元获股东大会盈谷股份定向增发22500万元获证监中央经济会议再“定调” 如何操作稳赚美国前女奥运冠军因热衷垃圾食品而患上2016年楼市将上演房价上涨诱惑Y-Combinator CEO的创老肯医疗定向增发4997万元获董事会为山姆波特点赞! 未婚妻早产悍将浴室王石向宝能系下战书:万科不欢迎!我不
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘