Sistema de gestión de libros Vbsql

If Trim(Combo1.Text) = " "Entonces

MsgBox "Seleccione un tipo de lector", vbOKOnly+vbaclouse, ""

Combo1. SetFocus

Conector de salida

Terminará si...

Si Trim(Text1.Text) = ""Entonces

MsgBox" Leer El nombre del dispositivo no puede estar vacío", ejemplo vbOKOnly+VB, ""

Text1. SetFocus

Salir de la unión

Finalizar si...

Si trim(Text2.Text) = ""Entonces

Lector de MsgBox" el número no puede estar vacío", vbOKOnly+vbacnoully, ""

Texto 2. SetFocus

Conector de Salida

Terminará si...

-!! !

SQL = " seleccionar * de la información del lector donde número de lector = ' " & texto 2. text&"

rs_addreader. open sql, conn, adOpenKeyset, adlock pesimista

si rs_addreader. luego EOF

rs_addreader. agrega nuevo contenido

rs_addreader.Fields(0) = Recortar(Texto1.Text)

rs_addreader.Fields(1) = Recortar(Text2.Text)

rs_addreader (Combo2.Text)

rs_addreader.Field(3) = Recortar(Combo1.Text)

rs_addreader.Field(4) = Recortar(Text3.Text)

rs_addreader.field(5 ) = trim(text4.body)

rs_addreader.field(6) = trim(text5.body)

rs_addreader(7) )= CDate(texto 6. Texto)

MsgBox "¡La información del lector se agregó correctamente! ", vbOKOnly, ""

rs_addreader. Cerrar

Otro

MsgBox "¡Número de lector duplicado! ", vbOKOnly+VB signo de exclamación, ""

Text1.SetFocus

Text1.Text=" "

rs_addreader.Close

Exportación conjunta

Terminará si...