No puedo usar parametros con LIKE en sentencia SELECT

[sickman]

Saludos amigos miren estoy trabajando mi bd con objetos command pero me tope con esto, no puedo usar parametros para reemplazar el valor que se le pasa a like :S , la consulta me devuelve un recordset vacio, pero si lo puedo usar normal cuando hago un insert por ejemplo, he probado de varias formas solucionar esto pero no he tenido exito, no se a que se debera, ojala puedan orientarme.

a="'%'"
cmd.CommandText = "SELECT * FROM areas WHERE descripcion LIKE ?"

cmd.Parameters.Append cmd.CreateParameter(, adChar, adParamInput, 30, a)
Set consultar = cmd.Execute

Gracias.

[TolaWare]

Haz tu pregunta en el foro de Base de Datos.

Saludos

[GeoAvila]

Si mal no estoy los parametro funcionan para los stored procedures del SQL server y otros, pero de la manera que lo intentas hacer yo creería mejor que habras el recordset ya con el parmetro dentro de la variable..

Rs.open "Select * from facturas where cliente = " & TxtCod & " "

nos vemos..

[ManuNic]

prueba asi
var ' es tu variable
var= var + "%"
Like '" & var & "'"

[Juanza]

Amigo prueba este codigo que hice, te realiza busquedas en un datagrid de acuerdo a la tecla que vas presionando, ahi uso la clausula like

Private Sub txtbusqueda_KeyPress(KeyAscii As Integer)
asnu = KeyAscii
Select Case asnu
Case 8
cara = ""
busqueda = Trim(busqueda & cara)
busqueda = Left(busqueda, Len(busqueda) - 1)
Case 13
cmdcaptura_Click
Case Else
cara = Chr(KeyAscii)
busqueda = Trim(busqueda & cara)
End Select
cmd.CommandText = "select cod_alu,nom_total,edad,dire_alu from alumnos where nom_total like '" & busqueda & "%'" & "order by nom_total"
Set rs = cmd.Execute
rs.Close
rs.CursorType = adOpenKeyset
rs.Open
Set dgalumnos.DataSource = rs
txtregistros.Text = rs.RecordCount
End Sub

[sickman]

Gracias compañeros, al final opte por la recomendacion de GeoAvila, muchas gracias.

Saludos

[GeoAvila]

Por nada.. no vemos..