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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Inserção com aspas simples
rlinop
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 15/12/2004 17:15 hs            

Olá gente... Minha dúvida parece ser bem simples mas eu não sei a solução... Bom eu estou tentando fazer uma inserção mas quando eu uso aspas simples " ' " dai ele reconhece como o final do meu SQL e da erro... Alguém sabe como resolver isso ???? Obrigado a todos.

Oks,
Rafael Portal

 
   
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 15/12/2004 17:50 hs            
 RLINOP, BOA TARDE
 
    sUBSTITUA UMA POR DUAS ASPAS SIMPLES
 
   REPLACE(VAR, " '' ", " '' ")
 
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 16/12/2004 08:20 hs         
antes de executar a SQL, susbstitui as aspas simples por aspas duplas dos valores a serem inseridos.
exemplo:
 
strSQL = "Insert Into Tabela ([Campo1], [Campo2]) VALUES('" & Substitui(Valor1, "'", """) & "', '" & Substitui(Valor2, "'", """) & ")"
 
 
'troca caracter por outro, dentro da string
Public Function Substitui(vgAlvo As String, vgOQue As String, vgPeloQue As String, Como As Integer) As String
  Dim x As String, k As String, p As Integer, i As Integer       'dimensiona
  x$ = vgAlvo$                                    'salva string alvo
  If Como = UM_A_UM Then                          'se um a um,
    For i = 1 To Len(x$)                          'vamos trocar
      k$ = Mid$(x$, i, 1)                         'cada caracter de vgOQue$
      p = InStr(vgOQue$, k$)                      'pelo correspondente em vgPeloQue$
      If p > 0 Then Mid$(x$, i, 1) = Mid$(vgPeloQue$, p, 1) 'na string alvo
    Next
  Else                                            'senão,
    p = InStr(x$, vgOQue$)                        'vamos trocar
    While p > 0                                   'todos de uma vez
      x$ = left$(x$, p - 1) + vgPeloQue$ + Mid$(x$, p + Len(vgOQue$)) 'quantas vezes necessário
      p = InStr(p + Len(vgPeloQue$), x$, vgOQue$)                     'na string alvo
    Wend
  End If
  Substitui$ = x$                                 'retorna a nova string
End Function
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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