Cómo utilizar VB para conectarse a la base de datos SQL para iniciar sesión

VB puede conectarse a la base de datos SQL a través de objetos de datos ADO y lenguaje de consulta estructurado SQL.

ADO (ActiveX Data Objects), esta nueva tecnología de acceso a datos presenta: un modelo de objetos más simple; ¿mejor compatibilidad con otros Microsoft y no Microsoft?

Integración local; y datos remotos; conjuntos de registros desconectados y accesibles de forma remota; una interfaz de enlace de datos accesible para el usuario y conjuntos de registros jerárquicos;

Lenguaje de consulta estructurado (SQL), conocido como SQL, es un lenguaje de programación de propósito especial. Es un lenguaje de programación y consulta de bases de datos que se utiliza para acceder a datos y consultar, actualizar y administrar relaciones.

Ejemplo de código:

Private Sub XPButton1_Click()

En caso de error, Ir a finalizar 'Código a prueba de errores para evitar salidas inesperadas

sql = "seleccione * de la administración de usuarios donde nombre de usuario ='" amp Text1.Text amp; "' y contraseña ='" amp Text2.Text amp "'"

cn.ConnectionString = "Provider= SQLOLEDB.1; Persist Security Info=True; ID de usuario=nombre de usuario de la base de datos de inicio de sesión (el valor predeterminado es sa); Contraseña=contraseña de la base de datos de inicio de sesión=nombre de la base de datos; ¿Instrucción para conectarse a la base de datos SQL?

cn.Open

rs.CursorLocation = adUseClient

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

'Lo anterior utiliza el método más común para consultar si hay registros coincidentes en la base de datos

Si rs.EOF = True Entonces 'Si no hay ningún registro, el usuario o la contraseña son incorrectos

Si pnum lt; 2 Entonces 'pnum es el número de veces de verificación de contraseña. Cuando el número excede 3 veces, el sistema protegerá y saldrá automáticamente

pnum = pnum 1

p>

MsgBox "¡Nombre de usuario o contraseña incorrecta!", vbInformation, "Número de errores:" amp pnum

rs.Close

cn.Close

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Salir de Sub

De lo contrario

MsgBox "Nombre de usuario O si la contraseña es incorrecta más de tres veces, el sistema saldrá automáticamente", vbInformation, "Preguntar"

Fin

Fin Si

Else

loginname = rs.Fields(0)

Form1.Show

rs.Close

cn.Close

Finalizar si

Salir Sub

Finalizar:

MsgBox Err.Description

rs. Cerrar

cn.Close

End Sub

Tenga en cuenta que la oración ?cn.ConnectionString debe basarse en la cadena obtenida al establecer una conexión con el sitio real. Base de datos SQL.