Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

22 de novembro de 2013

VBA Access - Adicionando Colchete para SQL - SQL Add Brackets

Inline image 1

Esta função envolve cada ocorrência que contenha os caracteres [, *, #, e ? numa string com um par de colchetes esquerdo e direito ([]).

Isso é muito útil quando usamos uma seqüência numa comparação "Like" em uma consulta (por exemplo, "WHERE FieldName Like '" & SearchString & "'"), porque estes são caracteres especiais num processo padrão de pesquisa. 

Esta função não deve ser utilizado ao se fazer uma comparação "direta" em uma consulta (por exemplo, "WHERE FieldName = '" & SearchString & "'").

Public Function SQLAddBrackets (ByVal varReplaceStringValue As Variant) As String

On Error GoTo Error_Function

Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "[", "[[]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "*", "[*]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "#", "[#]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
      "?", "[?]", 1, -1, vbTextCompare)

Let SQLAddBrackets = varReplaceStringValue

Exit_Function:
      Err.Clear
      Exit Function

Error_Function:
      Let SQLAddBrackets = xstrReplaceStringValue
      Resume Next

End Function



Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: Access, SQL, add, brackets, colchete, 

Inline image 1

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine