Código en papel X-sql
txtPwd. texto = " "
txtRPwd. texto = " "
txtPwd. SetFocus
Conector de salida
Termina si...
Atenúa rs_check como nuevo ADODB. Recordset
Atenuar rs_add como nuevo ADODB. conjunto de registros
Atenuar MsgText como cadena
Atenuar strsql como cadena
strsql = " select * from UserTable donde userId = ' " & Text&"
Establecer rs_check = ExecuteSQL(strsql, MsgText)
Si rs_check.EOF = False entonces
MsgBox "El nombre de usuario ya existe, seleccione Otros usuarios ! ", vbOKOnly+vbInformation, "Atención"
txtUser.Text = " "
txtUser.SetFocus
rs_check.Close
Exportar Conector
Terminará si...
Atenuar sqladd como cadena
sqladd = "select * from UserTable "
Establecer rs_add = EjecutarSQL(sqladd, MsgText)
rs_add.Agregar nuevo
rs_add.Text
rs_add text
rs_add. p>
rs_add. text
rs_add.
MsgBox "¡Registro de nuevo usuario exitoso! ", vbOKOnly+vbInformation, "Atención"
rs_check.Close
rs_add.Close
Eliminarme
Si... terminará
Terminará si...
Terminará si...
Finalizar conector
Subcomando privado 2_Click( )
Descargarme
Finalizar unión
Private subform_Load()
frmtjyh ancho = 5565
frmtjyh. height=5850
Atenuar x0 mientras pantalla central
Atenuar y0 mientras
x0 = pantalla >y0 = pantalla.altura
>x0 = (x0 -i.width)/2
u=(u-i.height)/2
i .Mover x0,y0
Conector final