Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Necesito urgente Ayuda...Por favor miren
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Vallejos
New Member

Chile
72 Posts
Mensajes - 12 Dec 2003 :  04:02:03  Ver Perfil  Enviar Email
Miren...Visiten la pagina www.insectplanet.com y vayan al lenguaje japones o chino...cualquiera
y prueben el boton que tiene una Lupa (Search) le ponen TITAN y click....
y aparece un error tonto...

este :
Insert Into Temporal (Foto, Cod, Fam, Nc, Size, Sex, Loc, ForS, Price, Usuario) Values ('','52','','DORCUS TITANUS SIKA','50/54 mm','M','','OK','','200.11.95.199')

se supone que todo esta ok...
la definicion de campos en la base, si son caract o num...etc....

pero me manda este error
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/Chinese/Busqueda.asp, line 67


este es el codigo...les juro que no he encontrado nada...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%>
<%
Response.Expires=0
Dim adoCon
Dim rsAct
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DBQ=" & Server.MapPath("../Data/Insectos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
strSQL = "DELETE FROM Temporal Where Usuario='" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set rsAct = Server.CreateObject("ADODB.Recordset")
rsAct.CursorType = 1
rsAct.LockType = 3
adoCon.Execute(strSQL)
Set rsAct = Nothing
Set adoCon = Nothing
%>

<%Cadena=Request.Form("Search")

Dim bases(24) ' hay que agrandar este numero si agregan nuevas tablas a la BD
bases(0)="AliveAara"
bases(1)="AliveAcar"
bases(2)="AliveAluc"
bases(3)="AliveApha"
bases(4)="Buprestidae"
bases(5)="Carabidae"
bases(6)="Cerambycidae"
bases(7)="Cetonidae"
bases(8)="Curculionidae"
bases(9)="Dynastidae"
bases(10)="Elateridae"
bases(11)="Hesperidae"
bases(12)="Lucanidae"
bases(13)="Morphidae"
bases(14)="Nymphalidae"
bases(15)="Papilionidae"
bases(16)="Pieridae"
bases(17)="Rutelidae"
bases(18)="Satiridae"
bases(19)="Scarabeidae"
bases(20)="Tenebrionidae"
bases(21)="Cicindelidae"
bases(22)="Geotrupinae"
bases(23)="Melolonthinae"
bases(24)="Trichinae"
lista=""
For l=0 To 24
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30
DataConn.Open "DBQ=" & Server.MapPath("../Data/Insectos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConn
cmdDC.CommandText = "Select Foto, Fam, ForS, Cod, nc, Size, loc, sex, price FROM " & Bases(l) & " Where Nc like '%" & (Request.Form("Search")) & "%'"
cmdDC.CommandType = 1
Set R2 = Server.CreateObject("ADODB.Recordset")
R2.Open cmdDC
While (not R2.Eof)
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DBQ=" & Server.MapPath("../Data/Insectos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
strSQL = "Insert Into Temporal (Foto, Cod, Fam, Nc, Size, Sex, Loc, ForS, Price, Usuario) "
strSQL = strSQL & "Values ('" & R2("Foto") & "','" & R2("Cod") & "','" & R2("Fam") & "','" & R2("Nc") & "','" & R2("Size") & "','" & R2("Sex") & "','" & R2("Loc") & "','" & R2("ForS") & "','" & R2("Price") & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
RESPONSE.Write(STRSQL)
Set rsAct = Server.CreateObject("ADODB.Recordset")
rsAct.CursorType = 1
rsAct.LockType = 3
adoCon.Execute(strSQL)
Set rsAct = Nothing
Set adoCon = Nothing
Lista="d"
R2.MoveNext()
Wend
R2.Close()
Set R2 = Nothing
Next
If Trim(Lista)="" Then
Response.Redirect("Mostrador.asp") ' mandar mensaje que no se encontro nada
Else
Response.Redirect("Generalista.asp?Tipo=Temporal" & "&Nomm=Temporal")
End If
%>
<html>
<head>
<title>Searching into InsectPlanet</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>

<body>
</body>
</html>

AYUDENME PORFIS...ESTOY DESESPERADO...NO DOY CON EL PROBLEMA....POR MAS QUE LO ESTUDIO.
GRACIAS.

buho_nero
Moderator

España
1316 Posts
Posted - 12 Dec 2003 :  09:46:42  Ver perfil  Enviar e-mail
Para empezar deberías dar un repaso a fondo del concepto de conexión.
Tienes un "for" de 24 pasos, y en cada uno creas una Connection diferente, y por si fuera poco tienes un while recorriendo una consulta en cada paso del for donde creas OTRA conexión en cada paso (y además es la misma ruta que la del for).
Todo lo que estás haciendo se consigue con una única Connection que abres al principio de la página y cierras al final.
Ordena eso y prueba otra vez. No parece que sea ese el problema, pero debes sacártelo de encima antes de nada.

Inicio Pagina

Vallejos
New Member

Chile
72 Posts
Posted - 13 Dec 2003 :  23:36:11  Ver perfil  Enviar e-mail
Gracias buho....todo esto lo he hecho con lo que he aprendido aqui, eso que me dices es nuevo para mi...pero tienes razon....buscare a nivel de base de datos ...no tablas...
gracias.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar