Consulta ASP-DBF si funciona pero tiene un error
Cesar Gutierrez
23 de Septiembre del 2002
El problema es que no funciona cuando realizo un busqueda por un campo de tipo numerico. Aparece el error:
"Incopatibilidadd e campos"
Que puedo hacer para resolver el problema?
Es la manera corresta de hacer la consulta?
Esta el la primera pagina, que manda llamar a la otra pagina, pasando por url el campo a buscar.
<HTML>
<form method="Get" action="Concursos.asp">
<body bgcolor="#FFFFFF" text="#000000">
<CENTER>
<table width="56%" border="0">
<tr>
<td>
<div align="center"></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" color=#339900><b><font size=5>Concursos</font></b></font></div>
</td>
</tr>
</table>
<hr color=red align="center" width="530" noshade>
<table width="55%" border="0">
<tr>
<td>
Concursos:
</td>
</tr>
<tr>
<td>
<input type="text" size="15" name="Cve_ccop">
</td>
</tr>
</table>
<INPUT type=submit value=Enviar></INPUT>
<INPUT type=reset value=Limpiar></INPUT>
</HTML>
ESTA ES LA SEGUNDA Y LA PRINCIPAL.
NOTA CVE_CCOP ES UN CAMPO DE TIPO NUMERICO.
<%
ICheck=Request.querystring("Cve_ccop")
Found=0
Set Cm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Cm.ActiveConnection="Fox"
sSQL="SELECT * FROM Invconc"
Cm.CommandText=sSQL
Cm.CommandType=1
Set Rs=Cm.Execute
Do Until Rs.EOF
VCompania=Rs("Cve_ccop")
VConcurso=Rs("Concurso")
VOficio=Rs("Ofi_Inv")
VFechaOficio=Rs("Fech_Ofi")
RCheck=RS("Cve_ccop")
If RCheck=ICheck Then 'En esta parte realizo
' el filtrado
%>
<center>
<b>Compañia:</b><%=VCompania%><br>
<b>Concurso:</b><%=VConcurso%><br>
<b>Oficio:</b><%=VOficio%><br>
<b>Fecha de Oficio:</b><%=VFechaOficio%><br>
</center>
<%
Found=1
End If
Rs.MoveNext
Loop
If Found=0 then
%>
Se terminaron los registros.
<%
End if
%>
Estoy configurando un DNS de sistema hacia las tablas dbf (trayectoria).
"Incopatibilidadd e campos"
Que puedo hacer para resolver el problema?
Es la manera corresta de hacer la consulta?
Esta el la primera pagina, que manda llamar a la otra pagina, pasando por url el campo a buscar.
<HTML>
<form method="Get" action="Concursos.asp">
<body bgcolor="#FFFFFF" text="#000000">
<CENTER>
<table width="56%" border="0">
<tr>
<td>
<div align="center"></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" color=#339900><b><font size=5>Concursos</font></b></font></div>
</td>
</tr>
</table>
<hr color=red align="center" width="530" noshade>
<table width="55%" border="0">
<tr>
<td>
Concursos:
</td>
</tr>
<tr>
<td>
<input type="text" size="15" name="Cve_ccop">
</td>
</tr>
</table>
<INPUT type=submit value=Enviar></INPUT>
<INPUT type=reset value=Limpiar></INPUT>
</HTML>
ESTA ES LA SEGUNDA Y LA PRINCIPAL.
NOTA CVE_CCOP ES UN CAMPO DE TIPO NUMERICO.
<%
ICheck=Request.querystring("Cve_ccop")
Found=0
Set Cm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Cm.ActiveConnection="Fox"
sSQL="SELECT * FROM Invconc"
Cm.CommandText=sSQL
Cm.CommandType=1
Set Rs=Cm.Execute
Do Until Rs.EOF
VCompania=Rs("Cve_ccop")
VConcurso=Rs("Concurso")
VOficio=Rs("Ofi_Inv")
VFechaOficio=Rs("Fech_Ofi")
RCheck=RS("Cve_ccop")
If RCheck=ICheck Then 'En esta parte realizo
' el filtrado
%>
<center>
<b>Compañia:</b><%=VCompania%><br>
<b>Concurso:</b><%=VConcurso%><br>
<b>Oficio:</b><%=VOficio%><br>
<b>Fecha de Oficio:</b><%=VFechaOficio%><br>
</center>
<%
Found=1
End If
Rs.MoveNext
Loop
If Found=0 then
%>
Se terminaron los registros.
<%
End if
%>
Estoy configurando un DNS de sistema hacia las tablas dbf (trayectoria).