Programacion

Solo disponible en BuenasTareas
  • Páginas : 6 (1330 palabras )
  • Descarga(s) : 0
  • Publicado : 1 de diciembre de 2011
Leer documento completo
Vista previa del texto
La clase DataSet

Programación del botón1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' crear conexión
Dim oConexion As New SqlConnection
oConexion.ConnectionString = "data source= ; initial catalog=esc; integrated security=yes"
' crear adaptador
Dim oDataAdapter As NewSqlDataAdapter("SELECT * FROM alumno ", oConexion)
' crear conjunto de datos
Dim oDataSet As New DataSet
oConexion.Open()
' utilizar el adaptador para llenar el dataset con una tabla
oDataAdapter.Fill(oDataSet, "alumno")
oConexion.Close()
' una vez desconectados, recorrer la tabla del dataset
Dim oTabla As DataTable
oTabla =oDataSet.Tables("alumno")
Dim oFila As DataRow
For Each oFila In oTabla.Rows
' mostrar los datos mediante un objeto fila
Me.ListBox1.Items.Add(oFila.Item("nombre") & _
" - " & oFila.Item("ap_pat") & " - " & _
oFila.Item("ap_mat"))
Next
End Sub

Programación del listboxMe.ListBox1.Items.Add(oFila.Item("nombre") & _
" - " & oFila.Item("ap_pat") & " - " & _
oFila.Item("ap_mat"))
programa corriendo

Las clases DataAdapter

Programación del botón guarder y texbox1 y texbox2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iResultado As Integer
' asignar valores a losparámetros para el
' comando de inserción
oDataAdapter.InsertCommand.Parameters("@id").Value = Me.TextBox1.Text
oDataAdapter.InsertCommand.Parameters("@nombre").Value = Me.TextBox2.Text
' abrir conexión
oConexion.Open()
' ejecutar comando de inserción del adaptador
iResultado = oDataAdapter.InsertCommand.ExecuteNonQuery()
' cerrarconexión
oConexion.Close()
Me.CargarDatos()
MessageBox.Show("Registros añadidos: " & iResultado)
End Sub

Programación del datagrid

Private Sub CargarDatos()
' vaciar el dataset
oDataSet.Clear()
oConexion.Open() ' abrir conexión
' utilizar el adaptador para llenar el dataset con una tablaoDataAdapter.Fill(oDataSet, "alumno")
oConexion.Close() ' cerrar conexión
' enlazar dataset con datagrid;
' en DataSource se asigna el dataset,
' en DataMember el nombre de la tabla del
' dataset que mostrará el datagrid
Me.DataGrid1.DataSource = oDataSet
Me.DataGrid1.DataMember = "alumno"
End Sub
Programa corriendo

Programa Empleo de Data Bindingsimple para navegar y editar datos

Librerías
Imports System.Data.SqlClient
Inherits System.Windows.Forms.Form
Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDataAdapter As SqlDataAdapter
Private iPosicFilaActual As Integer

Programación del from1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
' crear conexión
Dim oConexion As SqlConnection
oConexion = New SqlConnection
oConexion.ConnectionString = "data source= ; initial catalog=escuela; integrated security=yes"
' crear adaptador
Me.oDataAdapter = New SqlDataAdapter("SELECT * FROM alumnos", _
oConexion)
' crear commandbuilder
Dim oCommBuild AsSqlCommandBuilder = New SqlCommandBuilder(oDataAdapter)
' crear dataset
Me.oDataSet = New DataSet
oConexion.Open()
' llenar con el adaptador el dataset
Me.oDataAdapter.Fill(oDataSet, "alumnos")
oConexion.Close()
' establecer el indicador del registro
' a mostrar de la tabla
Me.iPosicFilaActual = 0
' cargar...
tracking img