ADODB.Connection
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
中间的几局长的代码最不懂是什么意思,还请大虾们指教!
人气:309 ℃ 时间:2020-05-20 12:58:47
解答
Public dbConn As ADODB.Connection '定义一个ADODB连接Public stuRs As ADODB.Recordset '定义Recordset对象Public SqlFindStr As StringPublic Function Conn2DB() As Boolean'公共Access数据库连函数Dim connStr ...
推荐
猜你喜欢
- 3/x是单项式吗,单项式的分母中是不含有字母的啊!
- 加工一批零件,甲单独做20天完成,乙单独做每天完成这批零件的32分之1.现在两人合
- 正午太阳高度是随着什么的移动而变化的,地球上中.高纬度地区的正午太阳高度,什么较高,什么较低,什么最高,什么最低.
- 在10L密闭容器中充入2molA和1molB,发生的化学反应:3A(g)+B(g) C(g)
- 修一条水渠,已经修好480米,剩下的一段比修好的2倍少96米.剩下水渠长多少米?
- 君子不是色于人,不失口于人的意思是什么
- 1你能载我一程吗?2这本书创作于1957年,写的是一个真实的故事.用英语怎么说
- the singer with Crazy Feet started New Standard ---___.---Quite well,thank you.