verificacion

[pzambrano]

como verificar al usuario de la bd que ya esta registrado

[Avelar]

Iniciado por pzambrano

como verificar al usuario de la bd que ya esta registrado

Con una consulta SQL utilizando en el WHERE la cuenta del usuario...

Si regresa registros es que el usuario existe, y si existe verificar que el password introducido sea el que está almacenado en la BD...

¿Es lo que preguntas?

[pzambrano]

bueno solo deseo comparar por lo menos el usuario si esta en la base de datos para que le responda que debe ingresar otro usuario este es mi codigo:

strsql="select * from usuarios where usuario= '" & strg & "'"
Response.Write strsql
objconn.Execute (strsql)
'objrs.Open strsql,objconn
if objrs.RecordCount="" then
'if not(objrs.BOF and objrs.EOF)then
'if objrs(8)=" & strg & " then
'if(objrs.Filter ="usuario='"& strg &"'") then
Response.Write "Debe ingresar otro usuario, ya hay otro usuario igual<br>"
Response.Write "Retornar al formulario para llenar correctamente mis datos<a href='javascript:history.back()'>Regresar</a>"
Response.End

yo lo estaba probando asi pero lo que ves comentado es que lo intente pero no me arroja nada.

gracias de antemano por la ayuda

[Avelar]

Aquí te va un ejemplo de como lo hago yo:

Código:

<%
'Declarar objetos
Dim AdoConnection 
Dim AdoCommand 
Dim AdoRecordset 
 
'Crear objetos.
Set AdoConnection = Server.CreateObject("ADODB.Connection") 
Set AdoCommand = Server.CreateObject("ADODB.Command") 
Set AdoRecordset = Server.CreateObject("ADODB.Recordset") 
 
'Dar a la conexión la ruta a la base de datos.
AdoConnection.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\BD.mdb")
 
'Abrir la conexión.
AdoConnection.Open
 
'Formar la consulta para verificar si el usuario existe en la BD. 
cSQL = "SELECT Usr_Cuenta " & _ 
		  "FROM Usuarios " & _ 
		  "WHERE Usr_Cuenta = '" & cUsr_Cuenta & "' "
 
'Realizar la consulta.
With AdoCommand
	.ActiveConnection = AdoConnection 'Indicar la conección activa para el objeto ADODB.Command.
	.CommandTimeout = 600
	.CommandText = cSQL
	Set AdoRecordset = .Execute 
End With
 
'Si la cuenta existe.
If AdoRecordset.EOF = True Then
	Response.Write "<p style='color: #00013E;'><b>El usuario indicado no existe en la base de datos.</b></p>"
'Si la cuenta no existe.
Else
	'Código para hacer lo que quieras cuando no existe. 
End If 
 
'Cerrar el Recordset.
AdoRecordset.Close
 
'Cerrar la conexión con la base de datos
AdoConnection.Close
 
'Liberar la memoria destruyendo los objetos.
Set AdoRecordset = Nothing
Set AdoCommand = Nothing
Set AdoConnection = Nothing
%>

[Avelar]

Para la próxima no utilizaré el editor WYSIWYG... la identación del código no es normal...