在VB中快速访问SQL Server数据库的方法

维普资讯

２００２年８月　电　脑　学　习　第４期　

在ＶＢ中快速访问ＳＱＬ　Ｓｅｒｖｅｒ数据库的方法　

杜红　

摘　要　针对ＳＱＬ　Ｓｅｒｖｅｒ系统所建立的数据库。分别就ＤＡＯ、ＲＤＯ　ＡＤＯ不同机制下的数据源访问列举出采用数　

据绑定控件和适应动态编程的非绑定控件的应用。着重对ＡＤＯ方法进行了详解。　

关键词　

ＶＢ　ＡＤＯ　ＳＱＬ　Ｓｅｒｖｅｒ　数据源　ＯＤＢＣ　

Ｔｈｅ　Ｍｅｔｈｏｄｓ　ｏｆ　Ｆａｓｔ　Ａｃｃｅｓｓｉｎｇ　ＳＱＬ　Ｓｅｒｖｅｒ　Ｄａｔａ　Ｂａｓｅ　ｉｎ　Ｖｉｓｕａｌ　Ｂａｓｉｃ　

Ｄｕ　Ｈｏｎｇ　

Ａｂｓｔｒａｃｔ　

Ａｉｍｉｎｇ　ａｔ　ｔｈｅ　ｄａｔａｂａｓｅ　ｃｒｅａｔｅｄ　ｂｙ　ＳＱＬ　Ｓｅｒｖｅｒ，ａｎｄ　ｂａｓｅｄ　ｏｎ　ｓｕｃｈ　ｄｉｆｅｅｎｔｒ　ｍｅｃｈａｎｉｓｍ　ａｓ　ＤＡＯ、ＲＤＯ　ａｎｄ　ＡＤＯ。　

ｈｅ　ｐａｐｅｒ　ｐｒｔｅｓｅｎｔｓ　ｔｈｅ　ａｐｐｈｃａｔｉｏｎ　ａｂｏｕｔ　ｕｓｉｎｇ　ｄａｔａ　ｂｉｎｄｉｎｇ　ｃｏｎｔｒｏｌ　ａｎｄ　ｎｏｎ－ｄａｔａ—ｂｉｎｄｉｎｇ　ｃｏｎｔｒｏｌ　ｆｉｔ　ｆｏｒ　ｄｙｎａｍｉｃ　

ｐｒｏｇｒａｍｍｉｎｇ．Ａｔ　ｌａｓｔ　ｔｈｅ　ｐａｐｅｒ　ｅｘｐｌａｉｎｓ　ｉｔ　ｉｎ　ｄｅｔａｉｌ．　

Ｋｅｙｗｏｒｄ　

ＶＢ　Ａｃｔｉｖｅ　Ｄａｔａ　Ｏｂｊｃｔｅｓ　ＳＱＬ　Ｓｅｒｖｅｒ　Ｄａｔａ　Ｓｏｕｒｃｅ　Ｏｐｅｎ　Ｄａｔａ　Ｂａｓｅ　Ｃｏｎｎｅｃｔｉｏｎ　

为了简洁说明在ＶＢ应用程序中快速访问ＳＱＬ　Ｓｅｒｖｅｒ　

的方法，本文以ＳＱＬ　Ｓｅｒｖｅｒ系统自带的数据库Ｐｕｂｓ为例，　

统一实现以下任务：　

一

先建立ＯＤＢＣ数据源：（１）在ＳＱＬ　Ｓｅｒｖｅｒ　７．０中添加　

个用户；添加一个用户登录名：ＵｓｅｒＯ，口令为：ｋｉｔｔｙ；（２）　

（ＤＳＮ），设定ＤＳＮ名称为ＭｙＰｕｂｓ。是对数据库Ｐｕｂｓ的连　

接。　

在Ｗｉｎｄｏｗｓ控制面板下用ＯＤＢＣ建立一个数据源名　

