分享

vfp中的数据查询

 happyngkmw 2012-09-08

vfp中的数据查询

时间:2007-05-09 本站
-

Visual FoxPro 语言体系包括三个部分:一是传统的Xbase 语言体系,二是结构化查询语言(SQL),三是面向对象化(OOP)程序设计语言。笔者认为,Visual FoxPro 这三部分语言都具有数据查询的功能。可能对于Xbase语言和SQL语言具有数据查询功能大家是没有异议的,但Visual FoxPro中的OOP语言应不会有数据查询功能,因为一般认为在Visual FoxPro中数据处理是非面向对象的,就此可以得出Visual FoxPro中的OOP语言应不具备数据查询功能。其实则不然,当我们在Visual FoxPro中通过OOP语言导入当前流行的RDO或ADO数据处理模型时,我们就会得出不同的答案。

本文想集中精力讨论Visual FoxPro 中有关Xbase语言和SQL语言的数据查询方法。在我们开始之前,先让我们分清Xbase语言和SQL语言在数据查询中扮演的不同角色。一句话:SQL语言侧重用于批量数据查询及复杂的关系型操作。

由于篇幅关系我们不可能在此详细讲述SELECT—SQL 语句的所有内容。读者有兴趣可以参看本站推出的《结构化的查询语言(SQL)》。

作为优秀的数据处理语言(DML),Xbase 中许多命令、函数有数据查询功能,我们可以讲Browse、List这样的命令也能查找数据,但这在数据库系统开发中有多大作用?所以我们不讨论它们。

首先,我们通过以下命令营建一个Demo环境。要求:查找COL1=9023时COL2的值。

CLOSE ALL
CREATE TABLE ABC (COL1 I, COL2 I)
FOR I=1 TO 10000?
INSERT INTO ABC (COL1, COL2) VALUES (I, RAND()*100000)
ENDFOR
INDEX ON COL1 TAG COL1
USE

使用LOCATE 命令

USE ABC
LOCATE FOR COL1=9023
IIF(FOUND(),MESSAGEBOX("COL2="+STR(COL2)),MESSAGEBOX("没有找到"))
USE

笔者认为:LOCATE命令速度很慢,就上例来说记录指针运动了9022次,如果我有1亿条记录呢?为了解决这类问题,FoxPro提出了RUSHMORE技术用于优化FOR 子句,但其本质仍是索引技术。说句实话初、中级用户一般是没有能力优化FOR 子句的,我们建议大家使用一些高速查询语句,如:SEEK命令,SEEK()、LOOKUP()、INDEXSEEK()函数。在我们讨论这些高速查询语句前,我还想讲一下CONTINUE命令与LOCATE命令的联合使用。在SELECT-SQL没有被引入Xbase语言体系前,我们只能用LOCATE+CONTINUE进行批量数据查询,我想现在大家一定都使用SELECT-SQL进行批量数据检索了,如果这样您会发现以前的多行代码被一句SELECT-SQL命令取代。

使用SEEK命令

USE ABC
SEEK 9023 ORDER TAG COL1
IIF(FOUND(),MESSAGEBOX("COL2="+STR(COL2)),MESSAGEBOX("没有找到"))
USE

使用SEEK()函数

USE ABC
IIF(SEEK(9023,"ABC","COL1"),MESSAGEBOX("COL2="+STR(COL2)),;
MESSAGEBOX("没有找到"))
USE

使用LOOKUP()函数

USE ABC
IIF(EMPTY(LOOKUP(COL2,9023,COL1,COL1)),MESSAGEBOX("没有找到"),;
MESSAGEBOX("COL2="+STR(COL2)))
USE

使用INDEXSEEK()函数

USE ABC
IIF(INDEXSEEK(9023,.T.,"ABC","COL1"),MESSAGEBOX("COL2="+STR(COL2)),;
MESSAGEBOX("没有找到"))
USE

以上高速查询语句有着共同的特点,就是必须使用索引,高速查询之所以能称为高速其原因就是使用了索引技术。我们在查看命令手册时,会发现“不能采用RUSHMORE 优化技术”的字句。您也许要问:RUSHMORE技术可以提高查询速度,这些语句不能享用它,速度何来?我们在前文已经指出RUSHMORE技术的本质是索引,是对那些不享用索引技术的条件语句进行索引优化,使其能利用索引技术带来的高效率。有既然高速查询语句天生建立在索引技术之上,他们就没有必要进行RUSHMORE优化。

关于以上语句的具体用法由于篇幅关系不能展开,这里就简要介绍一下INDEXSEEK()函数吧!

INDEXSEEK()是Visual FoxPro 6.0中新添的函数,属于Xbase语言范畴。笔者以为用好它,就可以忘记其他高速查询语句了。

INDEXSEEK(eExpression,1MovePointer,cTableAlias,cTagName)

  1. 参数eExpression表示要搜索索引关键字表达式。

  2. 参数1MovePointer=.t.时,表示找到有关记录后指针移动到匹配记录,没有找到不移动指针,这与Seek()函数相似。1MovePointer=.f.时,表示即使找到有关记录也不移动记录指针,这样就可以大大提高查询效率,当然如果要求得到目标行有关字段的信息,这个好处就不可享用了。

  3. 参数cTableAlias表示表的别名。

  4. 参数cTagName表示索引标示。

使用SQL-Select语句

SELECT COL2 FROM ABC WHERE COL1=19023 INTO ARRAY SZ
USE IN ABC
IIF(_TALLY<>0,MESSAGEBOX("COL2="+STR(SZ)),MESSAGEBOX("没有找到"))

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多