Red de conocimiento informático - Problemas con los teléfonos móviles - Programación Qx

Programación Qx

¿Es vb6.0? ¿Puedo usar access para acceder a la base de datos?

Le daré un ejemplo de cómo iniciar sesión utilizando datos en la base de datos.

"Dim ADOrs As New Recordset" declara un objeto de conjunto de registros.

Atenuar strSQL como cadena

Athos. "ActiveConnection = ADOcn" está asociado al objeto de conexión ADOcn.

Si trim (combo1.text) = " " o trim (text2.text) = " ", verifique si el nombre de usuario y la contraseña están vacíos.

MsgBox "El nombre de usuario y la contraseña no pueden estar vacíos, por favor llénelos nuevamente", vbOKOnly+vbInformation.

Conector de salida

Terminará si...

StrSQL = " select * from qxsz donde nombre del operador = ' "+Trim(combo 1. texto) + " ' "

Athos. Abra la consulta strSQL por nombre de usuario.

Si Athos. "EOF Entonces" No se puede encontrar al usuario.

MsgBox "El operador no existe", VB crítico+vbo solamente

Combo1. text=" "

Combo1. SetFocus

Conector de exportación

ElseIf text2. Text & lt& gtTrim(ADOrs.Fields ("contraseña")) T verifica la contraseña después de encontrar al usuario.

MsgBox "La contraseña es incorrecta", vbOKOnly+vbInformation

Texto 2. texto = " "

Texto2. SetFocus

Conector de salida

Terminará si...

El usuario inició sesión correctamente y se registró el parámetro de tipo de usuario.

Nombre de usuario = Combo1. Texto

Contraseña = Texto2. Texto

Athos. Cerrar

Establecer ADOrs=None

ADOcn. Cerrar

Establecer ADOcn = Nada

Frm_Main. Mostrar

Eliminarme