Visual Basic.NET - Apostrofo en los datos de la bbdd

 
Vista:

Apostrofo en los datos de la bbdd

Publicado por taurux (2 intervenciones) el 03/03/2005 11:00:13
¿Qué debo hacer en una aplicación VB para poder trabajar con datos que tienen un apostrofo (comilla simples) entre los caracteres? Los datos estan en Access y cuando llegan los campos que tienen dentro un apostrofo no los lee o escribe correctamente.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Apostrofo en los datos de la bbdd

Publicado por tzener (83 intervenciones) el 04/03/2005 17:27:13
Una manera en que lo puedes hacer es no concatenando los valores en tu query...

Ejemplo que puede provocar ese error :

strQuery = "INSERTO INTO A VALUES ('" & Valor1 & "', '" & Valor2 & "' )"

porque como bien dices si Valor1 o Valor2 traen un apostrofe genera un error en la BD.. lo que puedes hacer es crear un Comando (SQLCommand, ODBCCommand) y asignarle parametros al comando, asi quedaria como sigue

strQuery = "INSERT INTO A VALUES(@Valor1, @Valor2)"
Dim cmdComando As SqlCommand = New SqlCommand(strQuery)
cmdComando.Parameters.Add("@Valor1", SqlDBType.Char, 10) = Valor_que_vas_a_enviar

y con eso te libras es esos problemas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Apostrofo en los datos de la bbdd

Publicado por hixem (178 intervenciones) el 08/03/2005 14:21:56
Yo lo que hice fué una rutinita que me cambie los apostofes por otro muy parecido
Function REEMPLAZAR()
Me.txtnombre.Text = Replace(Me.txtnombre.Text, "'", "`")
Me.txtapellidos.Text = Replace(Me.txtapellidos.Text, "'", "`")
Me.txtdireccion.Text = Replace(Me.txtdireccion.Text, "'", "`")
Me.txttelefono1.Text = Replace(Me.txttelefono1.Text, "'", "`")
Me.txttelefono2.Text = Replace(Me.txttelefono2.Text, "'", "`")
Me.txtexperiencias.Text = Replace(Me.txtexperiencias.Text, "'", "`")
Me.txthoras.Text = Replace(Me.txthoras.Text, "'", "`")
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar