Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Sql ServerOracle其它 › 查看内容

根据不同的SQL语句获取记录集

1970-1-1 08:00| 发布者: Grant| 查看: 2825| 评论: 1

根据不同的SQL语句获取记录集

Public Function GetRS(ByVal strQuery As String) As ADODB.Recordset
Dim RS As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
RS.Open Trim$(strQuery), conn, adOpenKeyset, adLockOptimistic
Set GetRS = RS

GetRS_Exit:
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing
Exit Function
GetRS_Error:
MsgBox (Err.Description)
Resume GetRS_Exit
End Function

'用法示例:
Dim RS As New ADODB.Recordset
Dim str As String
str = "select * from 员工表"
Set RS = GetRS(str)
'对记录集的相关操作……
……

RS.Close
Set RS=Nothing

收藏分享邀请

发表评论

帐号		自动登录	找回密码
密码			注册

根据不同的SQL语句获取记录集

最新评论

相关分类