转:VB6.0数据库访问技术与例程解析

转:VB6.0数据库访问技术与例程解析,第1张

概述    转:VB6.0数据库访问技术与例程解析    本文简要分析了VB6.0访问数据库的几种技术,并在此基础上总结出几个实用的数据库开发经验     引言   作为微软旗下一款优秀的RAD工具,VB在数据库应用开发方面的能力十分强大。微软设计了多种数据库访问方法,下面通过对VB访问数据库的多种技术进行深入剖析,并总结出实际开发中的几点经验。希望能够对那VB的初学者有所帮助。(注意,文中所有的描述

转:VB6.0数据库访问技术与例程解析

 本文简要分析了VB6.0访问数据库的几种技术,并在此基础上总结出几个实用的数据库开发经验

引言

  作为微软旗下一款优秀的RAD工具,VB在数据库应用开发方面的能力十分强大。微软设计了多种数据库访问方法,下面通过对VB访问数据库的多种技术进行深入剖析,并总结出实际开发中的几点经验。希望能够对那VB的初学者有所帮助。(注意,文中所有的描述均在windows 2000 professional和Visual Basic 6.0的环境下进行的)

  一. DAO、RDO、ODBC和ADO

  在VB的开发环境中,可以使用三种数据库访问方式,它们分别是:数据访问对象(DAO)、远程数据对象(RDO)和ADO对象模型。

  DAO:

  数据访问对象是用来显露了Microsoft Jet数据库引擎(最早是给Microsoft Access 所使用,现在已经支持其它数据库),并允许开发者通过ODBC直接连接到其他数据库一样,直接连接到 Access 表。DAO 最适用于单系统应用程序或在小范围本地分布使用。其内部已经对Jet数据库的访问进行了加速优化,而且其使用起来也是很方便的。所以如果数据库是Access数据库且是本地使用的话,建议使用这种访问方式。

  VB已经把DAO模型封装成了Data控件,分别设置相应的Databasename属性和RecordSource属性就可以将Data控件与数据库中的记录源连接起来了。以后就可以使用Data控件来对数据库进行 *** 作。

  RDO

  RDO(Remote Data Objects)远程数据对象是一个到ODBC的、面向对象的数据访问接口,它同易于使用的DAO style组合在一起,提供了一个接口,形式上展示出所有ODBC的底层功能和灵活性。尽管RDO在很好地访问Jet或ISAM数据库方面受到限制,而且它只能通过现存的ODBC驱动程序来访问关系数据库。但是,RDO已被证明是许多sql Server、Oracle 以及其他大型关系数据库开发者经常选用的最佳接口。RDO提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性,以及方法。

  和DAO一样,在VB中也把其封装为RDO控件了,其使用方法与DAO控件的使用方法完全一样。

  ODBC

  ODBC(Open Database Connectivity,开放数据库互连)是微软公司开放服务结构(WOSA,windows Open Services Architecture)中有关数据库的一个组成部分,它建立了一组规范,并提供了一组对数据库访问的标准API(应用程序编程接口)。这些API利用sql来完成其大部分任务。ODBC本身也提供了对sql语言的支持,用户可以直接将SQL语句送给ODBC。

  一个基于ODBC的应用程序对数据库的 *** 作不依赖任何DBMS,不直接与DBMS打交道,所有的数据库 *** 作由对应的DBMS的ODBC驱动程序完成。也就是说,不论是FoxPro、Access还是Oracle数据库,均可用ODBC API进行访问。由此可见,ODBC的最大优点是能以统一的方式处理所有的数据库。

  一个完整的ODBC由下列几个部件组成:

  1. 应用程序(Application)

  ODBC管理器(administrator)。该程序位于windows 95控制面板(Control Panel)的32位ODBC内,其主要任务是管理安装的ODBC驱动程序和管理数据源。

  驱动程序管理器(Driver Manager)。驱动程序管理器包含在ODBC32.DLL中,对用户是透明的。其任务是管理ODBC驱动程序,是ODBC中最重要的部件。

  2. ODBC API

  ODBC 驱动程序。是一些DLL,提供了ODBC和数据库之间的接口。

  数据源。数据源包含了数据库位置和数据库类型等信息,实际上是一种数据连接的抽象。

  ODBC连接目前仅仅限于关系型数据库,对于其他数据源比如EXCEL、文本文件都不能进行访问,而且有很多DBMS(数据库管理系统)都不能充分的支持其所有的功能。相比之下,olEDB可以存取任何形式的数据,所以其功能是相当的强大,它也指导了目前技术发展的方向。

  ADO

  ADO(ActiveX Data Object)是DAO/RDO的后继产物。ADO 2.0在功能上与RDO更相似,而且一般来说,在这两种模型之间有一种相似的映射关系。ADO"扩展"了DAO和 RDO 所使用的对象模型,这意味着它包含较少的对象、更多的属性、方法(和参数),以及事件。

  作为最新的数据库访问模式,ADO的使用也是简单易用,所以微软已经明确表示今后把重点放在ADO上,对DAO/RDO不再作升级,所以ADO已经成为了当前数据库开发的主流。

  ADO涉及的数据存储有DSN(数据源名称)、ODBC(开放式数据连接)以及olE DB三种方式。后面的例程将详细讲解这三种方式的具体访问实现。

  要使用ADO,必须清楚ADO的对象层次结构,其大体上分为以下7个对象层次:

  1、 Command 对象:包含关于某个命令,例如查询字符串、参数定义等的信息。Command 对象在功能上和 RDO的rdoquery 对象相似。

  2、 Connection 对象:包含关于某个数据提供程序的信息。Connection 对象在功能上和 RDO 的 rdoConnection 对象是相似的,并且包含了关于结构描述的信息。它还包含某些 RDOEnvironment 对象的功能,例如transaction 控件。

  3、 Error对象:包含数据提供程序出错时的扩展信息。Error 对象在功能上和 RDO 的rdoError 对象相似。

  4、 FIEld 对象:包含记录集中数据的某单个列的信息。FIEld 对象在功能上和 RDO的rdoColumn 对象相似。

  5、 Parameter 对象:包含参数化的Command对象的某单个参数的信息。该 Command对象有一个包含其所有Parameter 对象的 Parameters 集合。Parameter 对象在功能上和 RDO 的 rdoParameter 对象相似。

  6、 Property对象:包含某个 ADO 对象的提供程序定义的特征。没有任何等同于该对象的RDO,但DAO有一个相似的对象。

  7、Recordset对象:用来存储数据 *** 作返回的记录集。此对象和Connection对象是所有对象最重要的两个对象。

  当然,对于初级用户来说,我们只需要掌握其中的Connection对象和RecordSet对象就可以实现基本的数据库 *** 作,在后面的经验介绍里面我将给出详细的介绍。

二. 开发经验小结:

  前面总体上介绍了一下当前在VB平台下的数据库访问技术,这些技术也是当前数据库技术的主流。下面笔者结合近几年的开发经验,给出一些开发经验和小技巧,以供参考:

  经验一:如果数据量不大,而且要求开发周期短的情况,建议使用DAO+Access虽然DAO功能并不强大,但是其对Jet引擎进行了加速优化处理,所以这种搭配应该是比较好的选择。

  经验二:RDO当前已经用的很少了,一般用ADO来替代。

  经验三:(本经验很重要)使用ADO开发时,连接数据库的方式有三种(前面已经叙述了),其中DSN需要用户首先使用要将所要 *** 纵的数据库设置为数据库源并给其命名。方法是在控制面板->管理工具->数据源(ODBC)下面进行配置。比如设置的数据源名称为data,那么可以通过下面几行代码来连接数据库:

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'连接数据库

conn.Open "dsn=data"

'打开数据源(即选定 *** 作的数据对象)

rs.Open SQL语句,conn

  但是如果是使用ODBC和olEDB的方式进行连接,那么大家一定知道在连接字符串上那一长串的代码,不要说对于初学者,就是对于那些经验丰富的程序员来说,也很难记住这一串代码。那么如何可以记住这一串代码呢?其实,方法很简单,只要添加一个ADO Data控件,然后在其属性框中使用向导进行设置后,那么最后向导就会自动生成一段ConnectionString,只需要将这一行代码拷贝下来然后放到conn.open之后的连接字符串参数的位置上就可以了。这条经验希望读者能够记住,实际开发中很实用。

  经验四:前面讲到手动设置ODBC数据源,这里可以通过程序来进行动态设置。首先要清楚的是ODBC的详细信息全部存放在注册表的下述键值内:"HKEY_LOCAL_MACHINE/SOFTWARE/ODBC",通过调用Win32函数WriteProfileString来对相应的键值进行修改即可达到目的。

  经验五:通常将数据库的连接代码和资源释放代码放入各自特定的函数里面,因为一般大一点的程序里需要经常对这两个功能模块进行调用,这样做就可以提高效率,当然很多时候都需要写成连接池的形式。

  经验六:使用VB在sql中处理含单引号的字符串时,对字符串数据都用单引号引起来,如:

Select * from Mytable Where ID='FirstID'

  若其中的FirstID为First'ID,即中间多出一个单引号,则上述写法将导致错误,解决的办法是将字符串中的每一个单引号用两双引号替换,下面的函数StrTosql完成该功能,并用单引号将处理后的字符串引起来:

 Private Function StrTosql(ByVal strValue As String) As String

    StrTosql = "'" + Replace(strValue,"'","''") + "'"

 End Function

  在写sql时如有字符串数据,不管其中有没有单引号,都可以这样使用:

   strValue="First'ID"

   strsql="Select * from Mytable Where ID="+StrTosql(strValue)

三. 实例解析

  下面介绍一个实例,来消化以上的相关知识。这里我在一个程序界面下实现了DAO,ADO,ODBC,olEDB四种数据库访问方式。

程序代码分析:

'整个程序功能是选择不同的连接方式来进行显示工作,三种方式显示效果完全相同

'下面是主程序过程

Private Sub Command1_Click()

 Dim selitem As Integer

 '判断连接数据库的方式

 If Option1.Value = True Then

  selitem = 1

 Else

  If Option2.Value = True Then

   selitem = 2

  Else

   selitem = 3

  End If

 End If

 '选取不同的数据库连接方式

 Select Case selitem

 Case 1:

  '使用DAO的数据库连接方式

  Call ShowByDAO

 Case 2:

  '使用ADO的数据库连接方式

  Call ShowByADO

 Case 3:

  '使用ODBC的数据库连接方式

  Call ShowByODBC

 Case 4:

  '使用olEDB的数据库连接方式

  Call ShowByolEDB

 End Select

End Sub

Private Sub ShowByDAO()

 '使用DAO的数据库连接方式

 Dim db As Database

 Dim rs As Recordset

 Dim sqlstr$ '存放查询语句

 Set db = OpenDatabase(App.Path & "/db1.mdb")

 sqlstr = "select * from 成绩表"

 Set rs = db.OpenRecordset(sqlstr)

 '显示结果

 Call GrIDShow(rs)

End Sub

Sub ShowByADO()

 Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 '使用数据源来连接数据库

 conn.Open "dsn=data"

 rs.CursorType = adOpenKeyset

 rs.LockType = adLockOptimistic

 rs.Open "select * from 成绩表",conn

 Call GrIDShowOfADO(rs)

End Sub

Sub ShowByODBC()

 Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 '使用数据源来连接数据库

 conn.Open "ProvIDer=MSDAsql.1;Persist Security Info=False;Data Source=data"

 rs.Open "select * from 成绩表",conn

 '显示结果

 Call GrIDShowOfADO(rs)

End Sub

Sub ShowByolEDB()

 Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 '使用数据源来连接数据库

 conn.Open "ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source=" + App.Path & "/db1.mdb" + ";Persist Security Info=False"

 rs.Open "select * from 成绩表",conn

 '显示结果

 Call GrIDShowOfADO(rs)

End Sub

Sub GrIDShow(rs As Recordset)

 '对dao方式进行显示工作

 MSFlexGrID1.TextMatrix(0,0) = "姓名"

 MSFlexGrID1.TextMatrix(0,1) = "性别"

 MSFlexGrID1.TextMatrix(0,2) = "语文"

 MSFlexGrID1.TextMatrix(0,3) = "数学"

 MSFlexGrID1.TextMatrix(0,4) = "英语"

 rs.MoveLast

 MSFlexGrID1.Rows = rs.RecordCount + 1

 MSFlexGrID1.Cols = rs.FIElds.Count

 Dim i%

 i = 1

 rs.MoveFirst

 While (Not rs.EOF)

  MSFlexGrID1.TextMatrix(i,0) = rs.FIElds(0)

  MSFlexGrID1.TextMatrix(i,1) = rs.FIElds(1)

  MSFlexGrID1.TextMatrix(i,2) = rs.FIElds(2)

  MSFlexGrID1.TextMatrix(i,3) = rs.FIElds(3)

  MSFlexGrID1.TextMatrix(i,4) = rs.FIElds(4)

  rs.MoveNext

  i = i + 1

  'If (rs.EOF = True) Then

  ' Exit For

 Wend

End Sub

Sub GrIDShowOfADO(rs As ADODB.Recordset)

 '对ado方式进行显示工作

 MSFlexGrID1.TextMatrix(0,4) = "英语"

 '注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值

 rs.MoveLast

 MSFlexGrID1.Rows = rs.RecordCount + 1

 MSFlexGrID1.Cols = rs.FIElds.Count

 Dim i%

 i = 1

 rs.MoveFirst

 While (Not rs.EOF)

  MSFlexGrID1.TextMatrix(i,4) = rs.FIElds(4)

  rs.MoveNext

  i = i + 1

 Wend

End Sub

Private Sub Command2_Click()

End

End Sub

  上述代码已经在windows 2000 professional和Visual Basic 6.0的环境下调试成功。

  四.小结

  本文通过对数据库访问相关技术的分析与总结,提出若干有价值的经验。借鉴这些经验,会给开发带来一定的便利。

总结

以上是内存溢出为你收集整理的转:VB6.0数据库访问技术与例程解析全部内容,希望文章能够帮你解决转:VB6.0数据库访问技术与例程解析所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/langs/1294629.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-10
下一篇 2023-04-14

发表评论

登录后才能评论

评论列表(0条)

保存