[VB] SELECT SQL 실행하기

VB 2015.05.15 09:00

■ SELECT SQL 실행하기

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

'VB' 카테고리의 다른 글

[VB] 문자열 개행 코드 사용하기  (0) 2015.05.15
[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] 레코드셋 구하기  (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
Posted by 사용자 icodebroker