Error \'3061\'en tiempo de ejecucion
daniels
11 de Diciembre del 2003
No tengo a la mano la ayuda de VB, si alguien sabe o tiene el contenido de este error, por favor mandamelo.
En la ventana de error dice:
Error '3061'en tiempo de ejecucion
Pocos parametros. Se esperaba 1
...y esto me pasa cuando le doy Data1.Refresh, despues de asignarle una consulta. El codigo es este:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim AUX
If Node.Children = 0 Then
AUX = Node.Text
Data2.RecordSource = "select [CLAVE],[NOMBRE_ARCHIVO],[TAMAÑO],[TIPO],[DESCRIPCION],[FECHA_MOD],[DIRECCION],[NOMBRE_SUBCATEGORIA] from [ARCHIVOS] where [NOMBRE_SUBCATEGORIA]='" & AUX & "' And [CLAVE]='" & Data1.Recordset![CLAVE] & "'" & " Order by [NOMBRE_CATEGORIA]"
Data2.Refresh ' <<< Aqui marca el error!!!!
Call Listado2
End If
End Sub
En la ventana de error dice:
Error '3061'en tiempo de ejecucion
Pocos parametros. Se esperaba 1
...y esto me pasa cuando le doy Data1.Refresh, despues de asignarle una consulta. El codigo es este:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim AUX
If Node.Children = 0 Then
AUX = Node.Text
Data2.RecordSource = "select [CLAVE],[NOMBRE_ARCHIVO],[TAMAÑO],[TIPO],[DESCRIPCION],[FECHA_MOD],[DIRECCION],[NOMBRE_SUBCATEGORIA] from [ARCHIVOS] where [NOMBRE_SUBCATEGORIA]='" & AUX & "' And [CLAVE]='" & Data1.Recordset![CLAVE] & "'" & " Order by [NOMBRE_CATEGORIA]"
Data2.Refresh ' <<< Aqui marca el error!!!!
Call Listado2
End If
End Sub
kinoscar
11 de Diciembre del 2003
EL ERROR ESTA EN LA CONSULTA NO EN EL REFRESH POR SI ACASO
Y SEGUN VEO ESTAS HACIENDO UN ORDER BY DE UN CAMPO QUE NO ESTA INCLUIDO EN LA CONSULTA, NOMBRE_CATEGORIA NO ESTA DENTRO DEL SELECT
Y SEGUN VEO ESTAS HACIENDO UN ORDER BY DE UN CAMPO QUE NO ESTA INCLUIDO EN LA CONSULTA, NOMBRE_CATEGORIA NO ESTA DENTRO DEL SELECT
daniels
11 de Diciembre del 2003
No entendia porque, pero efectivamente ese es el problema que tenia,, kinoscar,
Muchas gracias por tu tiempo..
Muchas gracias por tu tiempo..