目录：

上篇文章，为大家讲解了数据库的接口，大家对ADO也有了较为基础的了解，这篇文章主要解决大家对ADO的用处的疑惑。VB为用户提供了很多访问数据库的方式：

【方法一】使用ADO对象，通过编写代码访问数据库

【方法二】使用ADO  Data控件和数据环境设计器创建数据库连接，不编写代码访问数据库

一、首先我还是以Access数据库为例，介绍ADO对象访问数据库。

在ADO众多的对象中，经常使用的对象有Connection对象、Command对象和Recordset对象等。

ADO部分对象模型如图：

Connection对象——连接数据源对象

ADO  Connection对象进行与数据源唯一的连接。ADO  Connection对象属性和方法如下：

*ConnectionString属性：指定连接数据源的基本信息

*Open方法：打开数据源连接

*Close方法：关闭数据源连接

Command对象——命令对象

使用ADO  Command对象创建参数查询。一般步骤：创建Command对象，使用？作为Select语句中的查询参数

objcmd.commandtext="SELECT * FROM 系统用户 WHERE 用户名 LIKE ?"

使用command对象CreatParameter方法创建参数对象，然后将其添加到Command对象的Parameters集合中

Dim parm as new parameter

Set parm=objcmd.createparameter("用户名"，advarchar,adparaminput,10)

Objcmd.parameters.append parm

设置查询参数的值

Objcmd("用户名")="admin"

执行Command对象的Execute方法完成查询

Recordset对象——记录集对象

使用ADO  Recordset 对象用于保存从数据源获得记录集。

ADO  Recordset 对象的属性、集合和方法如下：

*ActiveConnection属性：代表数据源的活动连接，通常将其设置为已建立的Connection对象

*Eof属性：测试当前记录位置是否位于记录集的最后一个记录之后，eof属性将返回true，否则返回false。

*Fields集合：包含Recordset对象的所有Field对象，即可使用Fields来获得当前记录各个字段的值。

*Open方法：用于打开记录集，其参数为执行查询的SQL命令字符串

