在 VB 中 引 用 .dbf 及 索 引 文 件

原创 2001年05月26日 14:35:00
在 VB 中 引 用 .dbf 及 索 引 文 件
http://www.tongyi.net  作者:羊黎蓉    点击:431  



  如何用FOX以外的编程语言来取得.dbf数据库的记录值和引用.idx和.cdx索引一直都是程序员讨论的话题之一。现有一任务是在一个触摸屏系统中加入一个用户查询水费界面。每个用户可随时查询到自己的水费记录。我使用VB5.0,希望打开NetWare系统下营业收费系统的七个.dbf数据表并进行查询。每个数据表有将近10万条记录。通过10M集线器交换数据,查询的字段都不是唯一的。显然这样大的数据量,又是通过10M网络传递,如果VB使用SQL方式查询,则最少要2分钟时间才能得到答复。让一个用户在机器旁边等2分钟是不现实的。于是想利用FoxPro自身的.idx或.cdx索引文件来查找。 
  编程可用两种方式实现。一种是直接在VB中调用,另一种使用VB中的shell函数调用FoxPro的exe程序。 
  方法一、直接在VB中调用.dbf文件 
  一、.在FoxPro数据库的所在目录下建立一个与FoxPro数据库文件名相同的.inf文本文件 
  步骤:1.创建文本文件*.inf,与数据表同名。 
  2.在文本文件的第一行,输入[FoxPro 2.5];如果指定的是FoxPro 2.0索引,则输入[FoxPro 2.0],其余以此类推。 
  3.依次输入各指定索引文件名形式IDXn=*.idx或CDXn=*.cdx。其中n为数字,依次表示第1个IDX索引文件,第2个IDX索引文件。或第1个CDX索引文件,第2个……以此类推。 
  注意:如果不能将.inf文件与数据库存储在同一目录下,或为了维护方便而希望将所有文件存储在一个共享点。可采用创建Windows注册表项的方法,指向存储.inf的文件路径。(详见VB5的联机手册) 
  二、编写程序 
  用OPENDATABASE方法直接打开外部FoxPro表。 
  主要语句如下: 
  dim db as database 
  dim tb as recordset 
  ′打开外部数据库 
  set db=opendatabase(“c:/fox/”,false,false,”foxpro 2.5;”)′注意FoxPro与2.5之间必须有空格 
  set tb=db.openrecordset(“abc”) 
  ′调用索引 
  tb.index=“abc1#idx”′注意索引名为“索引文件名#后缀名” 
  tb.seek“=”,“111-111”′搜索唯一值为“111-111”的记录 
  方法二、用shell()函数调用VF的idx文件 
  用VB接受用户命令,然后调用VF的.prg编译的.exe文件,按用户要求在数据库中查询,将查询结果放置在一个.TXT文件中。VB从.TXT文件取数显示,再次将查询结果传递给VF的.prg编译的.exe文件,查询取数结果。具体编程从略,这里要着重讨论shell()函数的特性:shell函数是以异步方式来执行其它程序的。也就是说,用shell启动的程序可能还没有完成执行过程,就已经执行到shell函数之后的语句。这种执行方式打乱了程序固有的顺序执行方式,如果不加注意,程序的运行将产生混乱。 
  如果语句如下 
  …… 
  shell(c:/file1.exe)′调用file.exe文件,并把结果放置在X1.txt中 
  open c:/x1.txt for output as#1′打开X1.TXT文件,取查询结果。 
  …… 
  按一般执行方式,上述语句应能正确执行。然而实际运行时,即使语句全部正确,也会弹出错误信息框:x1.txt文件不存在。原因就在于VB在执行shell()语句时,file1.exe文件还未执行完,就继续下一行语句:打开file1文件创建的x1.txt;所以出现错误。 
  经过多次实验,我最后采用了VB工具条中的timer控件来完成时间等待,程序编程通过。 
  …… 
  shell(c:/file1.exe) 
  ‘运行计时器 
  timer1.enabled=true 
  …… 
  sub timer1_timer() 
  if dir(“c:/x1.txt”)<>””then 
  open c:/x1.txt for output as#1 
  …… 
  timer1.enabled=false 
  end sub 实际运行速度很快,2~3秒内完成查询操作。 

在 VB 中 引 用 .dbf 及 索 引 文 件

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:26
  • 136

mysql之索引(基本概念)

一、索引是什么? 比如我们要在字典中找某一字,如何才能快速找到呢?那就是通过字典的目录。 对数据库来说,索引的作用就是给‘数据’加目录。     二、索引算法 设有N条随...
  • qq_15766181
  • qq_15766181
  • 2015年08月09日 23:42
  • 307

千千静听引索

`
  • testreg3
  • testreg3
  • 2013年11月12日 14:38
  • 438

web学习引索

php html css5 js
  • sxlgkxk
  • sxlgkxk
  • 2017年09月15日 16:48
  • 77

索 引-复合索引

mysql一次查询能用多个索引吗? MySQL查询不使用索引汇总 + 如何优化sql语句     答:只能使用1个,所以要合理的使用组合索引,而不是单列索引。   那么如何合理规划组合索引...
  • cbjcry
  • cbjcry
  • 2017年04月13日 10:34
  • 131

搜* 索*引*擎

http://www.gfsoso.com/
  • ruanjianruanjianruan
  • ruanjianruanjianruan
  • 2014年08月07日 22:30
  • 666

MySQL引索原理

为什么需要索引(Why is it needed)? 当数据保存在磁盘类存储介质上时,它是作为数据块存放。这些数据块是被当作一个整体来访问的,这样可以保证操作的原子性。硬盘数据块存储结构类似于链表,...
  • m0_37659184
  • m0_37659184
  • 2017年08月07日 11:20
  • 108

深入理解hadoop之下载cloudera+创建第一个maven项目

要点1:创建第一个maven项目的时候,前后试了五六次,结果我什么都没干,最后一次成功了,前几次都是报maven插件什么缺少依赖什么的,导致创建报错,创建出来的项目的文件夹结构不对;是cloudera...
  • xerjava
  • xerjava
  • 2016年09月29日 21:31
  • 295

Vb中使用报表控件(二)

在VB中使用报表控件(一)中我们已经了解了如何使用报表控件,前提是我们需要有一个报表存在。下面我们介绍如何创建报表。        安装完报表控件之后运行报表设计器,打开文件--新建向导,选择创建数...
  • kanglix1an
  • kanglix1an
  • 2012年08月28日 11:10
  • 2681

访问父类中的方法,用父类名作引索,还是子类名作引索???

用子类作为引索 在main中只创建子类的实例,用父类作引索结果如下:(只改变了C类) 关于静态的呢 在main中实例化子类B后,又实例化父类A...
  • qq_39632912
  • qq_39632912
  • 2018年01月07日 21:08
  • 13
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在 VB 中 引 用 .dbf 及 索 引 文 件
举报原因:
原因补充:

(最多只允许输入30个字)