Autor Tema: Error En Una Busqueda Con Ado (Leído 1705 veces)

_vgt_ · « **en:** Sábado 15 de Enero de 2005, 16:38 »

Holaa!!, me ha surgido un problema con una busqueda en ADO... el caso es que tengo un formulario con una lista de clientes en la k el usuario puede seleccionar a mano el k kiere y asi se ahorra el tener k escribirlos k es un coñazo... vale, hasta ahi bien, el problema viene cuando pensé en poner un textbox para k hiciera una busqueda...

os pongo el codigo...

Código: Text

 
Private Sub txtBusqueda_KeyPress(KeyAscii As Integer)
 
 Dim cadena_Buscada As String, criterio As String
 
 Dim sBuscar As String
 Dim tRs As Recordset
 Dim tLi As ListItem
 
 ' Comprobar si tiene caracteres &#34;no válidos&#34; para ADO:
 sBuscar = Chr(KeyAscii)
 sBuscar = Replace(sBuscar, &#34;*&#34;, &#34;%&#34;)
 sBuscar = Replace(sBuscar, &#34;?&#34;, &#34;_&#34;)
 
 ' Formo la cadena de la consulta:
 sBuscar = &#34;SELECT CodCliente,Nombre,Modelo FROM Clientes WHERE Cliente   LIKE '&#34; & sBuscar & &#34;' ORDER BY CodCliente&#34;
 
 Set tRs = db.Execute(sBuscar) :argh: :fire:
 ' Comprobar que hay datos en el recordset 
 With tRs
     ' Si no hay datos...
    If (.BOF And .EOF) Then
        MsgBox &#34;No se han encontrado los datos buscados&#34;
    Else
        ' Mostrar los datos hallados
        ListView1.ListItems.Clear
        .MoveFirst
        Do While Not .EOF
            Set tLi = ListView1.ListItems.Add(, , .Fields(&#34;CodCliente&#34;) & &#34;&#34;)
            tLi.SubItems(1) = .Fields(&#34;Nombre&#34;) & &#34;&#34;
            tLi.SubItems(2) = .Fields(&#34;Modelo&#34;) & &#34;&#34;
            .MoveNext
        Loop
    End If
 End With
End sub
 
 

el problema es k cuando va hacer la consulta en esta linea Set tRs = db.Execute(sBuscar) me dice k "no se han especificado valores para algunos de los parámetros requeridos"

y como k no consigo hacer k haga la consulta... ¿podriais orientarme un poco?

Muxisimas gracias a todos/as

desarrollo

HOLA VGT

revise tu codigo y los he modificado un poco con respecto a los datos que tengo y es este..

Citar

Private Sub txtbusqueda_KeyPress(KeyAscii As Integer)
Dim cadena_Buscada As String, criterio As String

Dim sBuscar As String
Dim tRs As New ADODB.Recordset
Dim tLi As ListItem

' Comprobar si tiene caracteres "no válidos" para ADO:
sBuscar = Chr(KeyAscii)
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")

' Formo la cadena de la consulta:
'codano & "and b.nom_cliente like " & Chr(39) & Trim(Text1.Text) & "%" & Chr(39) &
sBuscar = "SELECT num_ost,Nom_cliente,tip_documen FROM Cliente WHERE nom_Cliente LIKE " & Chr(39) & sBuscar & "%" & Chr(39) & " ORDER BY nom_Cliente" ' aki en la linea del like le coloque un signo porcentaje (%)

'Set tRs = CN.Execute(sBuscar) ': argh:: fire: esto no me funciona
Set tRs = New ADODB.Recordset 'lo hice asi
tRs.CursorLocation = adUseClient
tRs.Open sBuscar, CN, adOpenStatic, adLockReadOnly
'CN.Execute sBuscar 'no
'Set ListView1.= tRs 'no
' Comprobar que hay datos en el recordset
With tRs
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
' Mostrar los datos hallados
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF 'en esta parte para que funcione en las propiedades del listview le agregue 3 columnas no se realmente si era necesario pero funciono
Set tLi = ListView1.ListItems.Add(, , .Fields("NOM_CLIENTE") & "")
tLi.SubItems(1) = .Fields("NUM_OST") & ""
tLi.SubItems(2) = .Fields("tip_documen") & ""
.MoveNext
Loop
End If
End With

End Sub

hay algunas opciones que he cambiado con repecto a tu coneccion.... pero lo probe a mi modo y me resulta bien... a ver trata de acomodarlo a tu codigfo y luego me dices suerte

, en esa parte donde dices que sale el error simplemente no le he colocado... que raro igual funca

talvez peude explicarme un poco como funciona en tu caso...

desarrollo

_vgt_

hola desarrollo!!, muxas gracias x tu ayuda pero me he dado cuenta k el campo x el k estaba buscando no estaba en la base de datos : hay k ser atontao

lamento haberte hexo perder el tiempo revisando algo k no tenia mas k una mierda de despiste

(aun asi llevabo todo el dia dandole vueltas...

)

Lo siento muxo de veras...

De todas formas voy a considerar las modificaciones para k mi codigo kede muxo mejor

lo siento de verdad

saludos y muxisimas gracias

desarrollo

hola vgt

no te precopupes a veces esas cosas pasan (si o no clauda....

) para eso estamos como dice el dicho ... hoy por ti mañana por mi....

ke tengas suerte

adios

desarrollo

PD: sobre el comentario en parentesis alli arriba, me refiero a ke el foro lo vemos dos personas

ya sea yo.....

o mi amiga claudia

ambos estamos con el mismo usuario y aparte ke trabajo con ella.....

SoloCodigo