（１）建立ＳＱＬ　Ｓｅｒｖｅｒ数据源的连接方式；　

（２）执行ＳＱＬ语句关于表（Ａｕｔｈｏｒｓ）所有记录的查　

询，产生记录集；　

（３）应用ＶＢ在表单中设置网格控件对象或一组文本　

１．１使用Ｄａｔａ控件的应用程序　

Ｄａｔａ控件是一个绑定控制接口，缺省时通过ＯＤＢＣ驱　

框控件对象，把查询结果集的各个不同的记录和域值进行　

输出。　

动管理器和ＳＱＬ　Ｓｅｒｖｅｒ驱动把Ｊｅｔ数据库引擎同ＳＱＬ　Ｓｅｒｖ—　

ｅｒ连接起来。（如图１。）　

１　ＳＱＬ　Ｓｅｒｖｅｒ数据库的快速访问方法　

ＳＱＬ　Ｓｅｒｖｅｒ　

图１　ＳＱＬ　Ｓｅｒｖｅｒ数据库访问方法和结构图　

Ｎｅｘｔ　

起着举足轻重的作用。我们可以利用ｍｉｃｒｏｓｏｆｔ公司提供的　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

可编程对象，轻松开发出具有语音朗读及词典功能的应用　

软件，有兴趣的读者不妨一试。　

２结束语　

参考文献　

Ｆｒａｎｃｅｓｃｏ　Ｂａｌｅｎａ著．翔实翻译组译．ＶＢ６编程技术大全．　

没有组件编程，就没有ＶＢ的今天，组件编程在ＶＢ中　

北京：机械工业出版社出版，２０００．１　

修改稿收到日期：２００２－０３—１２　

・　

杜红湖北省江汉石油学院电信系副教授（荆州４３４０２３）主要从事数据库技术应用研究。　

３７　・　

维普资讯

（１）对Ｄａｔａ控件埘象Ｄａｍｌ改变属性：　

Ｄａｔａ１．ＣｏＮＮｅｃｔ：　ＯＤＢＣ；ＵＩＤ＝Ｕｓｅｒ０；ＰＷＤ＝ｋｉｔｔｙ；ＤＡＴＡＢＡＳＥ＝Ｐｕｂｓ　

Ｄａｔａ１．ＤａｔａｂａｓｅＮａｍｅ＝”ＭｙＰｕｂｓ”　

Ｄａｔａ１．ＲｅｃｏｒｄＳｏｉｌｒｃｅ＝　ｓｅｌｅｃｔ　ｆｒｏｍ　ａｕｔｈｏｒｓ”　

（２）显示数据侔Ｐｕｂｓ中表Ａｕ　ｒｓ中的所有记录内容　

①选择ＶＢ的ＰｒｏｊｅｃｌＡ：ｏｍｐｏｎｅｎｔ／Ｍｉｃｒｏｓｏｆｔ　Ｄａｔａ　Ｂｏｕｎｄ　

Ｇｒｉｄ　Ｃｏｎｔｒｏｌ　５．０（ＳＰ３１，添加到控件ｊ二具箱中成为ＤＢＧｒｉｄ控　

件；　

②修改ＤＢＧｒｉｄ控什对象ＤＢＧｒｉｄ１的属性ＤＢＧｒｉｄ１．　

ＤａｔａＳｏｕｒｃｅ为ｄａｔａｌ；　

（３）执行查询，显示结果。　

１．２使用ＤＡＯ和Ｊｅｔ的应用程序　

Ｄａｔａ控件是一个绑定控制接口，缺省时自动通过　

ＯＤＢＣ驱动管理器和ＳＱＬ　Ｓｅｒｖｅｒ驱动把Ｊｅｔ数据库引擎同　

ＳＱＬ　Ｓｅｒｖｅｒ连接起来。如果不使用Ｄａｔａ控件，而是在代码　

中实现数据绑定和创建数据对象，那么对于ＤＡＯ对象要进　

