1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Private Sub DHTMLPage_Load() Dim RsResults As ADODB.Recordset Set ColBind = New BindingCollection Set ColBind.DataSource = DeCursosLibres ColBind.DataMember = “CmCurso” Set RsResults = DeCursosLibres.rsCmCurso Do While Not RsResults.EOF Document.body.insertAdjacentHTML “BeforeEnd”, _ “” & _ “” & RsResults!CurCodigo & “” & _ “” & RsResults!CurNombre & “” & _ “” & RsResults!CurVacantes & “” & _ “” & RsResults!CurProfe & “” & _ “” RsResults.MoveNext Loop RsResults.MoveFirst RsResults.Close End Sub Finalmente, no olvide cambiar el componente de inicio antes de ejecutar su aplicación. Aplicación Nº 4 Diseñar una aplicación DHTML que permita seleccionar de un control Select (similar a un cuadro combinado), el nombre de un profesor y a continuación se muestren en una tabla HTML dinámica los cursos que dicta dicho profesor. Un elemento Select, es similar a un cuadro combinado. Por ejemplo, para agregar un elemento Select denominado SelProfe a una la página HTML, simplemente arrastrar el elemento a la página. A continuación establecer las siguientes propiedades: Pág. 394
Seleccion1 Nombre SelProfe Id SelProfe Value Para especificar los elementos de lista que se deben mostrar en el elemento Select agregar el siguiente código al procedimiento de evento Load de la página HTML, veamos: Private Sub DHTMLPage_Load() Dim SelElement As HTMLSelectElement Dim Cn As ADODB.Connection Dim RsProfe As ADODB.Recordset Set Cn = New ADODB.Connection Set RsProfe = New ADODB.Recordset Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _ “Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _ “Persist Security Info=False” RsProfe.ActiveConnection = Cn RsProfe.CursorType = adOpenStatic RsProfe.LockType = adLockOptimistic RsProfe.CursorLocation = adUseClient RsProfe.Open “Select Distinct CurProfe From Curso” Do While Not RsProfe.EOF() Set SelElement = Document.createElement(“OPTION”) SelElement.Text = RsProfe!CurProfe SelProfe.Options.Add SelElement RsProfe.MoveNext Loop End Sub Al ejecutar su aplicación debe ser similar a la figura mostrada: Pág. 395
- 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
- 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: DeCursosLibres.rsCmCurso.MoveFirst
- Page 397 and 398: GUÍA DE LABORATORIO Nº 12 Objetiv
- Page 399 and 400: Aplicación Nº 2 Desarrollar una a
- Page 401 and 402: De la siguiente pantalla Ud. podrá
- Page 403 and 404: Uno de los temas en los que Windows
- Page 405 and 406: De manera análoga a los demás cas
- Page 407 and 408: Continuar de manera similar con las
- Page 409 and 410: Al hacer click en el botón Guardar
- Page 411 and 412: En seguida se mostrará la siguient
- Page 413 and 414: En la ficha Position defina el tama
- Page 415 and 416: Para cambiar el color de la zona de
- Page 417 and 418: En seguida dar click en el botón V
- Page 419 and 420: A continuación se presentará una
- Page 421: pedirán información referente al
Private Sub DHTMLPage_Load()<br />
Dim RsResults As ADODB.Recordset<br />
Set ColBind = New BindingCollection<br />
Set ColBind.DataSource = De<strong>Curso</strong>sLibres<br />
ColBind.DataMember = “Cm<strong>Curso</strong>”<br />
Set RsResults = De<strong>Curso</strong>sLibres.rsCm<strong>Curso</strong><br />
Do While Not RsResults.EOF<br />
Document.body.insertAdjacentHTML “BeforeEnd”, _<br />
“” & _<br />
“” & RsResults!CurCodigo & “” & _<br />
“” & RsResults!CurNombre & “” & _<br />
“” & RsResults!CurVacantes & “” & _<br />
“” & RsResults!CurProfe & “” & _<br />
“”<br />
RsResults.MoveNext<br />
Loop<br />
RsResults.MoveFirst<br />
RsResults.Close<br />
End Sub<br />
Finalmente, no olvide cambiar el componente de inicio<br />
antes de ejecutar su aplicación.<br />
Aplicación Nº 4<br />
Diseñar una aplicación DHTML que permita seleccionar de un<br />
control Select (similar a un cuadro combinado), el nombre de un<br />
profesor y a continuación se muestren en una tabla HTML<br />
dinámica los cursos que dicta dicho profesor.<br />
Un elemento Select, es similar a un cuadro combinado. Por<br />
ejemplo, para agregar un elemento Select denominado SelProfe a<br />
una la página HTML, simplemente arrastrar el elemento a la<br />
página. A continuación establecer las siguientes propiedades:<br />
Pág. 394