Formulario de inicio de sesión para varias personas de VB
Primero debe importar los datos en EXCEL a la tabla de la base de datos que almacena nombres de usuarios y contraseñas.
Establezca la conexión de la base de datos:
Función privada OpenDB() Como booleano 'Establecer una conexión de base de datos local
En caso de error, vaya a Err0
Atenuar Conn como ADODB.Connection
Atenuar ODBC como cadena
Si Conn no es nada, entonces
Establecer Conn = New ADODB.Connection
Finalizar si
Si Conn.State = adStateClosed Entonces
ODBC = Config. GetValue("system", "ODBC")
Si ODBC = vbNullChar Entonces
ODBC = "Fuente de datos=nombre de su base de datos; UID=nombre de usuario; PWD=contraseña"
End If
Conn.ConnectionString = "Driver={SQL Server};" & ODBC 'Este es un ejemplo de base de datos SQL
Conn.CommandTimeout = 5
DoEvents
Conn.Open
Conn.CommandTimeout = 30
ConnErr = ""
LocalStat = " Normal" 'Establecer estado de conexión de base de datos local
Finalizar si
OpenDB = True
Función de salida
Err0: 'Manejo de errores según a su No requerido
If Err.Description lt;gt; ConnErr Then 'El mismo error solo se informará una vez seguida
Call WriteErrorLog("Error al establecer la conexión a la base de datos local ", Err.Description, "SqlServer/OpenDB") 'Error de registro
ConnErr = Err.Description
MsgBox Err.Description amp; vbCrLf amp; vbCrLf amp; "Por favor verifique el Servicio SQL Server instalado en esta máquina ¿Se ha iniciado el programa administrador? ", vbOKOnly, "Error en la conexión a la base de datos local"
L
ocalStat = "Desconectar" 'Establecer estado de conexión de base de datos local
Establecer Conn = Nueva ADODB.Connection
Finalizar si
Finalizar función
Aquí implementas tus operaciones en la base de datos
Función pública GetRs(ByVal strSql As String) As ADODB.Recordset 'Devuelve el conjunto de registros ejecutando la instrucción SQL
Dim Rs As ADODB.Recordset
En caso de error, Ir a Err0
Si no es OpenDB, entonces
Salir de la función
Finalizar si
Establecer Rs = Nuevo ADODB.Recordset
Rs.CursorLocation = adUseClient 'Utilice un cursor local (cliente) para que la propiedad Rs.RecordCount pueda devolver correctamente el número de filas del conjunto de registros
DoEvents
Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly
Establecer GetRs = Rs
Función de salida
Err0:
Llame a WriteErrorLog( "Local no pudo devolver el conjunto de registros al ejecutar la instrucción SQL", Err.Description, "SqlServer/GetRs", strSql)
If InStr(1, Err.Description, "Error en el enlace de comunicación ") gt; 0 Then
Set Conn = New ADODB.Connection
LocalStat = "Desconectado" 'Establece el estado de conexión de la base de datos local
End If
MsgBox Err.Description
Función final
Procesamiento de interfaz de usuario
sub privado login_click()
Dim Rs As ADODB.Recordset
dim objADO As SqlServer
Set objADO = New SqlServer
set Rs = objADO GetRs ("seleccione 1 de la tabla de usuarios donde nombre de usuario. ='"amp; txtuname.text amp; "' y contraseña = '"amp; txtumima.text amp; "' )
si no es Rs.EOF, entonces
El formulario que se muestra después de iniciar sesión correctamente
else
msgbox "El nombre de usuario y la contraseña que ingresó son incorrectos"
end if
Establecer Rs = Nada
Establecer objADO = Nada
end sub
Para agregar un nuevo nombre de usuario y contraseña, cambie la declaración de consulta anterior ¡Eso es todo! ¡Uf, qué agotado!