[VB] 레코드셋 구하기

■ 레코드셋을 구하는 방법을 보여준다.

▶ 예제 코드 (VB)


Public Function GetRecordset(pConnection As ADODB.Connection, strSQL As String) As ADODB.Recordset

    Dim pRecordset As ADODB.Recordset

    Set GetRecordset = Nothing

    On Error GoTo ErrorLabel

    Set pRecordset = pConnection.Execute(strSQL)

    On Error GoTo 0

    Set GetRecordset = pRecordset

    Exit Function

ErrorLabel:

End Function

Public Function GetRecordset(pConnection As ADODB.Connection, strSQL As String) As ADODB.Recordset

Dim pRecordset As ADODB.Recordset

Set GetRecordset = Nothing

On Error GoTo ErrorLabel

Set pRecordset = pConnection.Execute(strSQL)

On Error GoTo 0

Set GetRecordset = pRecordset

Exit Function

ErrorLabel:

End Function