Important:

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

Views

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

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine