vb6.0使用ado对象连接数据库.txt

VB6相关

DbIP

'也可以使用这段简易代码 CnStr = "Provider=SQLOLEDB;Data Source=" & DbIp & ";DATABASE=" & DbName & ";UID=" & DbUser & ";pwd=" & DbPw

Conn.Open cnstr '使用 Connection 集合的 Open 方法 与数据库建立连接

2、Recordset集合的常用方法

==========================

'1)打开一个表

'------------

Sql = "select * from 表名" 'SQL查询语句

Set rs = New ADODB.Recordset '新建一个实例

rs.Open Sql, conn '使用 Open 方法打开数据库中的一个表

'注意，这种打开方式只能使用 rs.MoveNext （即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容

'

'rs.Open Sql, conn，1 '虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。

'

'以下参数代表了这个可选值的含义

'0 = adOpenForwardOnly （默认值）打开仅向前类型游标。 

'1 = adOpenKeyset 打开键集类型游标。 

'2 = adOpenDynamic 打开动态类型游标。 

'3 = adOpenStatic 打开静态类型游标。

'

'虽然使用以上方法可以可以实现行坐标（游标）的任意移动，但是仍然无法写入数据。因此需要进一步的对Open 方法进行完善

'rs.Open Sql, conn, 1, 3 '后面的3是确定读写权限的

'以下参数代表了这个可选值的含义

'1 = adLockReadOnly （默认值）只读 — 不能改变数据。 

'2 = adLockPessimistic 保守式锁定（逐个） — 在编辑时立即锁定数据源的记录。 

'3 = adLockOptimistic 开放式锁定（逐个） — 只在调用 Update 方法时才锁定记录。 




'4 = adLockBatchOptimistic 开放式批更新 — 用于批更新模式（与立即更新模式相对）。

'

'2)读写数据

'----------

'增加一行记录并对新记录的内容进行修改并保存可以如下写法

rs.AddNew '增加一行记录

rs("...")="..." '数据读写操作

...

rs.UpDate '保存写入资料，如果使用只读权限，则不能使用这个方法

rs.Close '这个方法用来关闭你所代开的表，如果不使用这个方法也可以，但是数据库仍然认为你在对标进行锁定，可造成数据库负担过重

2、对数据进行筛选和排序

=======================

Sql = "select * from 表名" 'SQL查询语句

'以上为打开一个表的所有内容

Sql = "select top 50 * from 表名" 'SQL查询语句

'以上为只打开前50行的记录

Sql = "select top 50 列名1,列名2,列名5 from 表名" 'SQL查询语句

'以上为只打开前50行的记录，并且只打开第1、2、5列数据

Sql = "select * from 表名 where 列名1='" & 字段 & "'" 'SQL查询语句

'以上为一个简单的筛选，表示打开的内容必须符合[列名1='" & 字段 & "'"]的内容

'需要注意的是，数据库列的类型必须匹配，比如字符串类型需要以单引号括起

'而数字类型则不能用单引号括起

'另外SQL语句还支持通配符，例如 列名1 like '%" & 字段 & "%'" 表示包含[字段]

'在表达式中的匹配 

'? _（下划线） 任何单一字符 

'* or % 零个或多个字符 

'# 任何单一数字（0 — 9） 

'[charlist] 任何在字符表中的单一字符 

'[!charlist] 任何不在字符表中的单一字符 

'注：根据数据库的不同?、_和*、%的应用有所差别，比如SQL只使用% 和 _ 分别代表多个字符和单一字符

Sql = "select * from 表名 where 列名1='" & 字段 & "' ORDER BY 字段1 ASC" '对查询结果进行升序排列

Sql = "select * from 表名 where 

列名1='" & 字段 & "' ORDER BY 字段1 DESC" '对查询结果进行降序排列

Sql = "select * from 表名 where 列名1='" & 字段 & "' ORDER BY 字段1 DESC, ORDER BY 字段2 DESC" '对查询结果进行多维降序排列（速度奇慢，不推荐使用）




3、Recordset集合的常用属性方法

==============================

rs.BOF '是否游标在最上边

rs.EOF '是否游标在最下边

rs.RecordCount '记录集的行数（如果使用像前类型的游标，可能返回不准确）

rs.AddNew '新建一行记录

rs.Update '保存当前行被修改的记录

rs.Delete '删除当前行

rs.Close '关闭记录集

4、Fields集合的一些属性的解释

=============================

'以下为简写，正常情况需要rs.Fileds.。。。但是Fields属于Recordset的一个默认集合，因此可以省略

rs() '括号内可以是列名也可以是列的序号例如：rs("姓名")、rs(3) 都是是可以的

rs(3).Name '返回列名

rs(3).Type '返回列的类型

rs(3).Value '返回当前行的值

rs.Fields.Count '返回列数





5/////////////
VB访问SQL Server数据库技术全揭密
 本文讨论了Visual Basic应用程序访问SQL Server数据库的几种常用的方法，分别说明了每种方法的内部机理并给出了每种方法的一个简单的实例，最后比较了每种方法性能和优缺点。
 一、引言 
SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL Enterprise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。 

Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server相结合，VB能够提供一个高性能的客户机—服务器方案。 

二、VB访问SQL Server数据的常用方法 
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即： 

①数据访问对象/Jet 

②为ODBC API编程 

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程 

④RDO 远程数据对象(RemoteData Objects) 

⑤ADO 数据对象(Active Data Objects) 

1、数据访问对象/Jet 

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。 

注释：Form Declarations 

Dim mydb As Database 

Dim mydynaset As Dynaset オ 

