¿alguien puede decirme que le pasa a mi codigo?

[medu50]

Tengo el siguiente codigo y en la linea: Set tRs = cnn.Execute(sBuscar). Me da este error: "Error 13 en tiempo de ejecucion, NO COINCIDEN LOS TIPOS.

Private Sub CmdBuscar_Click()
Dim sBuscar As String
Dim tRs As Recordset
Dim tLi As ListItem
sBuscar = Text1
sBuscar = "SELECT * FROM CURSOS WHERE CURSO LIKE '" & sBuscar & "' ORDER BY CURSO"
Set tRs = cnn.Execute(sBuscar)
With tRs
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi = ListView1.ListItems.Add(, , .Fields("CURSO") & "")
tLi.SubItems(1) = .Fields("SUB_ACCION")
.MoveNext
Loop
End If
End With
End Sub

Tengo declarado tRs de tipo Recordset y no entiendo porque me puede dar este error, si alguien puede ayudarme... Muxas Gracias.

[RootK]

Hola.. para empezar me imagino que estás usando ADO, si es así para declarar tu recordset sería:

Dim tRs As New ADODB.Recorset
..
...
..
.
Set tRs = cnn.Execute(sBuscar)
..

Solo espero que tu variable cnn tambien la tengas declarada como:

Dim cnn as new ADODB.Connection

Saludos y suerte

[RootK]

Pensandolo bien creo que estás manejando DAO... no es así..??

Por cierto... si estás usando el like porque no le incluyes tambien los comodines porque así es como si lo pusieras así:

sBuscar = "SELECT * FROM CURSOS WHERE CURSO = '" & sBuscar & "' ORDER BY CURSO"

Mejor cambialo por :

sBuscar = "SELECT * FROM CURSOS WHERE CURSO LIKE '% " & sBuscar & "%' ORDER BY CURSO"

Saludos

[_Brian_]

intenta sin declarar Dim tRs As Recordset
no declares la variable tRs

[unholy]

Asi a bote pronto y a no ser que la tengas declarada como variable global, el error es que no tienes declarada una conexion con la base de datos.