medu50
25 de Marzo del 2005

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.

solidsnake©
25 de Marzo del 2005

Intenta hacer esto
trs.open sbuscar conexion'nombre de tu conexion

Mira si reeemplazas esa linea por esta haber que te funciona

Saludos

solidsnake©
25 de Marzo del 2005

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


*************************************
Tienes un error en sbuscar defines = text 1 y luego le das la cadena de texto que es ifual a sbuscar , cambiale el nombre al text que le das sbuscar
*******************************************

Angel
25 de Marzo del 2005

En el menu project referencias debes tener palomeadas las siguientes casillas en el orden citado ya que son por prioridad...
Visual Basic for aplications
Visual Basic run time objects and procedures
OLE automation
Microsoft ActiveX Data objects 2.5 Library
Micosoft Dao 3.6 object Library