USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Solução para a Aspa Simples (') em Strings de SQL
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Public Function Plic(ByVal sTexto As String) As _
       String
  If InStr(sTexto, Chr(39)) Then
    Plic = Chr(39) & Replace(sTexto, _
           Chr(39), Chr(39) & Chr(39)) & _
           Chr(39)
  Else
    Plic = Chr(39) & sTexto & Chr(39)
  End If
End Function

'P/ usar, por exemplo:
Text1.Text = Plic(Text1.Text)

'No caso, se for p/ passar p/ uma string SQL, veja:
Dim MySQL As String
MySQL = "Select * From Clientes Where Nome = " & _
        Plic(Text1.Text)
(...)
ATENÇÃO!!! Se você estiver usando o VB5.0 (ou mais antigo), nele NÃO tem a função Replace. P/ corrigir isto veja a dica Função Replace para VB5.0.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página