error de poco parametro

pussy · #1 (**permalink**) 12/07/2008, 17:23

estoy haciendo un buscador de dato y resulta que cuando lo lanzo me sale un mensaje ke dice Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/pagina/buscar/usuario/buscar.asp, línea 26 si me puede ayudar se lo agradeceria mi codigo es

<html>

<head>
<title>Buscar.asp</title>

</head>

<body>
Resultados obtenidos con <%=Request("palabra") %>

<%
Dim conectar,RS

Set conectar=Server.CreateObject("adodb.connection")
Set RS=Server.CreateObject("adodb.recordset")
Dim Temp,Rango
Rango=Request("Tipo")
conectar.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\PAGINA\cobranza.md b"
'conectar.open "cobranza_sql"
If Rango="1" Then
Temp="Select * From I_usuario Where UCase([rut])='" & UCase(Request("palabra")) & "' or UCase([nombre])='" & UCase(Request("palabra")) & "'or UCase([apellido])='" & UCase(Request("palabra")) & "'"
Else
Temp="Select * From I_usuario Where (InStr(UCase([rut]),'" & UCase(Request("palabra")) & "')>0) or (InStr(UCase([nombre]),'" & UCase(Request("palabra")) & "')>0) or (InStr(UCase([apellido]),'" & UCase(Request("palabra")) & "')>0)"
End If

RS.Open Temp, conectar
If RS.BOF And RS.EOF Then
%>

No se ha encontrado ningún registro que reúna las condiciones del criterio <%=Request("Criterio")%> en la Base de Datos

<%
Else
%>

<center>
<table border="1">
<tr>
<td width="90">Rut</td>
<td width="90">Nombre</td>
<td width="90">Apellido Paterno</td>
<td width="90">Apellido Materno</td>
<td width="90">Servicio</td>
<td width="90">Centro Costo</td>
<td width="90">Telefono</td>
<td width="90">Cargo</td>
</tr>
<% While Not RS.EOF%>
<tr>
<td width="90"><%=RS.Fields("rut")%></td>
<td width="90"><%=RS.Fields("nombre")%></td>
<td width="90"><%=RS.Fields("apellidopaterno")%></a></td>
<td width="90"><%=RS.Fields("apellidomaterno")%></td>
<td width="90"><%=RS.Fields("servicio")%></td>
<td width="90"><%=RS.Fields("ccosto")%></a></td>
<td width="90"><%=RS.Fields("telefono")%></td>
<td width="90"><%=RS.Fields("cargo")%></td>
</tr>
<%
RS.MoveNext
Wend
RS.Close
conectar.Close
End If
%>
</table>
</center>

</body>
</html>
espero ke me ayude mucha gracia

Shiryu_Libra · #2 (**permalink**) 12/07/2008, 18:21

pero en que sentencia te arroja el error???

realiza lo siguiente, en esta seccion escribe lo siguiente

Cita:

response.write TEMP
response.flush()
RS.Open Temp, conectar
If RS.BOF And RS.EOF Then

eso es para que te escriba la sentencia SQL que intentas, por que al parecer tienes 2 opciones, y no muestras cual de ellas te arroja el problema

pussy · #3 (**permalink**) 12/07/2008, 22:22

bueno ingrese un nopmbre llamado rodrigo y me salio este mensaje pero no lo entendi:

Resultados obtenidos con rodrigo

Select * From I_usuario Where (InStr(UCase([rut]),'RODRIGO')>0) or (InStr(UCase([nombre]),'RODRIGO')>0) or (InStr(UCase([apellido]),'RODRIGO')>0)
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.

/pagina/buscar/usuario/buscar.asp, line 27

Shiryu_Libra · #4 (**permalink**) 12/07/2008, 22:33

intenta lo siguiente

de esto....

Cita:

