Comprobar si el usuario ya existe en la bd

[epa2]

Hola amigos, como indica el título de este post, estoy "intentando" comprobar si el usuario ya existe en la bd,

en caso de que exista, pues no se hace el insert en la bd y se cierra la conexión. El caso es que no acabo de pulirlo, miren ustedes que más entienden de esto que yo

Código PHP:

  '''' AcÁ Creamos la conexión y el recorset (Rs)
 
'decir que la bd tiene el campo "idusuario" y "pass" por el que quiero realizar la SQL y comprobar si existe
 
rs.open "SELECT * FROM Files WHERE Files.Idusuario = '"+session("Idusuario") & "' And Files.pass = '" & Session("pass") & "'",connStr,2,2
 
'=======================================================================
        'Comprobamos que no exista un registro duplicado, así que lo insertamos
        '=======================================================================
        If  rs.BOF AND rs.EOF Then 
                
         A meter datos por un tubo......
 
        rs.AddNew
          rs("File Name") = Nombre
          rs("File Apellidos") = Apellidos
          rs("File Ciudad") = Ciudad
 
        rs.Update
        
        rs.Close
        Set rs = Nothing
        
      Response.Write "<font color=""blue"">Los datos se ha enviado correctamente..."
      Response.Write "</font>"
 
Else
 
Response.Write "Solo puedes realizar una inscripción."
    Response.End 
 
End If 
   

Bueno, esto es todo, ¿en que me estoy equivocando???, me sigue metiendo siempre y siempre los mismo datos repes, no comprueba el If

bueno, nos vemos pronto (espero)

Gracias de antemano

[Myakire]

Bueno, me imagino que si cambias tu cadena de adUseServer a adUseClient se arreglaría el código: ...,connStr,2,3.

Aunque tambien podrías meter el cursor a un arrglo con GetRows y verificar el Ubound del mismo.

y solo como un comentario, ¿Si ya es EOF, no es reduntante preguntar for el BOF?, digo, no es que no funcione, pero si preguntar por rs.EOF da TRUE, ¿no es suficiente?

Saludos

[meru-kun]

Pues hombre, yo ahí lo que veo es que haces el "check" por idusuario, donde idusuario es un objeto de tipo Session.

Y como cada vez que se inicia una sesión, ese string va a ser diferente, pues aunque meta dos veces el mismo nombre, la string de sesión será diferente y te contará.

Yo creo que deberías hacer algo como
"SELECT * FROM TABLA WHERE FILE NAME='" & Request.Form("nombre")&"'"
set mr = conexion.execute(strSQL)
if mr.eof or mr.bof
-metes datos
else
-mensaje de nombre ya cogido
end if

Algo así ¿no?

[epa2]

amigos, gracias por colaborar, voy a probar con ambas opciones, a ver que tal.

nos vemos pronto

[epa2]

Pues nada amigos, por una misteriosa razón, no me funciona el filtro para comprobar si el registro ya se encuentra en la bd. he probado de la siguiente manera.

'decir que la bd tiene el campo "idusuario" y "pass" por el que quiero realizar la SQL y comprobar si existe

rs.open "SELECT * FROM Files WHERE Files.Idusuario = '"+session("Idusuario") & "' And Files.pass = '" & Session("pass") & "'",connStr,2,3

'Comprobamos que no exista un registro duplicado, así que lo insertamos
'=============================================== ========================
If rs.BOF Then

' A meter datos por un tubo......

rs.AddNew
rs("File Name") = Nombre
rs("File Apellidos") = Apellidos
rs("File Ciudad") = Ciudad


rs.Update

rs.Close
Set rs = Nothing

Response.Write "<font color=""blue"">Los datos se ha enviado correctamente..."
Response.Write "</font>"

Else

Response.Write "Solo puedes realizar una inscripción."
Response.End

[epa2]

Pues nada amigos, por una misteriosa razón, no me funciona el filtro para comprobar si el registro ya se encuentra en la bd. he probado de la siguiente manera.

'decir que la bd tiene el campo "idusuario" y "pass" por el que quiero realizar la SQL y comprobar si existe

rs.open "SELECT * FROM Files WHERE Files.Idusuario = '"+session("Idusuario") & "' And Files.pass = '" & Session("pass") & "'",connStr,2,3

'Comprobamos que no exista un registro duplicado, así que lo insertamos
'=============================================== ========================
If rs.BOF Then

' A meter datos por un tubo......

rs.AddNew
rs("File Name") = Nombre
rs("File Apellidos") = Apellidos
rs("File Ciudad") = Ciudad
rs("File Pass") = Pass
rs("File Idusuario") = Idusuario

rs.Update

rs.Close
Set rs = Nothing

Response.Write "<font color=""blue"">Los datos se ha enviado correctamente..."
Response.Write "</font>"

Else

Response.Write "Solo puedes realizar una inscripción."
Response.End


¿Que es lo que estoy haciendo mal???
¿por que sigo metiendo al mismo todas las veces que quiero????

[trasgukabi]

así a simple vista debería funcionar. porqué no pruebas a comprobar que el recordset está vacío con rs. recordcount?

[epa2]

Hola de nuevo,

mira, he hecho lo siguiente....

registros = rs.RecordCount
Response.write "El número de registros es:" & registros
Response.End


y me devuelve un valor negativo -1, ¿por queeee????

cada vez entiendo menos esto

[epa2]

Hola de nuevo, siguiendo haciendo pruebas, tengo esto....

`donde id es el nombre del campo autonumerico de la tabla

if Id.rs.RecorCount = 0 Then
Response.Write "la tabla esta vacia, debera ingresar el registro"
end if


' y ahora me dice que
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''


jo,

[trasgukabi]

has puesto id.rs.recordcount y sería solo rs.recordcount. en cuanto a recordcount, abre el rs con
"connStr,3,1"

[epa2]

okis, voy a mirarlo ahora mismito.

un segundo

[epa2]

Hola de nuevo, gracias por estar ahí y perdonar mi ignorancia

He probado a abrir el recorset con el "connStr,3,1" y me dice...

ADODB.Recordset error '800a0cb3'

El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.


luego, tambien, probando he puesto....

if rs.RecorCount = 0 Then
Response.Write "la tabla esta vacia, debera ingresar el registro"
end if

y me sale ....


rror de Microsoft VBScript en tiempo de ejecución error '800a01b6'

El objeto no acepta esta propiedad o método: 'RecorCount'


pues ya ves, me parece que el servidor web me está jugando una mala pasada

[Myakire]

RecorDCount, Epa2, RecordCount

[epa2]

(no coment)

ahora os digo

Gracias por la paciencia

[epa2]

Bueno, ya estoy aquí de nuevo, al final teneis razón, me dice que la tabla está vacia, he escrito lo siguiente (despues del gazapo gordo del recorCount "d")

if rs.RecordCount = 0 Then
Response.Write "la tabla esta vacia, debera ingresar el registro"
end if

registros = rs.RecordCount
Response.write "El número de registros es:" & registros
Response.End

[epa2]

Bueno, ya estoy aquí de nuevo, al final teneis razón, me dice que la tabla está vacia, he escrito lo siguiente (despues del gazapo gordo del recorCount "d")

if rs.RecordCount = 0 Then
Response.Write "la tabla esta vacia, debera ingresar el registro"
end if

registros = rs.RecordCount
Response.write "El número de registros es:" & registros
Response.End

y me pinta en pantalla lo siguiente.....

a tabla esta vacia, debera ingresar el registro El número de registros es:0

¿pero como puede ser esto???

Abro el recordset con el "connStr,3,1"

siguiendo investigando, he decidido comentar la línea del Response.End para que siga el código ejecutandose y cuando llega a la línea de ...

rs.Addnew me dice...

ADODB.Recordset error '800a0cb3'

El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

¿Estoy abriendo mal el recorset???