MS-Access: Заменить «кронштейн»

Question

В одной из таблиц доступа ms, с которыми мы работаем, у нас есть текстовое поле с заданным размером. В конце этого поля есть дополнительный код, который изменяется в зависимости от ситуации. Я ищу способ удалить один из этих кодов, но даже если последняя часть усечена максимальным размером поля.

Давайте назовем поле «поле» и код, который я ищу, чтобы удалить «abc-longcode».

Если я использую замену SQL-функции с помощью строки abc-longcode, запрос будет работать только тогда, когда код будет завершен.

Если я также хочу, чтобы мой запрос на обновление (который ничего не делал, кроме как удалить этот код в конце моего поля) работал над неполными кодами, как это перевести в ms-SQL?

Было бы необходимо удалить (или заменить «», чтобы быть точным) все из следующих (например, конечно, а не реальные коды):

abc-longcode 
abc-longcod 
abc-longco 
abc-longc 
abc-long 
abc-lon 
abc-lo 
abc-l 

Очевидно, что я мог бы сделать это с несколькими запросами. Каждый из них заменяет один из ожидаемых усеченных кодов ... но он не кажется оптимальным.

Кроме того, когда поле достаточно велико, чтобы получить весь код, в конце может появиться дополнительная информация, которую я также хочу сохранить, поэтому я не могу просто искать «abc-l» и удалять все, что следует: \

Этот запрос (или запросы, если я не могу найти лучший способ) будет храниться непосредственно в базе данных .mdb.

Так что, хотя я могу придумать несколько способов сделать это за пределами запроса ms-sql, это не помогает мне.

Любая помощь? Спасибо.

Answer 1

Вы можете написать собственный метод замены VBA, который заменит любой из данных случаев {"abc-longcode", ... "abc-l"}. Это по существу то же самое, что и идея «нескольких запросов», за исключением того, что это будет только один запрос. Мой VBA ржавый, но что-то вроде:

public function ReplaceCodes(str as string) as string 
    dim returnString as string 

    returnString = str 
    returnString = replace(returnString,"abc-longcode","") 
    // ... etc... 

    ReplaceCodes = returnString 
end function 

Я, возможно, получил заказ параметра неправильно на замену :)

Answer 2

Я хотел бы использовать свою собственную функцию, чтобы сделать это с помощью функции split, чтобы получить первый часть строки. Затем вы можете использовать это значение в запросе обновления.

Public Function FirstPart(thetext As String) As String 
    Dim ret As String 
    Dim arrSplitText As Variant 

    arrSplitText = Split(thetext, "-") 
    ret = arrSplitText(0) 

    FirstPart = ret 
End Function 

Answer 3

Вы можете использовать:

Left(FieldX,InStr(FieldX,"abc-")-1) 

EDIT снова Комментарий

Если есть пробел или другой стандартный разделитель:

IIf(InStr(InStr(FieldX, "abc-"), FieldX, " ") = 0, Left(FieldX, InStr(FieldX, "abc-") - 1), Replace(FieldX, Mid(FieldX, InStr(FieldX, "abc-"), InStr(InStr(FieldX, "abc-"), FieldX, " ") - InStr(FieldX, "abc-")), ""))