例如：objrs.Open("SELECT 口令" FROM 系统用户 WHERE 用户名 = '"")

有人会问了，ADO对象、应用程序和数据库有什么关系呢？我们用图表示一下：

ADO对象是连接应用程序和数据库的桥梁。

二、使用ADO  Data控件和数据绑定设计器访问数据库

1、先介绍ADO  Data控件访问数据库

在“工程”/“部件”中选中Microsoft  ADO  Data  Control 6.0(OLEDB)添加到工具箱中，添加到窗体，下面详细介绍“属性页”对话框。右击ADO  Data控件，在弹出的菜单中选择“ADODC属性”命令打开“属性页”对话框

“通用”选项卡列出了，三种连接数据库的方式：

1、Data  Link文件是包含连接字符串的文本文件，其扩展名为.udl。

2、使用ODBC数据源，选中，输入数据源名称，创建ODBC数据源即可

3、使用连接字符串，选中，生成连接字符串

“身份验证”选项卡，设置登录数据源的身份信息

“记录源”，设置访问数据源的方式

“颜色”选项卡，设置控件的前景色和背景色

“字体”选项卡，设置控件的标题的字体、大小和效果

数据绑定控件的属性包括：

*DataSouuce属性：用于返回或设置控件的数据源。

*DataMemver属性：用于返回或设置控件使用的数据源中的特定数据集。(数据源中包含多个数据集，则需要设置该属性，在设置该属性时，vb可自动列出源中可用的数据集；数据源只包含一个数据集，则不需要设置该属性)

*DataField属性：用于返回或设置绑定控件使用的特定字段。

*DataFormat属性：设置从数据源获得数据时的自动化格式。

2、数据环境设计器(Data  Environment  Dsigner)为访问数据库

数据环境设计器为访问数据库提供了一个交互的设计时环境。

打开：选择“工程”/“添加Data  Environment”命令可为工程添加一个数据环境设计器。在“工程资源管理器”窗口中双击数据环境，即可打开数据环境设计器。

在设计时，可创建Connection和Command对象，编写ADO事件代码，执行Command,创建合计或层次结构的命令；还可拖动DataEnvironment对象到窗体或报表来创建数据绑定的控件。

VB利用ADO控件连接access数据库

今天告诉大家VB利用ADO控件连接access数据库的两种方法：

一种是在

adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。

一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。

如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.

打开Microsoft

Visual Basic6.0

我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1。默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft

ADO Data Control(OLEDB),然后确定，工具栏就会多了一个adodc的控件。

第一种方法：设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--Microsoft

Jet 4.0 OLE DB Provider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性.

如果要把内容提交到数据库一般使用adCmdTable. 表选择要连接的表。

设置完毕后就可以了.

如果我们想把内容提交到数据库.举个例子..

在窗体建立一个文本框,设置属性中的DataSource为adodc1 DataField为要连接的数据库的字段名。如果数据库中有字段，会让你选择。

设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：

Private Sub Command1_Click()

Adodc1.Recordset.Update '保存

Adodc1.Refresh '刷新

End Sub

添加按钮代码:

Private Sub Command2_Click()

Adodc1.Recordset.AddNew '添加新纪录

Adodc1.Recordset("姓名").Value = Text1.Text

End Sub

第二种方法:

在窗体添加Adodc控件一个text控件 一个添加记录按钮一个提交按钮

在窗体设置代码:

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" + App.Path + "\db1.mdb;Persist Security Info=False"

'设置数据库路径

Adodc1.CommandType = adCmdText '设置记录源

Adodc1.RecordSource = "select * from message"

'连接数据库的message表文件

Set Text1.DataSource = Adodc1

text1.DataField = "姓名"

End Sub

添加记录按钮代码：

Private Sub Command1_Click()

Adodc1.Recordset.AddNew '添加新纪录

End Sub

提交代码：

Private Sub Command2_Click()

Adodc1.Recordset.Update '保存

Adodc1.Refresh '刷新

End Sub

好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。如果有问题请多看几遍，或看些别人写的程序代码，会有很大进步的，我的VB也不好,因为不是计算机专业的，老师也没有教很多,高手莫笑。好了我再给大家几个查询数据库常用的代码：

首记录按钮的代码：

Private Sub sjl_Click()

Adodc1.Recordset.MoveFirst

End Sub

上一条记录按钮代码：

Private Sub up_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

End If

End Sub

下一条记录代码：

Private Sub down_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

End Sub

末记录代码：

Private Sub mjl_Click()

Adodc1.Recordset.MoveLast

End Sub

删除记录代码：

Private Sub Command3_Click()

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then

MsgBox "已经无记录", , "提示"

End If

End Sub

如果有什么不对的地方，请大家指正。

使用ado控件可以方便的在vb6中访问odbc数据库，但是通过直接放置adods控件来获得ado的数据连接比较麻烦，我们可以在vb工程中创建一个公共数据模块，将ado控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ado连接。

一次完整的ado调用操作分为如下几个步骤：

打开ado到数据库的连接，初始化ado recordset集。

通过写入sql语句执行查询并返回查询结果recordset集；或者可以通过写入sql语句执行相应数据库操作。

释放recordset集，关闭数据库连接。

需要注意的是，每个动态创建的ado同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ado。

下面是相关的代码：

—————————————————————–

如下代码保存在名为my.bas的工程模块中

public conn as adodb.connection        定义ado connection对象

public rs as adodb.recordset           定义ado recordset对象

****************************

打开数据库连接

****************************

function connopen()

dim astr as string

set conn = new adodb.connection

astr = getdatabasepath  mdb文件数据库路径

conn.connectionstring = “provider=microsoft.jet.oledb.4.0;data source=” & astr & “;persist security info=false”

本例的odbc连接为jet4.0的直接到mdb文件的连接，如果使用odbc数据源可以使用如下connection串：

provider=msdasql.1;password=””;persist security info=true;data source=数据源名称;initial catalog=数据表库名称

conn.open

set rs = new adodb.recordset

with rs do

activeconnection = conn

cursortype = adopendynamic

locktype = adlockoptimistic

end with

end function

****************************

关闭数据库

****************************

function connclose()

set rs = nothing

conn.close

set conn = nothing

end function

**********************************************************

获得数据库路径

本例数据库保存在程序目录下的dbs子目录中，名为db1.mdb

**********************************************************

public function getdatabasepath() as string

dim spath as string

if right$(app.path, 1) = “\” then

spath = app.path + “dbs\”

else

spath = app.path + “\dbs\”

end if

getdatabasepath = spath + “db1.mdb”

end function

end of my.bas

—————————————————————–

如下示例代码为my.bas的使用方法：

—————————————————————–

使用rs对象执行select语句

tablename和fieldname分别为表名和字段名

查询结果保存在数组s中

private sub runselectcommand()

dim s(99) as string

dim i as integer

i=0

call my.connopen

my.rs.open “select * from tablename”

while not rs.eof

i=i+1

if not isnull(my.rs!fieldname) then s(i)=cstr(my.rs!fieldname)

rs.movenext

wend

call my.connclose

end sub

使用conn对象执行update/delete/insert语句

sql语句放在变量ssql中

private sub runsqlcommand()

dim ssql as string

call my.connopen

my.conn.execute ssql

call my.connclose

end sub

对于datagrid和datareport这些需要datasource的控件可以做如下操作

使用select语句打开rs的数据集

set obj.datasource=my.rs

———————————————————————

这个方法对于开发简单小型的mis系统很实用，也可以在报表和数据表中使用，缺点是在多表操作和函数嵌套调用时，一个动态ado对象不能同时执行两个工作，后一个写入的sql语句会覆盖先写入的sql语句，当在回到前一个过程时，会因为字段找不到而出错。因此如果可能需要进行多表操作，可以尝试多定义几个conn 和rs对象。