드로우홀릭 더베이직
안녕하세요, 이어붙이기 관련 질문드립니다.
제가 가진 파일에 텍스트 형식의 네 field가 있습니다.
첫 번째 field는 '참조번호',
나머지 세 field는 각각 Field1~Field3으로 명명되어 있는데
참조번호 별로 그룹화하여 Field1~Field3의 값을 이어붙인 하나의 column을 구하고 싶습니다.
예를 들어서 참조번호 필드 값이 1인 레코드가 한 개 있고, 각각의 필드 값이
'Field1'필드의 레코드값 : 1
'Field2'필드의 레코드값 : 892
'Field3'필드의 레코드값 : 10
이라면
189210 라는 값을 반환하는 column을 구하고 싶습니다.
만약 참조번호 필드 값이 1인 레코드가 2개 있고, 각각의 필드값이
첫번째 레코드의 필드 값
'Field1'필드의 레코드값 : 1
'Field2'필드의 레코드값 : 892
'Field3'필드의 레코드값 : 10
두번째 레코드의 필드 값
'Field1'필드의 레코드값 : 1
'Field2'필드의 레코드값 : 892
'Field3'필드의 레코드값 : 10
이라면
189210189210와 같이 해당 참조번호를 가지는 Field1~Field3값들이 순서대로 뒤로 쫙 이어붙여졌으면 합니다.
어떤 쿼리를 짜야지 해당 테이블을 얻을 수 있을까요
제가 설명이 미숙해서 잘 이해가 가셨는지 모르겠습니다ㅠㅠㅠ
답변 기다리겠습니다.
감사합니다.
SQL Server 등에서는, 쿼리만으로 구할 수 있습니다만, 액세스 쿼리로는 불가능합니다.
VBA를 같이 사용해야 할 것 같습니다.
테이블 이름을 tA 라고 가정해 보면..
다음과 같은 VBA를 이용하면 됩니다.
(ADO 2.6 참조를 걸어 주셔야 합니다.)
Public Function ConCatRec(RefNum As Variant) Dim strSQL As String Dim rst As ADODB.Recordset Dim strResult As String strSQL = "SELECT * FROM tA WHERE 참조번호 = '" & RefNum & "' ORDER BY 참조번호" Set rst = New ADODB.Recordset rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly Do Until rst.EOF strResult = strResult & Nz(rst!Field1, "") & Nz(rst!Field2, "") & Nz(rst!Field3, "") rst.MoveNext Loop ConCatRec = strResult End Function그리고, 이 함수를 이용해서 쿼리를 만들면 됩니다.
첨부한 파일의 qA 쿼리를 참고하십시오.