[VB] SELECT SQL 실행하기

■ SELECT SQL을 실행하는 방법을 보여준다.

▶ 예제 코드 (VB)


Dim pConnection As ADODB.Connection
Dim pRecordset  As ADODB.Recordset

Set pConnection = GetMDBConnection("c:\test.mdb") ' "MDB 연결 구하기" 참조

If pConnection Is Nothing Then

    MsgBox "데이터베이스 파일 연결을 실패했습니다."

    Exit Sub

End If

Set pRecordset = GetRecordset(pConnection, "SELECT * FROM Sample") ' "레코드셋 구하기" 참조

If pRecordset Is Nothing Then

    MsgBox "SQL 실행시 에러가 발생했습니다."

    Exit Sub

End If

Do Until pRecordset.EOF

    Print pRecordset!Name ' 또는 Print pRecordset("Name").Value

    pRecordset.MoveNext

Loop

pRecordset.Close

Set pRecordset = Nothing

pConnection.Close

Set pConnection = Nothing

Dim pConnection As ADODB.Connection

Dim pRecordset As ADODB.Recordset

Set pConnection = GetMDBConnection("c:\test.mdb") ' "MDB 연결 구하기" 참조

If pConnection Is Nothing Then

MsgBox "데이터베이스 파일 연결을 실패했습니다."

Exit Sub

End If

Set pRecordset = GetRecordset(pConnection, "SELECT * FROM Sample") ' "레코드셋 구하기" 참조

If pRecordset Is Nothing Then

MsgBox "SQL 실행시 에러가 발생했습니다."

Exit Sub

End If

Do Until pRecordset.EOF

Print pRecordset!Name ' 또는 Print pRecordset("Name").Value

pRecordset.MoveNext

Loop

pRecordset.Close

Set pRecordset = Nothing

pConnection.Close

Set pConnection = Nothing