VBA를 사용하여 Access에서 쿼리 결과를 검색합니다.
Microsoft Access 쿼리에서 결과를 읽는 방법을 알면 Access 응용 프로그램을 보다 동적으로 만드는 데 도움이 됩니다. Access는 Microsoft Office 제품군의 일부이며 관계형 데이터베이스를 만드는 데 사용됩니다. VBA(Visual Basic for Applications)는 Access에서 Windows 응용 프로그램을 만들고 데이터베이스 데이터를 검색하는 데 사용할 수 있습니다. 쿼리는 데이터베이스에서 정보를 요청하기 위해 SQL(Structured Query Language) 문을 사용하여 작성됩니다.
1 단계
Microsoft Office Access 2007을 시작하고 "빈 데이터베이스"를 선택한 다음 "만들기"를 클릭합니다. "데이터베이스 도구"를 클릭하고 "Visual Basic"을 선택합니다. "삽입" 필드를 클릭하고 "모듈"을 선택합니다.
오늘의 비디오
"Private sub readQueryResults"를 입력하고 "Enter"를 눌러 새 서브루틴을 만듭니다.
2 단계
쿼리 결과를 읽는 데 사용할 변수를 선언하려면 다음을 입력합니다.
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
3단계
다음을 입력하여 "CityTbl" 테이블을 만듭니다.
stringSQL = "CREATE TABLE CityTbl(시 TEXT(25), 주 TEXT(25));" 명령문. RunSQL(문자열SQL)
4단계
"CityTbl" 테이블에 두 개의 새 레코드를 추가하려면 다음을 입력하십시오.
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" 명령문. SetWarnings False DoCmd. RunSQL(문자열SQL)
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" 명령문. SetWarnings False DoCmd. RunSQL(문자열SQL)
5단계
다음을 입력하여 쿼리를 정의하고 레코드세트를 엽니다.
stringSQL = "Select CityTbl.* FROM CityTbl;" RecordSt = dBase로 설정합니다. OpenRecordset(stringSQL)
6단계
다음을 입력하여 "For 루프"를 만들고 메시지 상자를 통해 쿼리 결과를 표시합니다.
RecordSt. MoveFirst For rCnt = 0에서 RecordSt로. RecordCount MsgBox(RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext 다음 rCnt
서브루틴을 실행하려면 "F5"를 누르십시오.
