明月光学镜片价格:vb 与access2003 连接 入门练习（ADO）connection 和record...

1.工程--引用---"Microsoft Active Data Object 2.6 Library"(不同环境可能不同)；

在访问数据库时，首先要创建一个connection对象，通过它建立到数据库的连接。创建connection对戏那个的方法如下：

Dim cnn as ADODB.Connection

创建connection对象后，还需要设置具体的属性，连接到指定的数据库，下面介绍常用的属性和方法。

connectionString是连接字符串，指定用于连接数据源的信息。可以使用ODBC数据源来表示连接字符串，代码如下：

dim cnn as new ADODB.Connection

cnn.connectionstring ="DSN=mydata;"

mydata是创建ODBC数据源名。可以选择“控制面板”/"管理工具"/"数据源（ODBC）"，打开“ODBC数据源管理器”创建数据源。如果通过ODBC数据源访问数据库，则要在运行数据库应用程序的计算机上配置ODBC数据源，这是一项比较繁琐的工作。（当时我就是这样搞的，浪费了不少时间）

可以通过直接设置数据源提供者（Provider）和数据库文件的方法表示连接字符串，代码：

Dim cnn as New ADODB.connection

cnn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jxgl.mdb"

还可以直接指定数据库驱动程序(Driver)和数据库文件来表示连接字符串，代码如下：

Dim cnn as New ADODB.connection

cnn.ConnectionString="Driver={Microsoft Access Driver(.*mdb)};Data Source=jxgl.mdb;"

connectionTimeout属性：指示在终止尝试和产生错误之前执行命令需等待的时间，默认值为30s。

Mode属性：Mode属性指定connection对象修改数据的权限.

State属性

state属性返回connection对象的状态。

open方法

connection.open connectionstring,userid,password,options

如果设置了connection对象的connectionstring属性，open方法就不需要设置参数了

close方法

close方法用于关闭数据源的连接，访问数据库完成后，为了节省资源，通常需要将数据库连接关闭。

下面的程序演示了使用connection对象连接到数据库的方法。这里的数据库放在了C盘。

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
If Dir("c:\jxgl.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + "c:\jxgl.mdb;"
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
cnn.Close
If cnn.State = adStateClosed Then
MsgBox ("关闭数据库了")
End If
Else
MsgBox ("找不到啊，主人！！！")
End If

End Sub

recordset对象的使用方法

Private Sub Form_Load()
Dim cnn As New ADODB.Connection'这里千万别忘了new
'创建Record对象rs1
Dim rs1 As New ADODB.Recordset'这里也别忘了new，否则实时错误91。
'设置查询记录集的SQL语句，从表jsb中读取数据
Dim varSource As String
varSource = "SELECT*FROM jsb"

If Dir("c:\jxgl.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + "c:\jxgl.mdb;"
cnn.Open

Set rs1.ActiveConnection = cnn
'设置游标类型
rs1.CursorType = adOpenStatic
'打开记录集，将从表jsb中读取的结果集保存到记录集rs1中
rs1.Open varSource
'显示记录集中的数量
MsgBox "当前记录集中共有记录" + Trim(rs1.RecordCount) + "个"
'将指针移动到记录集的最后
rs1.Move rs1.RecordCount
If rs1.EOF = True Then
MsgBox "已经到达结尾"
End If
rs1.Close
cnn.Close
Else
MsgBox "找不到啊"
End If
'If cnn.State = adStateOpen Then
'MsgBox "打开数据库"
'End If
'cnn.Close
'If cnn.State = adStateClosed Then
'MsgBox ("关闭数据库了")
'End If
'Else
'MsgBox ("找不到啊，主人！！！")
'End If

End Sub