Tema: verificacion
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 19/06/2004, 10:18
Avatar de Avelar
Avelar
 
Fecha de Ingreso: noviembre-2002
Ubicación: Ensenada, Baja California, México
Mensajes: 673
Antigüedad: 22 años, 4 meses
Puntos: 1
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
%>
__________________
Ariel Avelar