001. xfnGetPKs

xfnGetPKs 함수

• • 입력한 테이블의 PK를 반환합니다.

  • 테이블의 PK를 알아내려 할때 유용합니다.

구문

• xfnGetPKs(ByVal strTableName As String) As xProperties

반환값

• • 성공 : PK가 저장되어 있는 xProperties를 반환합니다.

  • 오류 : 빈 xProperties를 반환합니다.

참고

• • 결과값 중 PKName은 DB상 PK이름이며 PKName을 제외한 PK0000n 스타일이 필드명입니다.

    • 자세한 내용은 예제를 보십시오.

예제

코드

'키가 1개일 때

Dim strTableName As String

Dim objPKs As xProperties

Dim obj As xProperty

strTableName = "tWorkParticulars"

Set objPKs = xfnGetPKs(strTableName)

If objPKs.Count < 1 Then

    xsbErrMsg "PK가 존재 하지 않습니다."

End If

For Each obj In objPKs

    Debug.Print obj.Name & " : " & obj.Value

Next

'---------- 결과값 ----------------

PKName : PK_tWorkParticulars

N00002 : WorkParticularId

'키값이 2개 이상일 때,

Dim strTableName As String

Dim objPKs As xProperties

Dim obj As xProperty

strTableName = "xtCodes"

Set objPKs = xfnGetPKs(strTableName)

If objPKs.Count < 1 Then

    xsbErrMsg "PK가 존재 하지 않습니다."

End If

For Each obj In objPKs

    Debug.Print obj.Name & " : " & obj.Value

Next

'----------- 결과값 ----------

PKName : PK_xtCodes

N00002 : CodeBookID

N00003 : CodeNum