UC知道急啊！ 帮我看下这小段VB代码 什么意思啊 万分感谢啊
来源：百度知道 编辑：UC知道 时间：2024/06/23 08:41:14
Public Function DBDateSelect(Con As ADODB.Connection, strFrom As String, strWhere As String) As Recordset
On Error Resume Next
Dim DBRecordSet As New ADODB.Recordset
Dim strSource As String
'Set DBDateSelect = New ADODB.Recordset
If (strWhere = "") Then
strSource = "SELECT * FROM " + strFrom
Else
strSource = "SELECT * FROM " + strFrom + " WHERE " + strWhere
End If
DBRecordSet.Open strSource, Con, adOpenDynamic, adLockOptimistic, adCmdText
Set DBDateSelect = DBRecordSet
' If (Err.Number <> 0) Then
' MsgBox Err.Description, , "DBDateselect"
' End If
End Function
他是一个怎么样的函数啊
On Error Resume Next
Dim DBRecordSet As New ADODB.Recordset
Dim strSource As String
'Set DBDateSelect = New ADODB.Recordset
If (strWhere = "") Then
strSource = "SELECT * FROM " + strFrom
Else
strSource = "SELECT * FROM " + strFrom + " WHERE " + strWhere
End If
DBRecordSet.Open strSource, Con, adOpenDynamic, adLockOptimistic, adCmdText
Set DBDateSelect = DBRecordSet
' If (Err.Number <> 0) Then
' MsgBox Err.Description, , "DBDateselect"
' End If
End Function
他是一个怎么样的函数啊
数据库查询：
Public Function DBDateSelect(Con As ADODB.Connection, strFrom As String, strWhere As String) As Recordset '函数反回Recordset对象
On Error Resume Next '出错时跳到下一步
Dim DBRecordSet As New ADODB.Recordset
Dim strSource As String
'Set DBDateSelect = New ADODB.Recordset
If (strWhere = "") Then
strSource = "SELECT * FROM " + strFrom 'SQL查询语句
Else
strSource = "SELECT * FROM " + strFrom + " WHERE " + strWhere '如果strWhere <> "" l加上条件
End If
DBRecordSet.Open strSource, Con, adOpenDynamic, adLockOptimistic, adCmdText '打开连接数据库
Set DBDateSelect = DBRecordSet '返回结果集
' If (Err.Number <> 0) Then
' MsgBox Err.Description, , "DBDateselect"
' End If
End Function