行人工注册ＤＡＯ类然后应用软件就可以自如地应用ＤＡＯ　

的各种函数如：ＣｒｅａｔｅＤａｔａＢａｓｅ，ＯｐｅｎＲｅｃｏｒｄｓｅｔ，Ｃｒｅ—　

ａｔｅＴａｂｌｅＤｅｆ，ＣｒｅａｔｅＱｕｅｒｙＤｅｆ进行数据库的操作，其结构如　

图１。　

（１）注册Ｊｅｔ　Ｄａｔａ　Ａｃｃｅｓｓ　Ｏｂｊｅｃｔｓ（ＤＡＯ）　

Ｖ￣ｒｏｊｅｃｔ／Ｒｅｆｅｒｅｎｃｅ／Ｍｉｃｒｏｓｏｆｔ　ＤＡＯ　３．６０￣ｅｃｔ　Ｌｉｂｒａｒｙ：　

（２）在表单中创建数据库各个不同记录域的一组浏览：　

ｔｅｘｔｌ（Ｏ），ｔｅｘｔｌ（１），ｔｅｘｔＩ（２），ｔｅｘｔＩ（３），以及控制命令按钮控件：　

（３）定义ＤａｔａＢａｓｅ和Ｒｅｃｏｒｄｓｅｔ对象，建立对数据源的　

连接　

Ｄｉｍ　ｄｂ　Ａｓ　Ｄａｔａｂａｓｅ　

Ｄｉｍ　ｒｓ　Ａｓ　Ｒｅｃｏｒｄｓｅｔ　

Ｓｅｔ　ｄｂ＝ＯｐｅＤａｔａｂａｓｅ　ＣＭｙＰｕｂｓ＇　，Ｆａｌｅｓ，Ｆａｌｓｅ，＂ＯＤＢＣ；Ｕｉｄ＝Ｕｓｅｒ０；Ｐｗｄ＝　

ｋｉｔｔｙ；Ｄａｔａｂａｓｅ＝Ｐｕｂｓ　＇；　

（４）执行查询操作并显示记录内容　

Ｓｅｔ　ｒｓ＝ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（　ｓｅｌｅｃｔ　ｆｒｏｍ　ａｕｔｈｏｒｓｎ，ｄｂＯｐｅｎＳｎａｐｓｈｏｔ１　

Ｔｅｘｔ１（０）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｉｄ　

Ｔｅｘｔｌ（１）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｌｎａｎｌｅ　

Ｔｅｘｔｌ（２）．Ｔｅｘｔ＝ｒｓｌａｕ　ｆｎａｍｅ　

Ｔｅｘｔ１（３）．Ｔｅｘｔ：ｒｓ！ｐｈｏｎｅ　

Ｔｅｘｔｌ（４）．…１ｅｘｔ＝ｒｓ！ａｄｄｒｅｓｓ；　

（５）根据对ｒｓ执行ｍｏｖｅ方法操作，可进行不同记录　

内容的显示，若对ｒｓ记录集执行不同的ＳＱＬ语句，则可得　

到满足不　条件的记录集；　

（６）执行查询，显示结果。　

１．３使『｝Ｊ　ＲｅｍｏｔｅＤａｔａ控仆的应用程序　

ＲｅｍｏｔｅＤａｔａ控件同Ｄａｔａ控件一样是一个绑定控制接　

口，通过ＯＤＢＣ驱动管理器和ＳＱＬ　Ｓｅｒｖｅｒ驱动直接与ＳＱＬ　

Ｓｅｒｖｅｒ相连，而不需Ｊｅｔ引擎。与Ｄａｔａ控件比较，它更适合于　

对ＯＤＢＣ数据源的拧制，是专为ＯＤＢＣ数据源而设计，且适　

合于ＳＱＬ　Ｓｅｒｖｅｒ，其结构见图１。　

