Sentencia SQL - Apóstrofe y Comillas dobles

Hola Claudio, creo haberte entendido...

tienes un textbox donde capturas por ejemplo Biblioteca Popular "San Martin"
y quieres grabar esta linea tal y como esta, con las comillas dobles...

en ese sql puedes utilizar tanto las comilla sencilla o apostroge y las
comillas dobles para un string, si quieres grabar comillas dobles debes
utilizar las sencillas como delimitadores, ej. 'Biblioteca "San Martin"' y
se grabara
Biblioteca "San Martin"

si los campos Descalle y CodCalle son string en tu tabla TablaCalle la
linea es asi :

strCadena = "Update TablaCalle set Descalle = '" & Text2.Text & "' " & _
"where CodCalle = '" & Text1.Text & "'"

con esto debes de poder grabar comillas dobles y no debes de tener
problemas...

saludos y suerte...


"Claudio" wrote in message
news:

Hola a todos:

Quisiera ayuda para solucionar el problema del apóstrofe en sentencia SQL.
Como necesito que en el campo texto se almacene tanto las Comillas

dobles(")

como la
comilla simple o apostrofe (') opté por el momento trabajar así:

Update TablaCalle set Descalle=""" & Text2.Text & """ where CodCalle=" &
Text1.Text
- donde Descalle es el campo de texto

Lo que hago en la sentencia es reemplazar la comilla simple por dos

comillas

dobles
de esta manera soluciono el problema de la comilla simple, pero me aparece
el problema
de que me arroja error al querrer almacenar texto que incluyan comillas
dobles.

Pense en usar la funcion replace para reemplazar en la caja de texto las
comillas
dobles por dos simples de esta manera:
Text2.Text = Replace(Text2.Text, """, "''")
pero me arroja error

Quisiera saber como solucionan este probema o bien
como puedo hacer para que en un texto me reemplace las comillas dobles
por dos comillas simples

Cualquier Ayuda, será agradecida

Yo lo he solucionado de la siguiente manera:


Public Const cntChar39 As String = "'+CHAR(39)+'"

Public Function fncConvChrEsp(strAConvertir As String) As String

If strAConvertir = "" Or strAConvertir = "NULL" Then
fncConvChrEsp = "NULL"
Exit Function
End If

Dim strConvertido, strAuxiliar As String
Dim lngLongitud As Long
Dim lngLoop As Long
Dim lngCodigoAscii As Long

lngLongitud = Len(strAConvertir)
For lngLoop = 1 To lngLongitud
lngCodigoAscii = Asc(Mid$(strAConvertir, lngLoop, 1))
Select Case lngCodigoAscii
Case 39
strConvertido = strConvertido + cntChar39

Case Else
strConvertido = strConvertido + Mid$(strAConvertir,
lngLoop, 1)

End Select
Next lngLoop

strConvertido = "'" & strConvertido & "'"

fncConvChrEsp = strConvertido

End Function

Puedes agregar mas constantes y casos, de acuerdo a los caracteres
especiales que vayas encontrando. Espero te sirva.

Saludos.
Edgar Contreras


(Guía de netiquette del foro)
http://perso.wanadoo.es/rubenvigon/foro

"La informacion es presentada como es y sin garantia alguna"



"Claudio" wrote in message
news:

Hola a todos:

Quisiera ayuda para solucionar el problema del apóstrofe en sentencia SQL.
Como necesito que en el campo texto se almacene tanto las Comillas

dobles(")

como la
comilla simple o apostrofe (') opté por el momento trabajar así:

Update TablaCalle set Descalle=""" & Text2.Text & """ where CodCalle=" &
Text1.Text
- donde Descalle es el campo de texto

Lo que hago en la sentencia es reemplazar la comilla simple por dos

comillas

dobles
de esta manera soluciono el problema de la comilla simple, pero me aparece
el problema
de que me arroja error al querrer almacenar texto que incluyan comillas
dobles.

Pense en usar la funcion replace para reemplazar en la caja de texto las
comillas
dobles por dos simples de esta manera:
Text2.Text = Replace(Text2.Text, """, "''")
pero me arroja error

Quisiera saber como solucionan este probema o bien
como puedo hacer para que en un texto me reemplace las comillas dobles
por dos comillas simples

Cualquier Ayuda, será agradecida

Muchas gracias Grupo!!!
El problema se ha solucionado.

Claudio



"Claudio" escribió en el mensaje
news:

Hola a todos:

Quisiera ayuda para solucionar el problema del apóstrofe en sentencia SQL.
Como necesito que en el campo texto se almacene tanto las Comillas

dobles(")

como la
comilla simple o apostrofe (') opté por el momento trabajar así:

Update TablaCalle set Descalle=""" & Text2.Text & """ where CodCalle=" &
Text1.Text
- donde Descalle es el campo de texto

Lo que hago en la sentencia es reemplazar la comilla simple por dos

comillas

dobles
de esta manera soluciono el problema de la comilla simple, pero me aparece
el problema
de que me arroja error al querrer almacenar texto que incluyan comillas
dobles.

Pense en usar la funcion replace para reemplazar en la caja de texto las
comillas
dobles por dos simples de esta manera:
Text2.Text = Replace(Text2.Text, """, "''")
pero me arroja error

Quisiera saber como solucionan este probema o bien
como puedo hacer para que en un texto me reemplace las comillas dobles
por dos comillas simples

Cualquier Ayuda, será agradecida