SoloCodigo

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

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

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

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