1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
TxtCurCodigo.Enabled = True TxtCurCodigo.SetFocus End Sub Private Sub CmdAceptar_Click() Dim Rs As New ADODB.Recordset Set Rs = Cn.Execute(“Select CurNombre, ” & _ “CurVacantes, CurProfe From Curso ” & _ “Where CurCodigo = '” & TxtCurCodigo & “'”) If (Rs.EOF And Rs.BOF) Then MsgBox “No existe ningún curso con este código” TxtCurCodigo.SetFocus TxtCurCodigo.SelStart = 0 TxtCurCodigo.SelLength = Len(TxtCurCodigo) Exit Sub End If TxtCurNombre = Rs!CurNombre TxtCurVacantes = Rs!CurVacantes TxtCurProfe = Rs!CurProfe Rs.Close Set Rs = Nothing TxtCurCodigo.Enabled = False CmdAceptar.Enabled = False CmdEliminar.Enabled = True CmdNuevo.Enabled = True End Sub Private Sub CmdCerrar_Click() Unload Me End Sub De manera similar proceda a desarrollar el código para los formularios de mantenimiento de las demás tablas. Pág. 344
Aplicación Nº 4 Elaborar una aplicación que permita recuperar y mantener la información de la base de datos CursosLibres.MDB. Para tal fin debe preparar un formulario que permita establecer la conexión con el origen de datos. Luego, si la conexión es satisfactoria el usuario tiene la posibilidad de elegir una de las tablas de la base de datos para realizar las operaciones habituales de mantenimiento o simplemente para ejecutar consultas. El diseño de la interfaz debe ser similar a la siguiente figura: Las opciones Mantenimiento y Consulta deben ser análogas a las realizadas en aplicaciones anteriores. Microsoft Visual Basic Pág. 345
- Page 293 and 294: En ese instante se añadirá un nue
- Page 295 and 296: indica: Form2 List1 Command1 Luego
- Page 297 and 298: Del cuadro de diálogo Agregar form
- Page 299 and 300: Private Sub MnuFixedSingle_Click()
- Page 301 and 302: GUÍA DE LABORATORIO Parte II ELABO
- Page 303 and 304: GUÍA DE LABORATORIO Nº 6 Objetivo
- Page 305 and 306: CurCodigo CurNombre CurProfe BC1 Bo
- Page 307 and 308: la base de datos CursosLibres.MDB.
- Page 309 and 310: otón Siguiente. En seguida aparece
- Page 311 and 312: Frame2 Frame3 Nombre FraIngreso Cap
- Page 313 and 314: Command5 Command6 Command7 Command8
- Page 315 and 316: ModoEditar True End Sub Private Sub
- Page 317 and 318: Desarrollar una aplicación que per
- Page 319 and 320: Desarrollar una aplicación que per
- Page 321 and 322: Aplicación Nº 4 Desarrollar una a
- Page 323 and 324: Para el diseño de la interfaz, pro
- Page 325 and 326: Text Para establecer las propiedade
- Page 327 and 328: TxtCurNombre.DataField = “CurNomb
- Page 329 and 330: Para el desarrollo de esta aplicaci
- Page 331 and 332: RsCurso.LockType = adLockReadOnly R
- Page 333 and 334: Para desarrollar nuestra aplicació
- Page 335 and 336: Form1 Label1 Label2 Label3 Label4 T
- Page 337 and 338: Private Sub CmdNuevo_Click() TxtCur
- Page 339 and 340: Command1 Command2 Command3 Command4
- Page 341 and 342: End Sub Private Sub CmdCerrar_Click
- Page 343: Command3 Command4 Caption &Eliminar
- Page 347 and 348: un Comando y denomínelo CmCurso. E
- Page 349 and 350: Etiqueta6 Font Arial (Negrita 10) N
- Page 351 and 352: A continuación sobre el diseñador
- Page 353 and 354: Form1 Frame1 Option1 Option2 Option
- Page 355 and 356: Private Sub CmdSalir_Click() Unload
- Page 357 and 358: La presente Guía de Laboratorio de
- Page 359 and 360: La ventana de código de la clase d
- Page 361 and 362: Dim A As Circulo Private Sub Form_L
- Page 363 and 364: Nombre FrmPruebaMiControl Caption P
- Page 365 and 366: En seguida, guarde y ejecute su apl
- Page 367 and 368: Luego, haga click sobre la opción
- Page 369 and 370: Ahora hemos llegado a la ventana en
- Page 371 and 372: Proyecto1 Nombre ActiveXNumBox User
- Page 373 and 374: ejemplo 5 de Setiembre de 1752. El
- Page 375 and 376: usuario: A continuación proceda a
- Page 377 and 378: Command1 Nombre BdgrdTabla Font Ari
- Page 379 and 380: Case 0 Call MostrarAlumno Case 1 Ca
- Page 381 and 382: ingrese en el cuadro de texto adjun
- Page 383 and 384: Objetivos capaz de: Luego de comple
- Page 385 and 386: Para crear la interfaz de la aplica
- Page 387 and 388: TxtTabla.Value = S Else TxtTabla.Va
- Page 389 and 390: Luego haga click en el botón Acept
- Page 391 and 392: Button2 Button3 Button4 Nombre CmdA
- Page 393 and 394: DeCursosLibres.rsCmCurso.MoveFirst
Aplicación Nº 4<br />
Elaborar una aplicación que permita recuperar y mantener<br />
la información de la base de datos <strong>Curso</strong>sLibres.MDB. Para tal<br />
fin debe preparar un formulario que permita establecer la<br />
conexión con el origen de datos. Luego, si la conexión es<br />
satisfactoria el usuario tiene la posibilidad de elegir una de<br />
las tablas de la base de datos para realizar las operaciones<br />
habituales de mantenimiento o simplemente para ejecutar<br />
consultas. El diseño de la interfaz debe ser similar a la<br />
siguiente figura:<br />
Las opciones Mantenimiento y Consulta deben ser análogas a<br />
las realizadas en aplicaciones anteriores.<br />
Microsoft <strong>Visual</strong> <strong>Basic</strong><br />
Pág. 345
Change language