ADODB.Connection 是什么意思

 

(2008-12-28 16:03:11)

转载▼

标签： 杂谈

分类： 程序

Public dbConn As ADODB.Connection
Public stuRs As ADODB.Recordset
Public SqlFindStr As String

Public Function Conn2DB() As Boolean
'公共Access数据库连函数

Dim connStr As String
Dim dbName As String

dbName = App.Path & "\" & "StudentDB.mdb"

' Access连接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName

Set dbConn = New ADODB.Connection

If dbConn.State <> adStateOpen Then
dbConn.Open conStr
End If

Conn2DB = True
End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset

'执行一条SQL查询,得到一个记录集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic

Set ExcSQL = rst
End Function

想知道这段代码是什么意思,急啊!!!谢谢大虾帮忙啊!!SOS

 

 

Public dbConn As ADODB.Connection '定义一个ADODB连接
Public stuRs As ADODB.Recordset '定义Recordset对象
Public SqlFindStr As String

Public Function Conn2DB() As Boolean
'公共Access数据库连函数

Dim connStr As String
Dim dbName As String

dbName = App.Path & "\" & "StudentDB.mdb" '返回程序所在路径

' Access连接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName

Set dbConn = New ADODB.Connection '定义一个ADODB连接对象

If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开
dbConn.Open conStr '如果不是打开状态 就打开连接
End If

Conn2DB = True
End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset

'执行一条SQL查询,得到一个记录集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到记录

Set ExcSQL = rst
End Function

 

ADODB是数据库访问组件,connection是其中的一个对象