728x90
반응형
728x170
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 Function728x90
반응형
그리드형(광고전용)
'VB' 카테고리의 다른 글
| [VB] INSERT SQL 실행하기 (0) | 2015.05.15 |
|---|---|
| [VB] SELECT SQL 실행하기 (0) | 2015.05.15 |
| [VB] 파라미터 추가하기 (0) | 2015.05.15 |
| [VB] 명령 구하기 (0) | 2015.05.15 |
| [VB] SELECT SQL 실행하기 (0) | 2015.05.15 |
| [VB] MDB 연결 구하기 (0) | 2015.05.15 |
| [VB] 애플리케이션 경로 구하기 (0) | 2015.05.15 |
| [VB] 함수 프로시저 사용하기 (0) | 2015.05.15 |
| [VB] 속성 사용하기 (0) | 2015.05.15 |
| [VB] FOR ~ TO ~ STEP ~ EXIT FOR ~ NEXT문 사용하기 (0) | 2015.05.15 |
댓글을 달아 주세요