1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
El código necesario para realizar la conexión y efectuar el mantenimiento de la tabla se muestra a continuación. Observar la analogía cuando se utiliza Data Environment. Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Private Sub ModoEditar(ByVal Ok As Boolean) TxtCurCodigo.Locked = Not Ok TxtCurNombre.Locked = Not Ok TxtCurVacantes.Locked = Not Ok TxtCurProfe.Locked = Not Ok CmdNuevo.Enabled = Not Ok CmdEditar.Enabled = Not Ok CmdGuardar.Enabled = Ok CmdEliminar.Enabled = Not Ok If Ok Then TxtCurCodigo.SetFocus End Sub Private Sub Form_Load() ModoEditar False Set Cn = New ADODB.Connection Set Rs = New ADODB.Recordset Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _ “Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _ “Persist Security Info=False” Rs.ActiveConnection = Cn Rs.CursorType = adOpenKeyset Rs.LockType = adLockOptimistic Rs.Open “Select * From Curso” Set TxtCurCodigo.DataSource = Rs TxtCurCodigo.DataField = “CurCodigo” Set TxtCurNombre.DataSource = Rs Pág. 326
TxtCurNombre.DataField = “CurNombre” Set TxtCurVacantes.DataSource = Rs TxtCurVacantes.DataField = “CurVacantes” Set TxtCurProfe.DataSource = Rs TxtCurProfe.DataField = “CurProfe” End Sub Private Sub CmdPrimero_Click() Rs.MoveFirst End Sub Private Sub CmdAnterior_Click() Rs.MovePrevious If Rs.BOF Then Rs.MoveFirst MsgBox “Estamos en el primer registro” End If End Sub Private Sub CmdSiguiente_Click() Rs.MoveNext If Rs.EOF Then Rs.MoveLast MsgBox “Estamos en el último registro” End If End Sub Private Sub CmdUltimo_Click() Rs.MoveLast End Sub Private Sub CmdNuevo_Click() Rs.AddNew ModoEditar True Pág. 327
- Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
- Page 277 and 278: Private Sub CboArticulo_Click() Dim
- Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
- Page 281 and 282: Text3 Text4 Text5 Command1 Command2
- Page 283 and 284: LstDistrito.AddItem “La Victoria
- Page 285 and 286: CboSexo.Locked = False TxtDireccion
- Page 287 and 288: GUÍA DE LABORATORIO Nº 5 Objetivo
- Page 289 and 290: Command1 Command2 Command3 Nombre C
- Page 291 and 292: El curso quedará seleccionado al h
- 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: Text Para establecer las propiedade
- 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 and 344: Command3 Command4 Caption &Eliminar
- Page 345 and 346: Aplicación Nº 4 Elaborar una apli
- 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
El código necesario para realizar la conexión y efectuar<br />
el mantenimiento de la tabla se muestra a continuación.<br />
Observar la analogía cuando se utiliza Data Environment.<br />
Dim Cn As ADODB.Connection<br />
Dim Rs As ADODB.Recordset<br />
Private Sub ModoEditar(ByVal Ok As Boolean)<br />
TxtCurCodigo.Locked = Not Ok<br />
TxtCurNombre.Locked = Not Ok<br />
TxtCurVacantes.Locked = Not Ok<br />
TxtCurProfe.Locked = Not Ok<br />
CmdNuevo.Enabled = Not Ok<br />
CmdEditar.Enabled = Not Ok<br />
CmdGuardar.Enabled = Ok<br />
CmdEliminar.Enabled = Not Ok<br />
If Ok Then TxtCurCodigo.SetFocus<br />
End Sub<br />
Private Sub Form_Load()<br />
ModoEditar False<br />
Set Cn = New ADODB.Connection<br />
Set Rs = New ADODB.Recordset<br />
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _<br />
“Data Source=C:\FundVB\Data\<strong>Curso</strong>sLibres.MDB;” & _<br />
“Persist Security Info=False”<br />
Rs.ActiveConnection = Cn<br />
Rs.<strong>Curso</strong>rType = adOpenKeyset<br />
Rs.LockType = adLockOptimistic<br />
Rs.Open “Select * From <strong>Curso</strong>”<br />
Set TxtCurCodigo.DataSource = Rs<br />
TxtCurCodigo.DataField = “CurCodigo”<br />
Set TxtCurNombre.DataSource = Rs<br />
Pág. 326
Change language