Implementar herramienta de verificación de estándares de datos v1.34_20221215
Cuando ejecuto una verificación estándar usando VARCHAR (MAX) en MS-SQL Server, aparece un error de "tipo no coincidente". Distribuya la herramienta de inspección estándar de datos v1.34_20221215 que resolvió este error.
Los siguientes comentarios fueron publicados en esta publicación:
1. Fenómeno
Al intentar verificar los atributos del formato VARCHAR (MAX) en la herramienta de verificación estándar de datos v1.33,
![데이터 표준점검 도구 v1.33에서 VARCHAR(MAX) 형식의 속성 표준 점검 시도](https://prodskill.com/wp-content/uploads/2022/12/image-2.png)
Como en "Se ha producido un error de tiempo de ejecución '13': no coincide el tipo". Se produce un error.
2. causa
Suponiendo que la longitud especificada en el tipo de datos de la propiedad es un tipo entero (por ejemplo, 10, 100, etc.), se asigna un valor a una variable de tipo entero en el código VBA. "MAX" es un error que ocurre porque no es un tipo entero.
A continuación se muestra el origen del procedimiento de carga de la clase CStdDomainDic. El error ocurre en la línea 19 del código.
'CStdDomainDic Public Sub Load(aBaseRange As Range) Dim oStdDomain As CStdDomain Dim lRow As Long '목록에 아무 값이 없는 경우 exit If Trim(aBaseRange.Offset(1, 0)) = "" Then Exit Sub Dim vRngArr As Variant vRngArr = Range(aBaseRange, aBaseRange.End(xlDown)).Resize(, 8).Value2 '읽는 범위: 8개 컬럼 For lRow = LBound(vRngArr) To UBound(vRngArr) Set oStdDomain = New CStdDomain With oStdDomain .m_s도메인분류명 = vRngArr(lRow, 1) .m_s도메인논리명 = vRngArr(lRow, 2) .m_s도메인물리명 = vRngArr(lRow, 3) .m_s도메인설명 = vRngArr(lRow, 4) .m_s데이터타입명 = vRngArr(lRow, 5) .m_i길이 = vRngArr(lRow, 6) '<-- 여기에서 오류 발생 .m_i정도 = vRngArr(lRow, 7) .m_s데이터타입길이명 = vRngArr(lRow, 8) '.m_s데이터타입길이명 = GetDataTypeStr(.m_s데이터타입명, .m_i길이, .m_i정도) End With Me.Add oStdDomain Next lRow ... End Sub
3. Medidas
De la siguiente manera, se cambió el valor de longitud para asignarlo a otras variables de acuerdo con el formato de los datos, y se usó la longitud de m_s, una variable de tipo carácter, para comparar la longitud de los datos.
'CStdDomainDic Public Sub Load(aBaseRange As Range) Dim oStdDomain As CStdDomain Dim lRow As Long '목록에 아무 값이 없는 경우 exit If Trim(aBaseRange.Offset(1, 0)) = "" Then Exit Sub Dim vRngArr As Variant vRngArr = Range(aBaseRange, aBaseRange.End(xlDown)).Resize(, 8).Value2 '읽는 범위: 8개 컬럼 For lRow = LBound(vRngArr) To UBound(vRngArr) Set oStdDomain = New CStdDomain With oStdDomain .m_s도메인분류명 = vRngArr(lRow, 1) .m_s도메인논리명 = vRngArr(lRow, 2) .m_s도메인물리명 = vRngArr(lRow, 3) .m_s도메인설명 = vRngArr(lRow, 4) .m_s데이터타입명 = vRngArr(lRow, 5) If TypeName(vRngArr(lRow, 6)) = "String" Then '<-- 데이터 형식에 따라서 다른 변수에 길이 값 할당 .m_s길이 = CStr(vRngArr(lRow, 6)) Else .m_i길이 = vRngArr(lRow, 6) End If .m_i정도 = vRngArr(lRow, 7) .m_s데이터타입길이명 = vRngArr(lRow, 8) '.m_s데이터타입길이명 = GetDataTypeStr(.m_s데이터타입명, .m_i길이, .m_i정도) End With Me.Add oStdDomain Next lRow ... End Sub
El código utilizado para comparar la longitud de datos de m_s length, una variable de tipo carácter, es el siguiente. Las líneas 13 a 18 son los códigos agregados.
'CStdDomainDic '두 Domain의 TypeSize 비교결과 return 'aDomainAtt: 비교기준 Domain (속성지정 Type/Size) 'aDomainTgt: 비교대상 Domain (용어 또는 속성분류어 Type/Size) Public Function GetCompareResult(aCompareType As String, _ aDomainAtt As CStdDomain, aDomainTgt As CStdDomain) As String Dim sResult As String sResult = aCompareType + " Type/Size 비교 결과" If aDomainAtt.m_s데이터타입명 <> aDomainTgt.m_s데이터타입명 Then sResult = sResult + vbLf + "타입 불일치" End If If aDomainAtt.IsStringLength Or aDomainTgt.IsStringLength Then If UCase(aDomainAtt.m_s길이) <> UCase(aDomainTgt.m_s길이) Then sResult = sResult + vbLf + "길이 불일치" Else sResult = aCompareType + " Type/Size 일치" End If ElseIf aDomainAtt.m_i길이 <> aDomainTgt.m_i길이 Then sResult = sResult + vbLf + "길이 불일치" If aDomainAtt.m_i길이 > aDomainTgt.m_i길이 Then '속성의 Size가 더 큰 경우(도메인 추가 또는 속성 size 조정) sResult = sResult + "(감소! 도메인 추가 또는 속성 Size 조정 필요)" ElseIf aDomainAtt.m_i길이 < aDomainTgt.m_i길이 Then '비교 대상 Domain Size가 더 큰 경우(대부분은 문제없음) sResult = sResult + "(증가 확인)" End If ElseIf aDomainAtt.m_i정도 <> aDomainTgt.m_i정도 Then sResult = sResult + vbLf + "소수점 길이 불일치" If aDomainAtt.m_i정도 > aDomainTgt.m_i정도 Then '속성의 Size가 더 큰 경우(도메인 추가 또는 속성 size 조정) sResult = sResult + "(감소! 도메인 추가 또는 속성 Size 조정 필요)" ElseIf aDomainAtt.m_i정도 < aDomainTgt.m_i정도 Then '비교 대상 Domain Size가 더 큰 경우(대부분은 문제없음) sResult = sResult + "(증가 확인)" End If Else sResult = aCompareType + " Type/Size 일치" End If GetCompareResult = sResult End Function
El resultado de la comprobación se muestra sin errores de la siguiente manera.
![데이터 표준점검 도구 v1.34에서 VARCHAR(MAX) 형식의 속성 표준 점검 결과](https://prodskill.com/wp-content/uploads/2022/12/image-3.png)
4. Descargue la herramienta de verificación de datos estándar v1.34_20221215
La versión del parche se cargó en github y se puede descargar desde la siguiente URL.
https://github.com/DAToolset/ToolsForDataStandard/raw/main/속성%20표준점검%20도구_v1.34_20221215_1.xlsm