（１）添加控件，选择ＶＢ＇ＰｒｏｊｃｅｔＡ２ｏｍｐｏｎｅｎｔｓ＇Ｍｉｃｒｏｓｏｆｉ　

・　３８　・　

ＲｅｍｏｔｅＤａｔａ　Ｃｏｎｔｒｏｌ　６．０：　

（２）添加控制类，选择ＶＢ￣ＰｒｏｊｅｃＶＲｅｆｅｒｅｆｌｅｅｓＺＭｉｃｒＵｓｏｆｉ　

Ｒｅｍｏｔｅ　Ｄａｔａ　Ｏｂｊｅｃｔ　２．０１　

（３）设置ＲｅｍｏｔｅＤａｔａ控件对象ＭＳＲＤＣ１的属性　

ＭＳＲＤＣ　１．Ｃｏｎｎｅｃｔ＝”ＵｌＤ＝ＵｓｅｒＯ；Ｐｗｄ＝ｋｉｔｔｙ；Ｄａｔａｂａｓｅ＝ｐｕｂｓ”　

ＭＳＲＤＣ　１．ＤａｔａＳｏｍ＇ｃｅＮａｍｅ＝”ＭｙＰｕｂｓ　

ＭＳＲＤＣ１．ｓｑｌ：”ｓｅｌｅｃｔ　ｆｒｏｍ　ａｕｔｈｏｒｓ　

ＭＳＲＤＣ１．Ｒｅｆｒｅｓｈ：　

（４）修改ＤＢＧｒｉｄ控件的对象ＤＢＧｒｉｄ１的属性　

①选择ｖＢ的ＰｒｏｊｃｅｌＡＳｏｍｐｏｉｌｅｌｌｔ／Ｍｉｃｒｏｓｏｆｉ　ＤａｔａＢｏｕｎｄ　

Ｇｒｉｄ　Ｃｏｎｔｒｏｌ　５．０（ＳＰ３），添加到控件工具箱中成为ＤＢＧｒｉｄ控　

件；　

②修改ＤＢＧｒｉｄ控件对象ＤＢＧｒｉｄｌ件的属性ＤＢＧｒｉｄ１．　

Ｄａｔａｓｅｕｌ＇ｃｅ为ＭＳＲＤＣ１：　

（５）显示执行ＳＱＬ语句后的查询结果。　

１．４使用ＲＤＯ的应用程序　

ＲＤＯ（Ｒｅｍｏｔｅ　Ｄａｔａ　Ｏｂｊｅｃｔ）是通过ＯＤＢＣ驱动管理器和　

ＳＱＬ　Ｓｅｒｖｅｒ驱动直接与ＳＱＬ　Ｓｅｒｖｅｒ相连。其结构如图１。　

（１）注册ＲＤＯ：Ｖ￣ｚＰｒｏｊｅｃｔ．＇Ｅｏｎｆｅｒｅｎｃｅｓ／Ｍｉｃｒｏｓｏｆｉ　Ｒｃ＿Ｉ　

ｍｏｔｅ　Ｄａａｔ　Ｏｂｊｃｅｔｓ　２．０１　

（２）在表单中创建数据库的浏览控件ｔｅｘｔ１（０），ｔｅｘｔｌ（１），　

ｔｅｘｔ１（２），ｔｅｘｔｌ（３），控制命令按钮控件；　

（３）定义ｒｄｏＣｏｎｎｅｃｔｉｏｎ，ｒｄｏＲｅｓｕｈｓｅｔ对象，建立对数据　

源的连接　

Ｄｉｍ　ｄｂ　Ａｓ　Ｎｅｗ　ｒｄｏＣｏｎｎｅｃｔｉｏｎ　

Ｄｉｍ　ｒｓ　Ａｓ　ｒｄｏＲｅｓｕｈｓｅｔ　

Ｄｉｍ　ｐｓ　Ａｓ　ｒｄｏＱｕｅｒｙ　

