Sintaxis mal

rafa28 · #1 (**permalink**) 18/05/2007, 09:14

Estoy en una página de ASP con este código:

If myRS.EOF Then
mainMessage="userInfo=nobase"
Else
If StrComp(myRS("password"), inPassword, vbTextCompare) =0
Then
mainMessage="userInfo=ok"
Else
mainMessage = "userInfo=no"
End If
End If

Yo creo que está bien, pero me da un error de que espera un 'Then'. Entonces hago esto:

If myRS.EOF Then
mainMessage="userInfo=nobase"
Else
If StrComp(myRS("password"), inPassword, vbTextCompare) =0 Then
mainMessage="userInfo=ok"
Else
mainMessage = "userInfo=no"
End If
End If

Entonces me da un error diciendo que estas líneas están mal:

Dim myConnection
Set myConnection=Server.CreateObject("ADOB.Connection" )

Me estoy volviendo loco. Cómo es el código correcto??

Shade · #2 (**permalink**) 18/05/2007, 09:35

Te aconsejaria que lo postearas en ASP xD Te equivocaste de seccion.

JavierB · #3 (**permalink**) 18/05/2007, 09:42

Movido al foro de ASP desde JavaScript.

Saludos,

Myakire · #4 (**permalink**) 18/05/2007, 10:05

Deduzco, por lo que leo que no tienes mucha idea de ASP, supongo estas copiando de un libro o algo así, ya que tienes simples errores de omisiones de letras, es cosa de poner un poco más de atención

Set myConnection=Server.CreateObject("ADODB.Connection")

Saludos

rafa28 · #5 (**permalink**) 18/05/2007, 10:08

Ya había detectado ese eror, pero al subsanarlo, me da el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/fla/login.asp, línea 10

Os dejo todas las lineas de la conexion, a ver si encontrais el problema:

Dim myConnection
Set myConnection=Server.CreateObject("ADODB.Connection ")
myConnection.ConnectionString="DRIVER={Microsoft Acces Driver(*.mdb)};" & "DBQ=" & Server.MapPath("login.mdb")

Myakire · #6 (**permalink**) 18/05/2007, 10:12

Tienes la BD en la raíz de tu servidor?

rafa28 · #7 (**permalink**) 18/05/2007, 10:20

Está en la misma carpeta que el archivo login.asp. Ya lo he rectificado, pero entonces me dice que falta un 'Then' aquí:

If myRS.EOF Then
mainMessage="userInfo=nobase"
Else
If StrComp(myRS("password"), inPassword, vbTextCompare)= 0
Then
mainMessage="userInfo=ok"
Else
mainMessage = "userInfo=no"
End If
End If

Yo no veo que falte ninguno, pero si quito el segundo que hay y lo pongo así:

If myRS.EOF Then
mainMessage="userInfo=nobase"
Else
If StrComp(myRS("password"), inPassword, vbTextCompare)= 0 Then
mainMessage="userInfo=ok"
Else
mainMessage = "userInfo=no"
End If
End If

Entonces me da este error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/fla/login.asp, línea 10

Si tienes messenger y quieres que lo podamos hacer mejor, te mando el mio por privado, si estás de acuerdo.

Myakire · #8 (**permalink**) 18/05/2007, 11:16

Cita:

If StrComp(myRS("password"), inPassword, vbTextCompare)= 0
Then

Aquí falta un Then por que lo tienes en otra linea, en ASP no puedes cortar instrucciones para colocarlas en diferentes lineas, a menos que le avises al intérprete con un guión bajo (_)

Cambia la cadena de conexión que tienes (ODBC) por esta otra (OLEDB):

Código:

  Set myConnection= Server.CreateObject("ADODB.Connection")
  myConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("login.mdb")

rafa28 · #9 (**permalink**) 19/05/2007, 01:43

He hecho lo que me has dicho, pero ahora me sale este error:

Microsoft JET Database Engine (0x80004005)
No se reconoce el formato de base de datos 'D:\observatorio\fla\login.mdb'.
/fla/login.asp, línea 10

Myakire · #10 (**permalink**) 22/05/2007, 07:30

No mencionas en que formato esta la BD (2003, 2000, Xp, etc)

