End Sub 运行结果：
ADO数据控件和ADO对象模型都为我们提供了数据库访问的接口技术，使用ADO Data控件在建立连接、选择数据表时，不需要创建连接对象和记录集对象，ADO Data控件几乎封装了相应代码的所有功能，只需设置好与之相关的属性、方法和事件，操作简单，但是ADO Data控件灵活性较差，不利于对大型数据库访问，一个ADO Data控件只能在同一数据源上打开一个记录集，在一个应用中若涉及多个记录集，则需要建立多个ADO Data控件。使用ADO对象模型，通过定义对象、编写代码来实现数据库的访问，可以很好地控制各种操作，使其具备了更多的灵活性和更强大的功能，便于实现对象重用、封装等技术，也利于事件处理，提高数据操作效率，特别是对海量数据的处理。两种方法各有优点，在开发应用程序时，应根据数据库应用程序的特点来选择具体的访问方式。
附：ADO对象简介
ADO的对象模型，包括以下七个对象。
Connection.Command,Parameter,Recordset,Field,Property,Error.此外，还包括四个集合，Fields,Properties, Parameters, Errors.
这几个对象的功能如下：Connection对象提供与包含路径，口令和连接选项的数据源的链接；Command对象保存一个针对数据源的将被执行的命令，最常见的是SQL命令或存储过程；Recordset对象保存在记录集中执行查询参数的记录以及漫游记录的光标；Error对象包含关于数据访问期间可能发生错误的错误信息；Parameter对象存储由Command对象使用的单个参数；Field对象为记录集中包含的所有字段集合；Property对象是由Data Provider驱动程序返回的数据源的属性。
ADO的核心是Connection,Recordset,Command对象。这三个对象可独立使用，也可互相连接使用。而其他对象，如Error集合存储在Connection对象中，在使用这些对象前都必须先声明对象变量，然后用Set进行赋值，才可使用，在声明时还可以用WithEvents将事件也声明进来，使得ADO对象变得象控件那样易于使用。有两个对象中包含了事件，即Recordset对象和Connection对象。只要如Dim WithEvents rst As ADODB.Recordset这样声明后，就能在代码窗口的下拉表中找到该对象，真的和ADO控件一样易于使用，连事件也大致相同。 ---------------------------------- Connection对象
用于建立与数据源的连接（包括客户机/服务器结构的连接）。在大多数应用程序中最好把一个Connection对象保存为全局级或模块级，这样就不用每次执行一个操作时都去创建这个对象。 属性：
★ ConnectionString属性：连接数据源的字符串，包含了各种所需信息。如指定与1个ODBC数据源（DSN）为mine的连接，连接字符串可写为： Dim cn as ADODB.connection Set cn=New ADODB.connection
cn.ConnectionString=\
如果不使用ODBC数据源，则连接字符串需要按以下方式设置：
cn.ConnectionString=\
上面这个是连接到远程SQL Server的连接串，即依次说明OLE DB驱动，服务器名，用户名和密码及数据库名称。如：
cn.ConnectionString=”driver={SQL Server};server=www.ndlxn.com;uid=ndlxn;pwd=848484;Database=pubs”
ConnectionString用多项“设置项=值”的方式来设定与数据源的连接，每个项之间用分号隔开。对于连接字符串的写法，精确固定的语法是没有的。因为不同类型数据库，有各自的设置项。一个技巧是先在窗体上放一个Adodc控件，然后利用其ConnectionString设置时的对话框来建立好字串，再粘贴到代码中，最后将Adodc控件删除。不要以为这是很笨的方法哦，许多高手也采用它哩。
★ ConnectionTimeout属性：设置连接时的最长等待时间，缺省为15秒，超时还未连接成功的话，中止连接，并返回出错信息。
★Mode属性：指定了该connection对象的读写权限，该属性值为枚举变量ConnectionModeEnum中的一个，有adModeRead、adModeReadWrite等。到对象浏览器中去找。
★CursorLocation属性：选择不同的游标位置，只能在建立连接之前设置该属性，并建立连接才有效，对于1已经建立的连接，设置该属性对连接不会产生影响。该属性有以下常量：adUseNone——不使用游标服务；adUseClient——使用客户端游标；adUseServer——使用服务端游标。 ★ DefaultDatabase属性：该属性为connection对象指定1个缺省的数据库。
★ State属性：查看一个connection对象当前状态是已经建立还是关闭。只读。 ★ Version属性：返回ADO的版本号。
★ Attributes属性：设置事务的处理方式，可选值AdXactCommitRetaining通过自动调 CommitTrans 启动新事务。或AdXactAbortRetaining通过自动调用 RollbackTrans 启动新事务 。 ★ CommandTimrout属性：终止操作数据源的命令并返回一个错误的等待时间。 ★ Provider属性：返回连接的数据源（即数据提供者）的名字。
★ Errors属性：Error对象实际是一个与Connection平行的对象，也有一些如Description和Number等属性，但它的集合包含在Connection对象下，其中包含了全部错误对象，需要先声明一个ADODB.Error对象，然后用Set进行赋值，如
Dim cnerr As ADODB.Error Set cnerr = DataEnvironment1.Connection1.Errors.Item(0)。 方法：
★ Open方法：建立与数据源的物理连接。格式： connection.Open ConnectionString,UserID,Password,Options
注意：该方法是使Connection获得初始化的方法，只有使用了该方法，Connection对象才真正在内存中存在。 后面的参数都是可选参数，最简单如：cn.Open（cn是1个connection对象），但如果这样则需要预先设置好ConnectionString等参数。其中，connectionstring是前面提到的连接字符串，UserID是建立连接的用户的代号，Password是建立连接的用户的密码。该参数会覆盖掉在连接字符串中设置的密码；options提供了连接选择，可选值只有adAsyncConnect异步连接，缺省为-1同步连接。 ★Close方法：关闭1个数据连接对象，使该连接对象只留在本机内存中，可对其属性更改后再重新建立连接。（注：如果不是关闭对象，而是将对象从内存中清除，应使用 Set connection对象变量=Nothing.）.
★ 获取数据源上的有关信息：OpenSchema方法，该方法获取与数据源有关的信息，如获取数据源中所有表的名称等。格式：Set Recordset对象=cn.OpenSchema(查询类别，[明细条目])。两个参数都是常数值，其中，每个查询类别中包含多个明细条目，每个明细条目作为返回的Recordset的一个字段，可以省略第二个参数，这时返回指定类别下的所有明细条目的信息生成一个Recordset。例如类别为“表”adSchemaTables常数中包含了TABLE_NAME（表名称）和TABLE_TYPE（表类型）等多个明细项目常数，而主要应了解类别常数adSchema…以得到数据源某方面信息，可以查对象浏览器。举例如下（得到所有表名）： Dim rstSchema As ADODB.Recordset Private Sub Form_Load()
DataEnvironment1.Command1 '初始化数据环境
Set rstSchema = DataEnvironment1.Connection1.OpenSchema(adSchemaTables) Do While Not rstSchema.EOF '获取所有表名 List1.AddItem rstSchema.Fields(\rstSchema.MoveNext Loop
Set MSHFlexGrid1.DataSource = rstSchema '可看到更多信息。 End Sub
★ Execute方法：执行1个SQL查询，既可是选择查询，也可是动作查询。如： cn.Execute \姓名 like '嫖客店'\
但要注意：使用Connection对象的Execute方法返回的游标类型是最基本的只能读和只能向前移动的游标adOpenForwardOnly，因此，如果该方法执行一个选择查询返回一个记录集时特别要明白。 举一个完整的例子如下： Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset Private Sub Command2_Click() rst.MoveNext Print rst(\姓名\End Sub
Private Sub Form_Load() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset
cn.ConnectionString = \Info=False;Data Source=C:\\WINDOWS\\Desktop\\lxn.mdb\连接字符串 cn.Open 连接
cn.Execute \姓名 like '嫖客店'\动作查询 Set rst = cn.Execute(\选择查询，生成记录集 Do While Not rst.EOF List1.AddItem rst(\姓名\rst.MoveNext Loop End Sub
★ 事务处理方法：BeginTrans:开始1个事务；CommitTrans:提交事务，将事务中的操作写入数据源。 RollBackTrans:滚回事务，取消操作。当同时更新多个表时，为了保证数据一致性而必须使用事务，比如有两个表，一个是支出表，一个是余额表，当支出一项费用时，支出费用增加，余额减少，需要对这两个表同时更新，但如果不用事务，倘若在更新支出表后发生错误，则余额表没有更新，不合 要求。这时就要把它们封存装到一个事务里。确保多表操作的完整性。此外，也可以用它对同一个表的多步操作进行封装，使多步操作成为单个单元。一般地，我们在BeginTrans处加一条On Error Goto ErrNum的出错捕获语句，然后在错 误处理程序中使用RollBackTrans取消事务。形如： cn.BeginTrans on Error Goto ErrNum …更新表1 …更新表2 …
cn.CommitTrans Exit Sub ErrNum: cn.RollBackTrans msgbox 出错提示
事务可以嵌套，由begintrans方法返回1个长整数表示当前事务是第几层，如返回1为当前事务不包含在任何事务中。CommitTrans和RollBackTrans结束最近的BeginTrans打开的那个事务。在程序中用begintrans开始1个事务后，应使用committrans或rollbacktrans方法结束，如果不用，则在程序结束后事务全部滚回，也就是说，系统不会自动去提交任何事务。例： cn.BeginTrans rst.MoveNext
cn.Execute \嫖客店','aaa',0,'0','0',0,'0')\cn.CommitTrans
有两种情况需要说明一下：在事务中也可能出现问题，导致被迫放弃事务：一种情况是一个关健字段被锁定，不能进行写操作；另一种情况是字段值超出范围，如字段为Integer,但实际值大于32767，字段为Text，但值字串长超过32K等，这样会导致事务强迫放弃。 ----------------------------------------------- Command对象：
命令对象：可完成对数据库的定义，修改，数据的查询。
★ ActiveConnection属性：从属于哪一个connection对象。要用Set赋值，如：Set
cmd.ActiveConnection=cn.创建一个command对象时指明该对象从属于哪一个connection对象。如果事先没有建立Connection对象，则将该属性直接指定一个连接串，ADO将为这个Command对象创建新的隐含的Connection对象，并将该字符串作为ConnectionString自动建立起连接。可以为一个connection连接对象创建多个command命令,只需要将每个command命令对象的activeconnection属性都为该connection对象名，如： Dim cmd as ADODB.command Set cmd=New ADODB.command
Set cmd.ActiveConnection=cn (说明：cn是前面举例的connection对象)
★ CommandText属性：命令内容，为1条SQL选择或动作查询，或表名等。如： cmd.CommandText=\
★ CommandTimeout属性：等待命令执行完的最长时间，超时将中止该命令。如： cmd.CommandTimeout=20 （单位为秒。）
★ CommandType属性：command对象的类型，可选值有：adCmdText(SQL语句)， adCmdTable(表)，adCmdStoredProc(存储过程)缺省为adCmdUnknow未知命令类型。例： cmd.CommandText=\
cmd.CommandType=adCmdTable （是一张表）
★ Prepared属性：第1次执行时是否进行编译，以提高以后的执行速度。如：cmd.Prepared=True表示进行命令的预编译，提高以后的执行速度。
★ Execute方法：执行命令。有两种情况，如果命令会返回记录，如Select或干脆就是1个表名等，则要将返回记录(当作记录集)赋予1个Recordset对象，格式为Set Recordset对象=command对象.Execute()
如果命令不返回记录（如Update,Delete等），则直接用\对象.Execute\即可。
★ State属性：对象的当前状态，可能值有：adStateClosed对象已关闭；adStateOpen对象已打开；adStateConnecting对象正在连接；adStateExecuting正在执行命令；adStateFetching表明Recordset对象的行正在被取回。State属性实际是一个通用属性，因为在连接对象Connection，命令对象Command，记录集Recordset中都有这个属性。
★ CreateParameter方法和Parameters集合：创建1个新的Parameter对象，如果CommandText(命令)是带参数的SQL Server存储过程，可用此方法创建参数对象，格式：Set parameter对象= command对象.CreateParameter(对象名name，参数类型type，输入/输出参数direction，参数长度size，参数值value) 其中，Type指定对象值的数据类型如adInteger,adVariant等；Direction参数指定参数类型，可选值有adParamUnknown未知；adParamInput输入参数；adParamoutput输出参数；adParamInputOutput输入/输出参数；adParamReturnValue是一个返回值参数。Size参数指定对象值的最大长度。Value：对象的值。用CreateParameter方法仅在内存中创建参数对象，并不真正包含进Command对象中，要用命令对象中Parameters集合的Append方法添加上，才算真正建立。格式：Command对象.Parameters.Append Parameter对象变量。
我们通常在打开SQL Server上带参数的存储过程时使用此方法传送所需参数，例如： Dim cn as ADODB.Connection