Question

vb ado控件的功能应用

Answer 1

计算机与数字工程 第32卷
浅析VB中ADO控件的使用‘
李澎‘ 刘建
(1 南方航空深圳公司信息工程部深圳518052)
(2 武汉证券有限责任公司深圳营业部深圳518027)
摘 要
VB数据库编程中采用ADO控件可有多种方式，考虑到软件安装的方便和灵活，本文建议ADO控件采用Microsoft
数据连接(MDL)文件访问数据库的方式。用户自行配置MDL文件中的数据库连接字符串，就可以灵活地使软件与不
同服务器的数据库进行连接
关键词：ADO Mic煳ft数据连接(MDL)文件 数据库连接字符串
中图法分类号：TP311
Analysis about Use of VB ADO Control
Li Peng‘ Liujian2
(1 Information Engineering Detmrtlnent，Shenzhen Branch，China Southern Airlines Co．，Ltd Shemhen 518052)
(2 Shenzhen Dep，Wuhan Securities Co．，Ltd Shenzhen 518027)
Ah蛐愀t：There are a few modes in VB database program~ ng．For flexible installation of the software，a n3ode，access to
database by using Microsoft Data Link(MDL)file is suggested．The user can arroJlge the Da tabase Link String in the MDL file
hint,elf tO make his software linking flexibly with diferent d~abases in diferent servers．
Key words：ADO，Micrt~ft Data Link (MDL)file，Database Link String．
aa胬number：TP311
数据库编程中有多种方式访问数据库，常见
的有a)BC、RDO、DAo、ADO等，而ADO以其快
捷、高效和稳定的特性成为业界最为流行的方式。
在使用ADO方式访问数据库时候也有多种方式
可供选择，VB提供了一个名称为ADODC的控件
以方便编程者采用ADO方式。下面将一一介绍
各种方式的使用和特点，并推荐一种适合软件打
包和异地安装的方式。
1 静态配置ADO控件
静态配置ADo控件是大多数VB教材中普
遍介绍的一种ADO方式，是在程序设计中对引
用的ADO控件(ADODC)进行数据库连接配置，
其主要操作如下：
A、从工具箱中选取A赋控件拖人到一
个FORM 中，采用默认名Adodcl，如果工具箱没
有ADODC控件，则需通过菜单Prciect l Compo．
· 收到本文时间：2003年4月l8日
nents来选取Microsoft ADO Data Control 6．0一
项；
B、在Adodc1．ConnectionString的属性设置
中，点击目按钮进入图1如下：
雹墨匝雹墨●■●■■—■罄碡≥
Gen dI
图1
C、在图1中选择“Use Connectin String”，点
击圆按钮进入到图2如下：

第32卷(2OO4)第1期 计算机与数字工程 21
提供程序IW．1~- I赢攮 l所有
[==E噩四 ：：
一— ． — 一— — — — — — . — — ．． ． ． ．． — ．． ． ． ． 一— — —— — — ．：}
! l ——! 一一_f i
．．． ．． ． ．． ． 。 ． ． ．．． ． ．．． ．． ．． - ． -．． ．．- -—． ．．． ．-— —． —— ·· --· —， --- --- ·- -- ·- —·- -. . . ， 一.
J
图2
D、在图2中提供了多种ADO方式可连接的
数据，本文以SQL SERVER数据库为实例，故选
取了‘‘Microsoft oLE DB Provider for SQL Server”
一项，然后进入下一步图3如下：
图3
E、在图3中按要求输入各类设置的内容即
完成了ADo和数据库的连接，此时可发现在图1
中的Connection String 为“Provider ：
SQL0LEDB．1：Persist Security Info=False；User
ID ：Sa：Initial Catalog=mastersystem；Data Source
= 10．254．0．41”：
F、在FORM 中引入DataGrid控件，将该控
件的DataSource属性设置为Adodclo此后，就可
以在DataGrid控件中执行操作以访问所连接数
据库的数据。
该方式配置ADO控件，优点是简单、直接而
快捷，缺点是环境适应性差，当软件所连接的数据
库服务器配置发生变化，最简单的莫如服务器IP
地址发生变化，则此时必须打开程序设计，重新一
一配置各个ADO控件中的数据库连接字符串，
更新数据库服务器的IP地址，最后必须重新编译
成可执行文件。显然，该方式影响了软件安装和
发布的灵活性。
2 动态生成ADO配置
该方式主要是指在程序中生成ADO控件的
数据库连接配置，具体如下：
A、从工具箱中选取 )0DC控件和DataGrid
控件拖入到一个 中，采用默认名Adodcl
和DataGridl，将DataGridl的DataSource属性设
置为Adodcl，此时运行程序DataGridl当没有任何
数据显示；
B、在Form—Load事件处理中，输入以下代
码：
Private Sub Form — Load()
Adodc1． ConnectionString = “Provider ：
SQLOLEDB．1；Persist Security Irgo=False；User
ID ： Sa；Initial CataJog= mastersystem；Da ta
So urce=10．254．0．41’’
Adodc1．Recordso urce： “select*from Bu—
MenDaiMa’’
Adodc1．Refresh
End Sub
此时再运行程序，可发现DataGridl中已有数
据显示。
从上看出，为Adodc1．ConnectionString赋的
值是一个既定字符串，该字符串既可以在程序代
码中直接指定，也可以从一个文本文件中得到。
该文本文件可作为软件的配置文件与软件一起运
行，对于不同的数据库服务器，只需要更改配置文
件中的数据库连接字符串即可；从而使软件的发
布安装变得相对灵活、方便；但该种方式却造成了
软件设计时的不便，这是因为动态生成ADO控
件的配置，势必造成相关控件如DataGrid等也要
在程序中动态生成配置，例如要调整DataGridl的
列宽、将列标题由默认的英文字段名转为相应的
中文等等，最终使程序设计丧失了可视化的巨大
优点。
3 使用Microsoft数据连接(MDL)
文件
上面第一种方式方便了程序设计，特别是在
一一__ ～ 一_弼 ..’