Private Sub Form_Load() 

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales") 

Set mydynaset = mydb CreateDynaset("Select*from Customers") オ 

End Sub 




上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。 

2、利用ODBC API编程 

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。 

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。 

Global giHEnv As Long 

Global giHDB As Long 

Global giHStmt As Long 

Dim myResult As integer 

Dim myConnection As Srting 

Dim myBuff As String*256 

Dim myBufflen As Integer 

If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then 

MsgBox"Allocation couldn注释：t happen!" 

End If 

If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then 

MsgBox "SQL Server couldn注释：t connect!" 

End If 

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales" 

myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),

myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQU IE D) 

myResult=SQLAllocStmt(giHDS,giHStmt) 

myResult=SQLFreeStmt(giHStmt,SQL_COLSE) 

rsSQL="Select * from Customers Where City = "Hunan"" 

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL)) 

3、使用VBSQL对DB库API编程 

DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件： 




VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力 

VBSQL.BI：包括所有的常量和变量说明 

VBSQL.HLP：Windows帮助文件，使用VBSQL的指南 

使用VBSQL时，必须将VBSQL.BI加入到Visual Basic工程文件中，并确保VB程序运行时有VBSQL.VBX文件。 

一般的DB库API编程的过程是这样的：先通过调用SqlInit对DB库进行初始化，再调用SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并登录到服务器的通用例程。

Private Sub InitializeApplication() 

DBLIB_VERSION=SqlInit() 

If DBLIB_VERSION=""Then 

MsgBox"Could not initialize DBLIB!Exit application.", MB_ICONEXCLAMATION 

End If 

End Sub 

Private Function LoginToServer() As integer 

loginToServer=SUCCEED 

Status%=SqlSetloginTime%(loginTimeOut) 

If giSqlConn<>0 Then 

SqlClose(giSqlConn) 注释：关闭已打开的连接 

giSqlConn=SqlOpenConnection(gsServerName, gsLoginID, gsPassword, ProgramName, ProgramName) 

If giSqlConn<>0 Then 

liresuit=SqlUse(giSqlConn,"Sales") 

Else 

LogintoServer=FAIL 

End If 

End Function 4、RDO 远程数据对象(RemoteData Objects) 

要讨论RDO,就必然要谈到DAO。RDO是从DAO派生出来的,但两者很大的不同在于其数据库模式。DAO是针对[记录(Records)]和[字段( Fields)],而RDO是作为[行(Rows)]和[列(Columns)]来处理。也就是说DAO 是ISAM模式,RDO是关系模式。此外DAO是访问Access的Jet引擎(Jet是ISAM)的接口，而RDO则是访问ODBC的接口。 

可见,RDO是综合了DAO/Jet、VBSQL/DBLib以及ODBC的优点的对象(Object)。需要强调的是，RDO是包裹着ODBC API的一层薄薄的外壳, 被设计成在后台(服务器端)有数据库存在的前提下运行，同时也是针对SQL Server和Oracle而特别设计的。 

RDO的优势在于它完全被集成在VB之中。此外，直接访问SQL Server存储过程、完全支持T-SQL、T-SQL调试集成在开发环境中、Visual Database Tools的集成化等，也是RDO的长处。 

在RDO的对象和集合中，有很多对数据库的状态和设定进行操作的属性(Property)，以及对数据库进行操作的方法(Method)。利用这些，从RDO2.0起就可以开发事件驱动的数据库应用程序。 

RDO对象与VB中其他对象的概念相同。与VB用的ActiveX控件(以往称为Custom Control或OCX、VBX)相似的是,RDO也带有属性和方法；但同Spread、InputMan等普遍应用的ActiveX控件不同的是，RDO没有自己的用户界面，因而可以和VB标准的Timer控件归为同一类。当然也可以将RDO看作调用ODBC API函数，进而对后台数据库操作加以控制的对象。在RDO的属性和方法中，包含了对单个的ODBC API函数以及一连串API函数的调用。 

①rdoEngine对象 

最初调用RDO对象以及RDC(远程数据控件)时，自动生成rdoEngine对象的附带事件(incident)。rdoEngine用于对RDO全局属性的参数、选项进行设置，是在RDO的阶层结构内处于最上层的对象，包含了所有的其他对象。 

rdoEngine对象与DAO/Jet不同，虽然被多个应用程序共享，但体现rdoEngine对象的设定值的属性却并不共用，而是在各自的应用程序的程序界面中对其分别加以设定。这些设定值对其他使用RDO以及RDC的应用程序没有任何影响。rdoEngine不是集合的要素，而是重新定义的对象，rdoEngine对象不能被追加作成对象属性的初值。 

②rdoEnvironment对象 

RDO对象在自动创建rdoEngine对象时，将rdoEnviroment对象的初始值生成并保存为rdoEnviroments(0)。一般情况下，应用程序中不必追加rdoEnvironment对象，大多只需对已有的rdoEnviroments(0)进行操作就可以了。只有在支持一个以上事务(Transaction)，需要将用户名和口令信息分别处理的情况下，利用rdoCreateEnvironment方法将特定的用户名和口令值做成新的rdoEnvironment对象。在这个方法中可以指定固有名、用户名和口令，如果所指定的值与rdoEnvironments集合的已经存在的成员名称相同，会产生错误。新建的rdoEnvironment对象自动追加在rdoEnvironments集合的最后。调rdoCreateEnvironment方法时，其name参数可以是长度为0的文字列，这时新的rdoEnvironment对象将不会被追加在rdoEnvironments集合之中。 

③rdoConnection对象