Buenas tardes estoy tratando de loguearme desde un formulario frm_login teniendo una tabla de usuarios en mi base de datos pero me arroja el siguiente error cuando coloco el usuario y la clave de manera correcta:
se ha producido el error '91' en tiempo de ejecucion:
variable de objeto o bloque with no establecido.
Favor agradezco su apoyo.para resolver el problema
Sub Ingresar()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim cmd As New ADODB.Command
Call Conectar_Sql ' parametros de conexion a la base de datos con sql
Dim TxtUser, txtpass As String
TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value))
txtpass = Trim(Frm_Login.TxtClave.Value)
rst.ActiveConnection = con
rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'"
rst.Open
If rst.RecordCount <> 0 Then
Do While Not rst.EOF
If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then
Call Acceso
Else
Frm_Login.TxtClave.Value = ""
End If
rst.MoveNext
Loop
Frm_Login.TxtClave.Value = ""
End If
rst.Close
Set rst = Nothing
con.Close
'--------------------------------------------------
End Sub
Sub Acceso()
Unload Frm_Login
Frm_Contenedor.Show
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes estoy tratando de loguearme desde un formulario frm_login teniendo una tabla de usuarios en mi base de datos pero me arroja el siguiente error cuando coloco el usuario y la clave de manera correcta:
se ha producido el error '91' en tiempo de ejecucion:
variable de objeto o bloque with no establecido.
Favor agradezco su apoyo.para resolver el problema
Sub Ingresar() Set con = New ADODB.Connection Set rst = New ADODB.Recordset Dim cmd As New ADODB.Command Call Conectar_Sql ' parametros de conexion a la base de datos con sql Dim TxtUser, txtpass As String TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value)) txtpass = Trim(Frm_Login.TxtClave.Value) rst.ActiveConnection = con rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'" rst.Open If rst.RecordCount <> 0 Then Do While Not rst.EOF If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then Call Acceso Else Frm_Login.TxtClave.Value = "" End If rst.MoveNext Loop Frm_Login.TxtClave.Value = "" End If rst.Close Set rst = Nothing con.Close '-------------------------------------------------- End Sub
Sub Acceso() Unload Frm_Login Frm_Contenedor.Show End Sub