|
|
|
|
|
|
|
|
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
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.
|
|
|
|
|