浅析VB中ADO控件的使用 第32卷
界面设计方面实现了可视化、但却不利于软件的
安装和发布；第二种方式有利于软件的安装和发
布，尤其是在数据库服务器配置发生变化的情况
下显得更为灵活和简单，但却不利于程序的可视
化设计。而ADO采用MDL文件访问数据库的
方式则综合了这两种方式的优点，既方便了程序
设计，也方便了软件在不同环境下的安装。MDL
文件是由WINDOWS提供的一种系统文件，并非
vB所附带，因此其它编程工具如VC等也可以使
用该文件。具体操作如下：
A、创建MDL文件
新建一个文本文件，将其命名为LinkStr．
切)L(即将该文件的后缀由T)(T改为UDL，而非
MDL!)，再用WI )oWS的默认的方式打开，如
图4。
提供程序崔接 I高级 I所有
指定下列设置以连长兰I ODBC数据
I．指定披据海：
鲤 塑
j
2．输入登录履务墨的信息
用户名称《 ： 广——一. . 。
厂空白密码(丘) 厂允许保存密码(玉)
3．输入薹使用的初始目录《I)：
-二J
测试连接(I)：
[圈 I一 ．．．
图4
从图4可看出，MDL文件默认的是连接
数据源，因此点击“提供程序”属性页，返回
如图2的界面，选取“Microsoft OLE DB Provider
for sQL Server”一项，然后进入下一步如图3，接
下来的参数输入与静态配置的完全一样。MDL
文件创建完毕后，用记事本打开可看到如下的文
本内容：
[oledb]. .. ... .. .. ... . ①
；Everything after this line is an OLE DB init—
stlqng . .. ... .. .. ... ... ②
Provider=SQLOLEDB．1；Persist Security
Info=False；User ID=sa；Initial
Catalog = mastersystem；Data Source= 10．
在LinkStr：UDL文件中共有三句话，顺序不
能颠倒，同时①和②中的任何字符都不得更改，否
则将不会是一个合法的MDL文件；
B、与静态配置时相同，在为Adodc1．Connec．
tionString的属性设置中，出现如图1的界面，但
此时需要在“Use Data．Lil1l【File”选择LinkStr．
UDL文件，而其它参数设置都与静态配置时相
同。
很明显，当数据库服务器环境发生变化，例如
lP地址发生变化，则直接进行(A)步骤，重新配置
MDL文件里的连接字符串即可。由于多个
AIX)DC控件均可使用一个MDL文件，所以只需
重新配置一次该文件就可以使软件自动重新连接
到另一个数据库服务器上。
当然，在实际的数据库编程中，程序中并不完
全采用 控件进行ADO方式的数据库访
问，但大都可以采用MDL文件的拓展方式来实
现数据库连接的目的，下面举例说明两种非
控件的情况：
3．1采用AD0DB．Connection方式
采用ADODB．Connection方式来连接数据库
也是一种通用的方式，由于是在软件开始运行时
即创建连接，所以连接代码一般放在公用模块
Module中，结合MDL文件后的主要代码如下：
GlobalAdoCnAsADODB．Connection
Global G
— Co nnstrFor Co mmon
Public Function DbConect()As Integer
Open“C-"＼linkstr．udl”For Input As #1
‘需要连续读到第三行，才是连接字符串
Line Input#1，G一( ns廿F( bm啪n ‘过滤第①
句
Line Input#1，G—ConnstrForCommon ‘过滤第②
句
Line Input#1，G— ConnstrForC0mmon .. . ④
OnErrorGoTo conrl—
err
Set AdoCn=New ADODB．Co n ection
AdoCn．Open G — ConnstrFor Common ‘进行数
据库连接
On Error Go To 0
On ErrorResumeNext
DbCortnect：0
Close#l
ExitFunction
conn
—
exr：
MsgBoxCStr(Err．Number)十”：”十Er．~ ption

