[VB] SELECT SQL 실행하기

Dim pConnection As ADODB.Connection
Dim pCommand    As ADODB.Command
Dim pParameter  As ADODB.Parameter
Dim pRecordset  As ADODB.Recordset

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

If pConnection Is Nothing Then

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

End If

Set pCommand = GetCommand(pConnection, adCmdText, True, "SELECT * FROM Sample WHERE Name > 성명") ' "명령 구하기" 참조

Set pParameter = AddParameter(pCommand, "성명", adVarChar, adParamInput, 10) ' "파라미터 추가하기" 참조

pParameter.Value = "가"

Set pRecordset = pCommand.Execute

Do Until pRecordset.EOF
    
    Print pRecordset!Name ' 또는 Print pRecordset("Name").Value
    
    pRecordset.MoveNext

Loop

Set pCommand = Nothing

pRecordset.Close

Set pRecordset = Nothing

pConnection.Close

Set pConnection = Nothing