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:  Tratando aspas ( ' ) de uma string para ser usada numa SQL
Postada em 29/1/2003 por Felipe            
Function FormatSQL(StrFieldVal As String) As String
    ' Format Apostrophes For SQL Statement
    Dim ChrPos As Long, PosFound As Long
    Dim WrkStr As String
    For ChrPos = 1 To Len(StrFieldVal)
        PosFound = InStr(ChrPos, StrFieldVal, "'")
        If PosFound > 0 Then
            WrkStr = WrkStr & Mid(StrFieldVal, ChrPos, PosFound - ChrPos + 1) & "'"
            ChrPos = PosFound
        Else
            WrkStr = WrkStr & Mid(StrFieldVal, ChrPos, Len(StrFieldVal))
            ChrPos = Len(StrFieldVal)
        End If
    Next ChrPos
    FormatSQL = WrkStr
End Function
 


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