Código en papel X-sql

Soy el cartel original. Continúe con el código anterior. Responda en detalle. Cuanto más detallado, mejor.

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