实例1

1.任务

创建基于数据库的“系统登录”界面

2.过程

创建Access数据库设计窗体编写代码

定义一个函数过程（这里仅仅是定义这样一个过程，后面的事件才是真真的调用这个过程并予以实现），在函数过程里面通过connectinstring来建立对数据库的连接，然后利用objrs获取用户登录信息，其中用了if嵌套来是实现登录过程中出现的各种情况的应对。（这里应该就是米老师常说的为人民服务的宗旨，这里我想起来了一句海芳师姐的话，让用户躺在向日葵中。）

3.经典的代码

可能这并不是多么多么经典，只是应用过程中会用到很多次。

Objcn.connetionstring=”provider=Microsoft.jet.oledb.4.0;”& “data source=” & app.path & “\数据库\实例1.mdb”

Objcn.open

或者是这个一个版本

Strcn=”provider=Microsoft.jet.oledb.4.0;”&”data source =”& app.path &”\数据库\实例1.mdb”

Objcn.connectionstring=strcn

Objcn.open

当然在之前还是要定义objcn为连接集的，这段代码说白了就是用来连接数据库用的。是直接可以拿来用的，可能要更改一下路径什么的。

当然建立了数据库的连接，最后还是要释放的。就有下面这段你死了都不会忘了的代码了。

Set objrs=nothing

Objcn.close

Set objcn=nothing 

可能大家有的顺序不一样，到目前为止我见过很多版本。还没有发现顺序对于运行有何影响。

实例2

1. 任务使用ADO实现对ODBC数据源的访问。（卡了？简单来说ODBC提供了对SQL语言的支持，用户可以直接将SQL语句送给ODBC。还能以统一的方式访问数据库。）

2. 过程

Set objcn=new connection

Objcn.open”DSN=实例 2 DSN” Domain name system ‘

这里的DSN ,中文域名系统一个DSN中至少应该包含如下一些内容：

◆关于数据库驱动程序的信息。

◆数据库存放位置。文件型数据库（如Access）的存放位置为数据库文件的路径；非文件型数据库（如SQL Server）的存放位置是指服务器的名称。

◆数据库名称。在ODBC数据源管理器中，所有的DSN名称是不能重复的。

实例 3

1. 任务

    使用 ADO Data 控件创建数据库连接

2. 过程

      第一步：ADO Data控件连接数据库

     第二