ｄｂ．Ｃｏｎｎｅｃｔ＝”ＤＳＮ＝ＭｙＰｕｂｓ；ｕｉｄ＝ＵｓｅｒＯ；ｐｗｄ＝ｋｉｔｔｙ；”　

ｄｂ．ＥｓｔａｂｌｉｓｈＣｏｎｎｅｃｔｉｏｎ：　

（４）执行查询操作并显示记录内容　

ｅＳｔ　ｐｓ＝ｄｂ．ＣｒｅａｔｅＱｕｅｒｙ（”ｓｉｍｐｌｅ”．”ｓｅｌｅｃｔ　ｆｒｏｍ　ａｕｔｈｏｒｓ＂）　

ｅＳｔ　ｒｓ＝ｐｓ．ＯｐｅｎＲｅｓｕｌｔｓｅｔ（ｒｄＯｐｅｎＳｔａｔｉｃ）　

Ｔｅｘｔ１（０）．Ｔｅｘｔ＝ｒｓ！ａｕ—ｉｄ　

Ｔｅｘｔｌ（１）．Ｔｅｘｔ＝ｒｓ￣ａｕ＿ｌｉｌａｎｌｅ　

Ｔｅｘｔ１（２）．Ｔｅｘｔ：ｒｓ！ａｕ＿ｆｎａｍｅ　

Ｔｅｘｔ１（３）．Ｔｅｘｔ：ｒｓ！ｐｈｏｎｅ　

Ｔｅｘｔ１（４）．Ｔｅｘｔ：ｒｓ！ａｄｄｒｅｓｓ　

（５）根据对ＭＳ，执行ｍｏｖｅ方法操作，可进行不问记录　

内容的显示，若对ｒｓ记录集执行不同的ＳＱＬ语句，则可得　

到满足不同条件的记录集。　

（６）执行查询，显示结果。　

２　ＡＤＯ访问ＳＱＬ　Ｓｅｒｖｅｒ的快速方法　

ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ），是Ｍｉｃｒｏｓｏｆｔ的最新编程　

接口，它包括ＤＡＯ，ＲＤＯ和ＶＢＳＱＬ的所有功能，并成为取代　

前面介绍的在ＶＢ中快速访问ＳＱＬ　Ｓｅｒｖｅｒ数据库的统一的　

编程接口。　

２．１使用ＡＤＯ　Ｄａｔａ绑定控件的应用程序　

维普资讯

ＡＤＯ　Ｄａｔａ控件同Ｄａｔａ控件一样是一个绑定控制接　

口，通过ＯＬＥ　ＤＢ驱动管理器和ＳＱＬ　Ｓｅｒｖｅｒ驱动直接与　

ＳＱＬ　Ｓｅｒｖｅｒ相连。ＡＤＯ和ＯＬＥ　ＤＢ是Ｍｉｃｒｏｓｏｆｔ推出的一致　

数据访问接口，如图１。　

（１）添加控件，选择ＶＢ／ＰｒｏｊｅｃｌＡ￣ｏｍｐｏｎｅｎｔｓ／Ｍｉｃｍｓｏｆｉ　

ＡＤＯ　Ｄａｔａ　Ｃｏｎｔｒｏｌ　６．０（ＯＬＥＤＢ１；　

（２）添加一个与ＡＤＯ兼容的数据网格控件，选择ＶＩＩ／　

ＰｒｏｊｅｃＶＥｏｍｐｏｎｅｎｅｔｓＺＭｉｃｍｓｏｆｉ　ＤａｔａＧｒｉｄ　Ｃｏｎｔｒｏｌ　６．Ｏ（ＯＬＥ　ＤＢ１　

方法一：　

Ａｄｅｄｃ　１．ＣｏｎｎｅｃｔｉｏｎＳｔｉｒｎｇ　”ＤＳＮ＝ＭｙＰｕｂｓ；Ｕｉｄ＝ＵｓｅｒＯ；Ｐｗｄ＝ｋｉｔｔｙ　

