SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: chicharos en Martes 5 de Octubre de 2004, 23:03
-
hola:
tengo un grabe problema, en la base de datos de clientes hay clientes que tienen escrito un apostrofo, cuando lo filtro por una consulta de SQL me da un error.
Alguien sabe como quitar ese error
-
deberias hacer una "limpieza" de los datos, cambiando los apostrofes por otro caracter (por ejemplo, doble comillas).
Lo puedes hacer a traves del Analizador de Consultas, o con un programa Visual
Es refacil.
-
Hay que duplicar la comilla simple para hacer una búsqueda SQL por ejemplo
Para buscar "Mac' Pato" escribe "Mac'' Pato"
Para duplicar las comillas simples puedes usar :
cadena=Replace(cadena, "'", "''")
:)
-
CPMARIO
bas a decir que soy muy torpe pero, de esta forma no se alteran los datos dentro de la tabla?
te agradesco mucho
-
cpmario
ya realice la instruccion que me pasaste y obtengo los siguiente:
cuando realiso la instruccion replace en efecto la reeemplaza pero cuando mando buscar la cadena ya modificada ya no aparece el error pero ya no localiza los datos que debe presentar
-
Esa es la manera de manejar apostrofes o comillas simples, para saber que está sucediendo en tu programa debes de escribir algo de tu código para poder comprender lo que estás intentando hacer.
:)
-
cp mario:
te mendo el codigo para ver si me puedes ayudar gracias
Text14.Text = DataCombo2.Text
base3 = "select InvAddStreet1,ClientID from baClients where Name like'[]" & DataCombo2.Text & "';"
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=\\Servidor\BusinessAdmin2k4\BArena.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open base3, db, adOpenStatic, adLockOptimistic
Set Text15.DataSource = adoPrimaryRS
agradesco mucho tu ayuda mil gracias
CESAR LEONARDO ESPAÑA REYES
chicharos2002@yahoo.om.mx
-
Para buscar cadena con apóstrofe después de:
Text14.Text = DataCombo2.Text
Escribe:
strNombre = replace(DataCombo2.Text,"'","''")
Y en lugar de:
base3 = "select InvAddStreet1,ClientID from baClients where Name like'[]" & DataCombo2.Text & "';"
Escribe:
base3 = "select InvAddStreet1,ClientID from baClients where Name like'" & strNombre & "';"
Además en el código, no veo la razón para los brackets [], a menos que lo que estés buscando los tenga, retíralos.
:)