If Rango="1" Then
Temp="Select * From I_usuario Where UCase([rut])='" & UCase(Request("palabra")) & "' or UCase([nombre])='" & UCase(Request("palabra")) & "'or UCase([apellido])='" & UCase(Request("palabra")) & "'"
Else
Temp="Select * From I_usuario Where (InStr(UCase([rut]),'" & UCase(Request("palabra")) & "')>0) or (InStr(UCase([nombre]),'" & UCase(Request("palabra")) & "')>0) or (InStr(UCase([apellido]),'" & UCase(Request("palabra")) & "')>0)"
End If

a esto....

Código:

palabra = UCase(Request("palabra"))
If Rango="1" Then
    Temp =    "Select * From I_usuario"&_
            " Where rut like '%" & palabra & "%'"&_
            " or nombre like '%" & palabra & "%'"&_
            " or apellido like '%" & palabra & "%';"
Else
    Temp = "Select * From I_usuario"&_
            " Where rut like '%" & palabra & "%'"&_
            " or nombre like '%" & palabra & "%'"&_
            " or apellido like '%" & palabra & "%';"
End If

Adler · #5 (**permalink**) 13/07/2008, 06:15

Hola

Si aún con lo que te ha dicho Shiryu,

continua dando error, dos preguntas

¿Cuando el rango es 1, funciona?

¿Hay algún campo en la tabla que se llame - apellido -? Lo digo por que al mostrar los datos obtenidos de la consulta aparece

<td width="90"><%=RS.Fields("apellidopaterno")%></a></td>
<td width="90"><%=RS.Fields("apellidomaterno")%></td>

pero no apellido

Suerte

pussy · #6 (**permalink**) 13/07/2008, 17:21

mucha gracia por su ayuda pero donde soy muy mecanica no me avia dado cuenta de ese error que me menciono adler bueno todo ahora funciona bien asta luego y denuevo gracia

pussy · #7 (**permalink**) 13/07/2008, 18:18

pero volvi con un erro similar pero esto no es buequeda es para crear acciones pero me sale el mismo error
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/pagina/acciones/accionesotros.asp, línea 29
rebise mi base de dato de piea a cabeza y esta bes me pillo mi codigo son :

<%
series=request.form("serie")
nuss=request.form("nus")
caract=request.form("caracteristica")
funciones=request.form("funcion")
Set conectar=Server.CreateObject("ADODB.Connection")
Set RS =Server.CreateObject ("ADODB.RecordSet")
'conectar.open "cobraza_sql"
conectar.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\PAGINA\cobranza.md b"
eliminar=request.Form("Elimina")
crea=request.Form("crear")

if (eliminar="Elimina") then
sql= "Select * from I_otros where serie =" & series &""
'response.Write(sql)
Set RS =conectar.execute(sql)
if RS.eof then
response.redirect "error.asp"

else
eliminar = "Delete I_otros where serie =" & series &""
conectar.execute(eliminar)
response.redirect "acciontres.asp"
end if
end if

if (crea="Crear/Modificar") then
sql= "Select * from I_otros where serie =" & series &""
Set RS =conectar.execute(sql)
if RS.eof then
Inserta="Insert Into I_otros(serie, nus, caracteristica, funcion) values("& series & ", '" & nuss & "', '" & caract & "', '" & funciones & "') "
conectar.execute(Inserta)
response.Write(Inserta)
response.redirect "accionuno.asp"

else
actualisar="Update I_otros Set serie='" & serie & "'"
RS("nus") = nuss
RS("caracteristica") = caract
RS("funcion") = funciones
Set RS=conectar.execute(actualisar)
response.redirect "acciondos.asp"
end if
end if
%>

Shiryu_Libra · #8 (**permalink**) 13/07/2008, 19:53

realiza el mismo procedimiento de la consulta, imprime tu sentencia, y especifica que linea es...
tambien verifica los campos como lo señalo Adler (

)

misma rutina de depuracion

pussy · #9 (**permalink**) 13/07/2008, 20:09

gracia ty lo felisito por su pagina pues si no estuviera yo no se como me lo ubise arreglado