Ａｄｅｄｃ　１．ＣｏｍｍａｎｄＴｙｐｅ：ａｄＣｍｄＴａｂｌｅ　

Ａｄｅｄｃ１．ＲｅｃｏｒｄＳｏｕｒｃｅ＝”ａｕｔｈｏｒｓ　：　

方法二：　

Ａｄｅｄｃ　１．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ　”ＤＳＮ＝ＭｙＰｕｂｓ；Ｕｉｄ＝Ｕｓｅｒ０；Ｐｗｄ＝ｋｉｔｔｙ　

Ａｄｅｄｃ　１．ＣｏｍｍａｎｄＴｙｐｅ＝ａｄＣｍｄＴｅｘｔ　

Ａｄｅｄｃ　１．ＲｅｃｏｒｄＳｏｕｒｃｅ＝”Ｓｅｌｅｃｔ｝ｆｒｏｍ　ａｕｔｈｏｒｓ　；　

（３）设定数据控件ＤａｔａＧｒｉｄ对象ＤａｔａＧｆｉｄ１的属性；　

ＤａｍＧｄｄ１．ＤａｔａＳｏｕｒｃｅ为ａｄｏｄｃ１；　

（４）执行查询，显示结果。　

２．２应用ＡＤＯ非绑定控件的应用程序　

在应用程序的开发过程中，往往需要动态与数据源的　

连接，或者脱离于界面操作的数据源操作，就产生了在程序　

的执行过程中进行查询，修改等其它功能的需求。　

（１）添加控件，选择Ｖ￣ｒｏｊｅｃｔＡ￣ｏｍｐｏｎｅｎｔｓ，Ｍｉｃｒｏｓｏｆｔ　

ＡＤＯ　Ｄａｔａ　Ｃｏｎｔｒｏｌ　６．０（ＯＬＥＤＢ１；　

（２）在程序中声明三类对象　

ｄｉｍ　ａｎ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ　

ｄｉｍ　ｃｍｄ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｃｏｍｍａｎｄ　

ｄｉｍ　１＂８　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ：　

（３）连接数据源　

ａｎ．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ　ＤＳＮ＝ＭｙＰｕｂｓ；Ｕｉｄ＝Ｕｓｅｒ０；Ｐｗｄ＝ｋｉｔｔｙ　

ａｎ．Ｏｐｅｎ；　

（４）执行一个基本的查询命令，生成一个记录集　

ｃｍｄ．ＣｏｍｍａｎｄＴｙｐｅ＝ａｄＣｍｄＴｅｘｔ　

ｃｍｄ．ＡｃｔｉｖｅＣｏｎｎｅｃｔｉｏｎ＝ａｌｌ　

ｃｍｄ．ＣｏｍｍａｎｄＴｅｘｔ＝”ｓｅｌｅｃｔ　ｆｒｏｍ　ａｕｔｈｏｒｓ”　

ｅＳｔ　ｒｓ＝ｃｍｄ．Ｅｘｅｃｕｔｅ：　

（５）将记录集合的第一个记录的内容在非绑定控件上　

显示　

Ｔｅｘｔ　１（Ｏ）．Ｔｅｘｔ＝ｒｓ！ａｕ—ｉｄ　

Ｔｅｘｔｌ　ｒ１）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｌｎａｍｅ　

Ｔｅｘｔ　１（２）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｆｎａｍｅ　

Ｔｅｘｔ　１（３）．Ｔｅｘｔ＝ｒｓ！ｐｈｏｎｅ　

Ｔｅｘｔ　１（４）．Ｔｅｘｔ＝ｒｓ！ａｄｄｒｅｓｓ；　

（６）可通过对ｒｓ的Ｍｏｖｅ方法（如：ＭｏｖｅＦｉｒｓｔ，Ｍｏｖｅ．－　

Ｌａｓｔ，ＭｏｖｅＰｒｅｖ，ＭｏｖｅＮｅｘｔ）执行，实现记录移动，可得到对　

不同记录的操作；　

（７）执行查询，显示结果。　

３非绑定控件显示数据库不同记录的控制方法　

在ＳＱＬ　Ｓｅｒｖｅｒ数据库的访问过程中，对任一表中内容　

的显示，可采用绑定控件或非绑定控件。绑定控件的内容随　

记录的游标导航而动态变化；而非绑定控件在对表中的不　

同记录显示时要自我设置导航控制——记录移动控制，针　

对前面阐述的三种非绑定控件应用数据库中的两个查询移　

动命令按钮，完成前一个记录，后一个记录的查询，可参考　

以下代码。　

３．１下一个记录内容显示　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＮｅｘｔＲｅｃｏ

＿

Ｃｌｉｃｋ（）　

移动显示后一个记录的内容　

ｒ８．ＭｏｖｅＮｅ】（ｔ　

Ｉｆ　Ｎｏｔ　１＂８．ＥＯＦ（）Ｔｈｅｎ　

Ｔｅｘｔ　１（Ｏ）．Ｔｅｘｔ＝ｒｓｌａｕ—ｉｄ　

Ｔｅｘｔ１（１）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｌｎａｍｅ　

Ｔｅｘｔ１（２）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｆｎａｍｅ　

Ｔｅｘｔ　ｌ（３）．Ｔｅｘｔ＝ｒｓ！ｐｈｏｎｅ　

Ｔｅｘｔｌ（４）．Ｔｅｘｔ＝ｒｓ！ａｄｄｒｅｓｓ　

Ｅｎｄ　Ｉｆ　

ｃｍｄＮｅｘｔＲｅｃｏ．Ｅｎａｂｌｅｄ＝Ｎｏｔ　ｒｓ．Ｅ０Ｆ　

Ｅｎｄ　Ｓｕｂ　

３．２上一个记录内容显示　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＰｒｅｖＲｅｃｏ

＿

Ｃｌｉｃｋ（）　

移动显示前一个记录的内容　

１＂８．ＭｏｖｅＰｒｅｖｉｏｕｓ　

ｆＩ　Ｎｏｔ　ｒｓ．ＢＯＦ０　Ｔｈｅｎ　

Ｔｅｘｔ　１（Ｏ）．Ｔｅｘｔ＝ｒｓｉａｕ—ｉｄ　

Ｔｅｘｔ１（１）．Ｔｅｘｔ＝ｒｓ！ａｕ＿ｌｎａｍｅ　

Ｔｅｘｔ　１（２）．Ｔｅｘｔ：ｒｓ！ａｕ＿ｆｎａｍｅ　

Ｔｅｘｔｌ（３）．Ｔｅｘｔ＝ｒｓ！ｐｈｏｎｅ　

Ｔｅｘｔｌ（４）．Ｔｅｘｔ＝ｒｓ！ａｄｄｒｅｓｓ　

Ｅｎｄ　Ｉｆ　

ｃｍｄＰｒｅｖＲｅｅ０．Ｅｎａｂｌｄｅ＝Ｎｏｔ　ｒｓ．ＢＯＦ　

Ｅｎｄ　Ｓｕｂ　

参考文献　

１网络数据库实现ＳＱＬ　Ｓｅｒｖｅｒ　６．０．Ｍｉｃｒｏｓｏｆｔ著．科学出版　

社，１９９７．３　

２　Ｄ．Ｓｏｌｏｍｏｎ．Ｒ．Ｒａｎｋｉｎｓ著．Ｍｉｃｒｏｓｏｆｔ　ＳＱＬ　Ｓｅｒｖｅｒ　６．５开发　

指南．北京：清华大学出版社，１９９８．４　

３刘炳文著．Ｖｉｓｕａｌ　Ｂａｓｉｃ程序设计一一数据库篇．北京：　

人民邮电出版社，１９９９．６　

・３９・