12 计算机科学中的几个泛系关系(三)——操作系统中的泛系关系 第32卷
图7
图中只画出了众多支持文件系统中的三个，
它们是EXT2，MS—DOS，HPFS，这三个文件系
统和虚拟文件系统、，】 构成的形影关系如图7
所示。对于应用程序来说，它们所能看到的或者
说所能感受到的只是虚拟文件系统VFS，他们用
不着去考虑各个文件系统之间的差别。也就是说
各个不同的文件系统在他们看来都是一样的，并
没有什么差别，都是通过虚拟文件系统来操作想
读写的文件。通过虚拟文件系统VFS屏蔽了各
个具体的文件系统之间的差别，具体的文件系统
对应用程序员来说是透明的，这样最大的好处是
C C C岭C岭C岭(岭C岭
(上接第22页)
DhConnect=1
End Function
第④句获得数据库连接字符串。显然，该方
式与动态配置 )ODC控件类似。下一个步骤则
是在Form—Load事件处理中调用DbC~nnect()
函数，这里不再赘述。
3．2数据环境(DataEnvironment)
一般情况下，DataEnvironment生成后需要建
立Connection来连接数据库，进入Connection的
属性设置后，出现如图2的界面，其操作和参数输
入与静态设置一样。很明显，由此方式建立的
DataEnvironment在安装时也不具有灵活性，因此
同样需要引入MDL文件。具体操作即程序设计
时，在Connection的ConnectionSource属性中手
工输入以下语句：
File Name=C：＼linkstr．udl
这样，就将数据环境MDL文件结合起来，接
下来就可以继续在Connection下建立Command。
顺便提一下，一般使用数据环境下Command的
多为数据报表DataReport，这是因为DataReport
中的数据来源大都固定不变，而Command中存
放SQL语句的属性CommandText重新设置的过
程略为复杂，适合在程序设计时就固定好，但如果
非要在程序运行后灵活设置CommandText，可借
鉴以下代码：
可以减少应用程序员的负担，他再也不需要记忆
各个复杂的文件系统的操作了，所有这些只需要
记忆虚拟文件系统的操作。
如图7所示，虚拟文件系统、，】 可以看作是
三个文件(实际上是所有文件系统)的一个影系
统，应用程序员是通过操纵所有文件系统的影子
VFS来操纵这些具体的文件系统的。
以上分析的这些思想在计算机系统中会经常
遇到，深刻理解并把握这些思想对于我们作系统
设计时或认识一个复杂系统时将会有很大的帮
助。
参考文献
[1]李永礼魏永明，“计算机科学中的几个泛系关系”，计
算机与数字工程，2(1998)1—5
[2]李永礼杨宝国，“计算机科学中的几个泛系关系
(二)”，计算机与数字工程，1(2001)13一l8
3]李永礼，吴学谋《用泛系观看人工智能中的几个基本
问题》，兰州大学学报，1994，22(4)：97～102
DataEnvironment1．Commands(”Command2”)．CornmandText=”
SHAPE{select*fromBuMenEhiam}As
Command2” .. .. ........... ⑤
If DataEnvironment1．r~ ommand2．State< > at]State-
Closed Then ............... ⑥
DataEnvironment1．rs( )mand2．Close
End If
DataEnvimnment1．C．ommmad2 ........ ⑦
DataReport1．Refresh............ ⑧
DataReport1．Show vbModal
DataEnviromnent[．rsCommand2．Close..... ⑨
第⑤ 句重新设置CAmamandText，也可以看作是重新
构造Comm~d，而⑥至⑨句读者一般均可看懂，此处不再
解释。
4 结束语
从上面的介绍和分析中可以看出，采用数据
连接文件应当成为ADO方式编制成套软件的常
用选择。笔者开发的一套《飞行情况统计系统》现
已在多家航空公司使用。由于采用了数据连接文
件来进行数据库连接，因此在程序设计和软件异
地安装中获得了相当的灵便。上述代码及操作在
wIN2o0O和SQL Server2000中经过检验，能够
持续、稳定地运行。
参考文献
[1]Microsoft Corporation著．Visual Basic 6．0中文版程序
员指南．北京希望电脑公司，1998
； 毽菠l -。