Regex MS Access中条件表达式中的数据类型不匹配
我的第一个问题是Regex MS Access中条件表达式中的数据类型不匹配,regex,ms-access,Regex,Ms Access,我的第一个问题是 SELECT regexp([Pin Code].[Address_WO_Space],"[0-9]{6}") AS PinCode, [Pin Code].Address_WO_Space, [Pin Code].CORPORATE_IDENTIFICATION_NUMBER, [Pin Code].COMPANY_NAME, [Pin Code].COMPANY_STATUS, [Pin Code].COMPANY_CLASS, [Pin Code].COMPANY_CA
SELECT regexp([Pin Code].[Address_WO_Space],"[0-9]{6}") AS PinCode, [Pin Code].Address_WO_Space, [Pin Code].CORPORATE_IDENTIFICATION_NUMBER, [Pin Code].COMPANY_NAME, [Pin Code].COMPANY_STATUS, [Pin Code].COMPANY_CLASS, [Pin Code].COMPANY_CATEGORY, [Pin Code].AUTHORIZED_CAPITAL, [Pin Code].PAIDUP_CAPITAL, [Pin Code].DATE_OF_REGISTRATION, [Pin Code].REGISTERED_STATE, [Pin Code].REGISTRAR_OF_COMPANIES, [Pin Code].PRINCIPAL_BUSINESS_ACTIVITY, [Pin Code].SUB_CATEGORY, [Pin Code].REGISTERED_OFFICE_ADDRESS
FROM [Pin Code]
WHERE (((regexp([Pin Code].[Address_WO_Space],"[0-9]{6}")) Not Like ""));
Function regexp( _ StringToCheck As Variant, _ PatternToUse As Variant, _
Optional CaseSensitive As Boolean = True) Dim re As New regexp re.Pattern = PatternToUse re.Global = False re.IgnoreCase = Not CaseSensitive Dim m For Each m In re.Execute(StringToCheck) regexp = m.Value Next End Function
(一)
我的第二个问题是
SELECT regexp([Pin Code].[Address_WO_Space],"[0-9]{6}") AS PinCode, [Pin Code].Address_WO_Space, [Pin Code].CORPORATE_IDENTIFICATION_NUMBER, [Pin Code].COMPANY_NAME, [Pin Code].COMPANY_STATUS, [Pin Code].COMPANY_CLASS, [Pin Code].COMPANY_CATEGORY, [Pin Code].AUTHORIZED_CAPITAL, [Pin Code].PAIDUP_CAPITAL, [Pin Code].DATE_OF_REGISTRATION, [Pin Code].REGISTERED_STATE, [Pin Code].REGISTRAR_OF_COMPANIES, [Pin Code].PRINCIPAL_BUSINESS_ACTIVITY, [Pin Code].SUB_CATEGORY, [Pin Code].REGISTERED_OFFICE_ADDRESS
FROM [Pin Code]
WHERE (((regexp([Pin Code].[Address_WO_Space],"[0-9]{6}")) Not Like ""));
Function regexp( _ StringToCheck As Variant, _ PatternToUse As Variant, _
Optional CaseSensitive As Boolean = True) Dim re As New regexp re.Pattern = PatternToUse re.Global = False re.IgnoreCase = Not CaseSensitive Dim m For Each m In re.Execute(StringToCheck) regexp = m.Value Next End Function
这就是我要找的。。需要从我使用regexp的地址提取pin码。。即使我得到了输出,我也得到了空白,这是因为地址中没有任何Pin码(Pin码如XXXXXX)
当我使用“不喜欢”作为条件或尝试排序时,MS Access中的条件表达式中的数据类型不匹配
有没有更好的办法
我需要的所有数据都应该来自Pin码所在的位置(没有任何空白或任何其他字符),只有6位数字。您不应该像这里一样使用
,而是:
[CIN Data].REGISTERED_OFFICE_ADDRESS <> ""
请阅读并格式化您的代码。
[CIN Data].REGISTERED_OFFICE_ADDRESS Is Not Null