Pero evidentemente tienes que repararla, después de hacer una copia vas a Herramientas -> Utilidades -> Compactar y Reparar para solucionarlo, otra forma es bajarte alguna herramienta para esta misma tarea.

Saludos

rafa28 · #11 (**permalink**) 22/05/2007, 10:04

Estoy usando el Access 2007.
Por si acaso, he probado a guardar la base de datos en formato 2003, pero sigue sin funcionar y da el mismo error.
Qué puede estar pasando?
Vuelvo a escribir las sentencias de conexión, a ver si alguien encuentra lo que está mal.....:

Dim myConexion
Set myConexion=Server.CreateObject("ADODB.Connection")
myConexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fla/login_2003.mdb"))

Otra posibilidad que he probado:

Dim myConexion
Set myConexion=Server.CreateObject("ADODB.Connection")
myConexion.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("fla/login_2003.mdb")
myConexion.Open

AYUDA POR FAVOR!!!!!!!!!!!!

Shiryu_Libra · #12 (**permalink**) 22/05/2007, 12:06

segun la biblioteca de ConnectionStrings.com

esta es la forma que deberias tener para una base de datos Access 2007
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;

entonce quedaria asi

Código:

 Dim myConexion
Set myConexion=Server.CreateObject("ADODB.Connection")
myConexion.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;" & "DBQ=" & Server.MapPath("fla/login_2003.mdb;Persist Security Info=False;")
myConexion.Open

intentalo y ya diras

suerte

rafa28 · #13 (**permalink**) 24/05/2007, 10:23

He cambiado lo que me has recomendado, y algo cambia, porque ahora el mensaje de error es otro:

Microsoft Office Access Database Engine (0x80004005)
No se pudo encontrar el archivo ISAM instalable.

Esto a qué se debe?

rafa28 · #14 (**permalink**) 24/05/2007, 11:32

No hago más que probar diferentes maneras de conectar con la base de datos, y ya no se si pensar que me falta por instalar algún componente o algo.
Os pongo un enlace donde podeis bajaros los tres archivos que estoy usando, para que si podeis los probeis en vuestras máquinas a ver si funciona:

http://www.baixturia.net/rafa/login.rar

La base de datos la he guardado en formato de acces 2000.

Por favor, intentad ayudadme, que tengo que entregar este proyecto en 8 días y no puedo continuar adelante con él sin solucionar este paso.

Shiryu_Libra · #15 (**permalink**) 24/05/2007, 12:37

probemos esto, ya que tienes la conexion para Access 2007, haz una copia de tu base (espero que no sea muy grande), dejala en version 2007, y vuelve a intentarlo

ok?

rafa28 · #16 (**permalink**) 25/05/2007, 07:53

Lo siento, pero no entiendo lo que quieres que haga.

tammander · #17 (**permalink**) 25/05/2007, 08:43

Prueba a poner correctamente esta linea:

myConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"&"DBQ=" & Server.MapPath("fla/login2000.mdb") & ";Persist Security Info=False;")

Un saludo

rafa28 · #18 (**permalink**) 26/05/2007, 01:35

Tammander, he hecho los cambios que me has dicho, y sigue dando el mismo error:

Microsoft Office Access Database Engine (0x80004005)
No se pudo encontrar el archivo ISAM instalable.

Ya no sé qué hacer!!! Te bajaste los archivos que puse en el enlace a ver si a ti te funcionan? Así podría saber si el fallo se debe a algún componente o algo que me falta por instalar, no?

Shiryu_Libra · #19 (**permalink**) 26/05/2007, 01:59

Rafa.... modifique un poco.... me funciono a mi aki en mi pc... verificalo

DESCARGA TU ARCHIVO

suerte

rafa28 · #20 (**permalink**) 26/05/2007, 05:25

Funciona!!!!! Funciona!!!!!
Muchísimas Gracias, Te Debo Una Pero Muy Muy Grande

Shiryu_Libra · #21 (**permalink**) 26/05/2007, 10:54

y por si se preguntan que fue el por que....

DE
myConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"&"DBQ=" & Server.MapPath("fla/login2000.mdb") & ";Persist Security Info=False;")

A
myConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"&"DATA SOURCE=" & Server.MapPath("fla/login2000.mdb") & ";Persist Security Info=False;")

A CELEBRAR