实例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控件连接数据库

第二步：文本框显示数据

Adodc1.caption="当前记录："& Adodc1.RecordSet.AbsolutePosition & "\" & Adodc1.Recordset.Recordcount

实例 4

1.任务

利用DataGrid 控件和记录集分页特性显示数据分页

2.过程

第一步：添加Microsoft DataGrid Control 6.0（OLEDB）部件

第二步：自定义过程用来显示当前记录页数据，并复制到记录集对象中，最后绑定DataGrid控件

第三步：连接数据库和记录集对象

出现的问题：对于实例4来说，其实我在实验过程中出现了很多问题。都是一些很小的细节，什么字母丢了，中英文切换错误。还是太粗心了。

这个例子跟前面几个例子，有很多的相似的地方。不同的是这里用了一个datacrid控件，用来分页显示。

实例5

1.任务

使用ADO Command对象实现数据库查询功能

2.过程

第一步；窗体加载时创建数据库连接和Command 对象

下面是建立参数查询的代码

Dim parm As New Parameter
set parm  =objcmd.createparameter("用户名"，advarchar,adparaminput,10)
objcmd.parameters.append parn
set parm =objcmd.createparameter("身份"，advarchar,10)
objcmd.parameters.append parm

第二步：执行查询结果

第三步：关闭数据库连接

实例5和实例4好像都是前面几个例子的综合，外加上几个很好用的控件来显示数据那种效果。Msflexgrid控件里面很多参数属性倒是挺新鲜的。（应该VB有接触，但是学的。。。）