Ayuda Maestros!!!

ciberan · #1 (**permalink**) 13/06/2002, 17:21

Necesito Aydua Urgente!!!
Estoy que me

con un script que "supuestamente" deberia ingresar datos en una db de access, luego de comprobar si los datos no son usados, pero aparece el siguiente error:

Código:

 Microsoft JET Database Engine error '80040e37' 

El motor de base de datos Microsoft Jet no puede encontrar la tabla o consulta de entrada 'Data'. Asegúrese de que existe y que su nombre está escrito correctamente. 

/ingreso.asp, line 34

P.d estoy trabajando con PWS en Win98 y off xp, sera que hay que descargar algun modulo para trabajar con access xp en pws?
--Gracias

urjose · #2 (**permalink**) 13/06/2002, 17:25

Pues segun el error , en la Query SQL debes estar nombrando una tabla de la base de datos que no existe, puede ser que este mal escrita.

Saludos

<center><a href="http://www.forosdelweb.com/comment_usr.asp?usr=urjose">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

ciberan · #3 (**permalink**) 13/06/2002, 17:25

Este es el script:

Código:

  &lt;html&gt;
&lt;head&gt;
&lt;title&gt;.:.Ingreso.:.&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;/head&gt;

&lt;body bgcolor=&quot;#CCCCCC&quot; text=&quot;#000000&quot;&gt;
&lt;%

Dim nombre, apellido, pais, login, password, basedatos
Dim correcto
Dim conexion, registros, SQL

'Recogemos el formulario
nombre=Request.Form(&quot;nombre&quot;)
apellido=Request.Form(&quot;apellido&quot;)
correo=Request.Form(&quot;correo&quot;)
password=Request.Form(&quot;password&quot;)
login=Request.Form(&quot;user&quot;)

correcto=True
'Comprobamos que no hay campos vacíos
if nombre=&quot;&quot; then correcto=False end if
if apellido=&quot;&quot; then correcto=False end if
if password=&quot;&quot; then correcto=False end if

if correcto then
'Solo si todo está bien, comprobamos con la bd

Set conexion = Server.CreateObject(&quot;ADODB.Connection&quot;)
basedatos = Server.MapPath(&quot;db/databaseusers.mdb&quot;)
conexion.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot; &amp; basedatos &amp; &quot;;&quot;
SQL=&quot;SELECT * FROM Data WHERE (Login='&quot;&amp;login&amp;&quot;');&quot;
set registros=conexion.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not registros.EOF then
Response.Write(&quot;El nombre de usuario ya está siendo utilizado. &quot;)
Response.Write(&quot;Por favor, escoja otro.&quot;)
else
' es vacio, así que le insertamos en la bd
SQL=&quot;insert into Data (Login, Password, Nombre, Apellido, E-Mail ) values ('&quot;
SQL = SQL &amp; Request.Form(&quot;login&quot;) &amp; &quot;', '&quot;
SQL = SQL &amp; Request.Form(&quot;password&quot;) &amp; &quot;', '&quot;
SQL = SQL &amp; Request.Form(&quot;nombre&quot;) &amp; &quot;', '&quot;
SQL = SQL &amp; Request.Form(&quot;apellido&quot;) &amp; &quot;', '&quot;
SQL = SQL &amp; Request.Form(&quot;correo&quot;) &amp; &quot;')&quot;

conexion.Execute(SQL)
Response.Write(&quot;Gracias por registrarte, &quot;&amp; nombre)
end if

'Limpiamos objetos
registros.Close
conexion.Close
set registros=nothing
set conexion=nothing
else
'El usuario ha metido datos incorrectos
Response.Write(&quot;Datos incorrectos!&quot;)
end if
%&gt;

&lt;/body&gt;
&lt;/html&gt;