Programacion SQL

46. Realice una conexión en Visual Basic a la base de datos de estudiante.mdf.  Aplique lo que aprendió en esta sección, siga los pasos y agregue las tablas al form, ejecute y guarde su proyecto.

[pic 1]

[pic 2]

[pic 3][pic 4]

Public Class frmContactos

    Private Sub ContactosBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ContactosBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.ContactosBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.EjemploDataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: esta línea de código carga datos en la tabla 'EjemploDataSet.Contactos' Puede moverla o quitarla según sea necesario.

        Me.ContactosTableAdapter.Fill(Me.EjemploDataSet.Contactos)

    End Sub

    Private Sub btnCitas_Click(sender As Object, e As EventArgs) Handles btnCitas.Click

        My.Forms.frmCitas.Visible = True

        Me.Visible = False

    End Sub

End Class

[pic 5][pic 6]

Public Class frmCitas

    Private Sub CitasBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles CitasBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.CitasBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.EjemploDataSet)

    End Sub

    Private Sub frmCitas_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: esta línea de código carga datos en la tabla 'EjemploDataSet.Citas' Puede moverla o quitarla según sea necesario.

        Me.CitasTableAdapter.Fill(Me.EjemploDataSet.Citas)

    End Sub

    Private Sub btnContactos_Click(sender As Object, e As EventArgs) Handles btnContactos.Click

        My.Forms.frmContactos.Visible = True

        Me.Visible = False

    End Sub

End Class

Etapa 3. Practica 14. Elabore 2 programas uno con un archivo secuencial y otro con archivo aleatorio para que automáticamente se almacenen los números del 1 al 300 de 10 en 10 separados por una coma. Ejem. 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, etc…

Archivo Secuencial

Interfaz Gráfica

[pic 7]

Tabla de Propiedades

...