ADO 연결 및 Recordset 개체 열기
이 문서에서는 ADO 연결 및 Recordset 개체를 여는 방법을 소개합니다.
원래 제품 버전: SQL Server
원래 KB 번호: 168336
요약
ADO(ActiveX Data Objects)는 Connection 및 Recordset 개체를 모두 여는 여러 가지 방법을 제공합니다. 이 문서에서는 각 개체에 대한 몇 가지 일반적인 기술에 대한 샘플 코드를 제공합니다.
추가 정보
ADO 내에서 Connection 개체를 여는 방법에는 여러 가지가 있습니다.
- 속성을 유효한 Connect 문자열로 설정한
ConnectionString
다음 메서드를 호출합니다Open()
. 이 연결 문자열 공급자에 따라 다릅니다. - 유효한 Connect 문자열을 메서드의 첫 번째 인수에 전달합니다
Open()
. - Recordset의 Open 메서드의 첫 번째 인수에 유효한 Command 개체를 전달합니다.
- ODBC 데이터 원본 이름과 선택적으로 사용자 ID 및 암호를 Connection Object의
Open()
메서드에 전달합니다.
ADO 내에서 Recordset 개체를 여는 방법에는 세 가지가 있습니다.
- 메서드에서 Recordset을
Connection.Execute()
엽니다. - 메서드에서 Recordset을
Command.Execute()
엽니다. - Connection 또는 Command 개체 없이 Recordset 개체를 열고 유효한 Connect 문자열을 메서드의 두 번째 인수에
Recordset.Open()
전달합니다.
이 코드는 Nwind.mdb Visual Basic과 함께 설치되고 에 있다고 C:\Program Files\DevStudio\VB directory
가정합니다.
Option Explicit
Private Sub cmdOpen_Click()
Dim Conn1 As New adodb.Connection
Dim Cmd1 As New adodb.Command
Dim Errs1 As Errors
Dim Rs1 As New adodb.Recordset
Dim i As Integer
Dim AccessConnect As String
' Error Handling Variables
Dim errLoop As Error
Dim strTmp As String
AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=nwind.mdb;" & _
"DefaultDir=C:\program files\devstudio\vb;" & _
"Uid=Admin;Pwd=;"
'---------------------------
' Connection Object Methods
'---------------------------
On Error GoTo AdoError ' Full Error Handling which traverses
' Connection object
' Connection Open method #1: Open via ConnectionString Property
Conn1.ConnectionString = AccessConnect
Conn1.Open
Conn1.Close
Conn1.ConnectionString = ""
' Connection Open method #2: Open("[ODBC Connect String]","","")
Conn1.Open AccessConnect
Conn1.Close
' Connection Open method #3: Open("DSN","Uid","Pwd")
Conn1.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=nwind.mdb;" & _
"DefaultDir=C:\program files\devstudio\vb;" & _
"Uid=Admin;Pwd=;"
Conn1.Close
'--------------------------
' Recordset Object Methods
'--------------------------
' Don't assume that we have a connection object.
On Error GoTo AdoErrorLite
' Recordset Open Method #1: Open via Connection.Execute(...)
Conn1.Open AccessConnect
Set Rs1 = Conn1.Execute("SELECT * FROM Employees")
Rs1.Close
Conn1.Close
' Recordset Open Method #2: Open via Command.Execute(...)
Conn1.ConnectionString = AccessConnect
Conn1.Open
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM Employees"
Set Rs1 = Cmd1.Execute
Rs1.Close
Conn1.Close
Conn1.ConnectionString = ""
' Recordset Open Method #3: Open via Command.Execute(...)
Conn1.ConnectionString = AccessConnect
Conn1.Open
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM Employees"
Rs1.Open Cmd1
Rs1.Close
Conn1.Close
Conn1.ConnectionString = ""
' Recordset Open Method #4: Open w/o Connection & w/Connect String
Rs1.Open "SELECT * FROM Employees", AccessConnect, adOpenForwardOnly
Rs1.Close
Done:
Set Rs1 = Nothing
Set Cmd1 = Nothing
Set Conn1 = Nothing
Exit Sub
AdoError:
i = 1
On Error Resume Next
' Enumerate Errors collection and display properties of
' each Error object (if Errors Collection is filled out)
Set Errs1 = Conn1.Errors
For Each errLoop In Errs1
With errLoop
strTmp = strTmp & vbCrLf & "ADO Error # " & i & ":"
strTmp = strTmp & vbCrLf & " ADO Error # " & .Number
strTmp = strTmp & vbCrLf & " Description " & .Description
strTmp = strTmp & vbCrLf & " Source " & .Source
i = i + 1
End With
Next
AdoErrorLite:
' Get VB Error Object's information
strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
strTmp = strTmp & vbCrLf & " Generated by " & Err.Source
strTmp = strTmp & vbCrLf & " Description " & Err.Description
MsgBox strTmp
' Clean up gracefully without risking infinite loop in error handler
On Error GoTo 0
GoTo Done
End Sub
오류 정보
ADO Connection 개체에만 오류 컬렉션이 있습니다. 관찰 판독기는 예제에 대해 간단한 오류 처리기가 적용 RecordSet.Open
된다는 것을 알 수 있습니다. RecordSet 개체를 여는 동안 오류가 발생할 경우 ADO는 OLEDB 공급자로부터 가장 명시적인 오류를 반환해야 합니다. 앞의 코드에서 발생할 수 있는 몇 가지 일반적인 오류는 다음과 같습니다.
Connect 문자열에서 DefaultDir 매개 변수를 생략하거나 오류가 있는 경우 다음 오류가 발생할 수 있습니다.
ADO 오류 # -2147467259
설명 [Microsoft][ODBC Microsoft Access 97 드라이버] '(알 수 없음)'
가 유효한 경로가 아닙니다. 경로 이름이 인지 확인합니다.
맞춤법이 올바르고 서버에 연결되어 있는지 확인
파일이 있는 입니다.
ODBC 드라이버용 Microsoft OLE DB 공급자 원본
연결 문자열의 Dbq 매개 변수에 오류가 있는 경우 다음 오류가 발생할 수 있습니다.
ADO 오류 # -2147467259 설명 [Microsoft][ODBC Microsoft Access 97 드라이버] '(알 수 없음)' 파일을 찾을 수 없습니다.
ODBC 드라이버용 Microsoft OLE DB 공급자 원본
앞의 오류는 연결 오류 컬렉션에도 다음 오류로 채워집니다.
ADO 오류 # -2147467259
설명 [Microsoft][ODBC 드라이버 관리자] 드라이버
SQLSetConnectAttr 실패
ODBC 드라이버용 Microsoft OLE DB 공급자 원본
ADO 오류 # -2147467259
설명 로그인 실패
ODBC 드라이버용 Microsoft OLE DB 공급자 원본
참고
각 오류에 대해 ADO 오류 번호는 동일합니다. 이 경우 일반 E_FAIL 오류 메시지인 0x80004005 변환됩니다. 기본 구성 요소에 발생한 조건에 대한 특정 오류 번호가 없지만 유용한 정보는 ADO로 발생하지 않았습니다.
참조
피드백
https://aka.ms/ContentUserFeedback
출시 예정: 2024년 내내 콘텐츠에 대한 피드백 메커니즘으로 GitHub 문제를 단계적으로 폐지하고 이를 새로운 피드백 시스템으로 바꿀 예정입니다. 자세한 내용은 다음을 참조하세요.다음에 대한 사용자 의견 제출 및 보기