jueves, 15 de marzo de 2012

Ejemplos de uso del DataRow


Ejemplos de uso del DataRow
El objeto Datarow es un componente principal  de un Datatable,utilizaremos el obejto datarow y sus propiedades para recuperar, insertar y actualizar los valores de Datatable.
Tenga en cuenta que  Un DataRow no pertenece siempre a un DataTable.
NUEVA FILA
Declaración
Dim dt As New DataTable
Dim nuevaFila AS DataRow
Uso
nuevafila = dt.NewRow

1 Ejemplo
En este ejemplo siguiente se crea un nuevo DataRow mediante una llamada al método NewRow del objeto DataTable.

Private Sub CreateNewDataRow()
    Dim table As DataTable
    table = MakeNamesTable()
    Dim row As DataRow
    row = table.NewRow()
    row("fName") = "John"
    row("lName") = "Smith"
    table.Rows.Add(row)
    Dim column As DataColumn
    For Each column in table.Columns
       Console.WriteLine(column.ColumnName)
    Next
    DataGrid1.DataSource=table
 End Sub
 
  1. Lo primero que hacemos es crear un nuevo datarow CreateNewDataRow() 
  2. Utilizaremos  la función de MakeTable  para crear una nueva tabla.
  3. Una vez que la tabla ha sido creada, utilice la NewRow para crear una fila de datos.
  4. Luego , agregue la nueva fila a la colección table.Rows.Add(row)
  5. Luego se declara la columna.

2 ejemplo
Este ejemplo es un poco más complejo.
Solo nos enfocaremos en el datarow  porque eso es lo que queremos que entiendan su uso.

Private Sub RetrieveIdentity(ByVal connectionString As String)
    Using connection As SqlConnection = New SqlConnection( _
       connectionString)
        'Crear un SqlDataAdapter sobre la base de una consulta SELECT.        
     Dim adapter As SqlDataAdapter = New SqlDataAdapter( "SELECT CategoryID, CategoryName 
   FROM dbo.Categories", _
   connection)
        ' Cree el SqlCommand para ejecutar el procedimiento almacenado.
        adapter.InsertCommand = New SqlCommand("dbo.InsertCategory", _
           connection)
        adapter.InsertCommand.CommandType = CommandType.StoredProcedure
        'Agregue el parámetro para el CategoryName Especificación de la
'ParameterDirection para un parámetro de entrada no es necesario.     

   adapter.InsertCommand.Parameters.Add( _
          "@CategoryName", SqlDbType.NVarChar, 15, "CategoryName"
        'Añadir el SqlParameter para recuperar el nuevo valor de identidad.
        'Especifique el ParameterDirection como de salida.        
Dim parameter As SqlParameter = adapter.InsertCommand.Parameters.Add( _
          "@Identity", SqlDbType.Int, 0, "CategoryID")
        parameter.Direction = ParameterDirection.Output
       'Crear un DataTable y llenarlo.
        Dim categories As DataTable = New DataTable
        adapter.Fill(categories) 
        'Agregar una nueva fila.
        Dim newRow As DataRow = categories.NewRow()
        newRow("CategoryName") = "New Category"
        categories.Rows.Add(newRow)
       'AlphaActualizar la base de datos.

        adapter.Update(categories)

        Console.WriteLine("List All Rows:")
        Dim row As DataRow
        For Each row In categories.Rows
            Console.WriteLine("{0}: {1}", row(0), row(1))
        Next
    End Using
End Sub

Uso de una conexión SqlConnection Como = New SqlConnection (String _ conexión)

En el nuevo SqlDataAdapter  hacemos la instrucción Select , donde seleccionaremos  el id en este

caso llamado CategoryID  y  el nombre de la categoría(CategoryName) de la tabla dbo.Categories.

 

Nos saltaremos a explicar un poco el código datarow

Dice que agregaremos una nueva fila, donde declaramos el nuevo row (newrow ) categorías(categories)
Newrow será el nombre de la categoría ("CategoryName")  será igual a nueva categoría
Luego agregar nueva categorías  (categories)

Especificaremos algunos códigos: 

 

CommandType: Obtiene o establece un valor que indica cómo se interpreta la propiedad CommandText.

StoredProcedure: Al asignar el valor StoredProcedure a CommandType, puede utilizar la colección Parameters para definir parámetros.
SqlDbType: Especifica el tipo de datos específico de SQL Server de un campo o una propiedad para su uso en SqlParameter.
Output: Se trata de un parámetro de salida.

ParameterDirection Especifica el tipo de un parámetro dentro de una consulta relativa al DataSet.

DataRow: Especifica el tipo de un parámetro dentro de una consulta relativa al DataSet.


Console.WriteLine: Escribe la representación de texto del objeto especificado, seguida del terminador de línea actual, en la secuencia de salida estándar.

sábado, 3 de marzo de 2012

programacion



Programacion_Grafica


Pasos para hacer una grafica
Dar clic en activebound control ahí se cambia las propiedades:
strech en 2
name olGrafico
En el formulario en propiedades vomos a cambiar:
autocenter a verdadero
data secion private 2
min y max butoon a falso               
button programar
Imports System.Data.OleDb
Public Class grafica
    Public Cadena As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Visual_S\Colegio.accdb"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cSQL As String = "Select Carrera,count(Carrera) as Total from Estudiantes group by Carrera"
        Dim oConexion As New OleDbConnection(Cadena)
        oConexion.Open()
        Dim Comando As New OleDbCommand(cSQL, oConexion)
        Dim Lector As OleDbDataReader = Comando.ExecuteReader
        'Limpiar la grafica anterior
        oGrafico.ChartAreas.Clear()
        oGrafico.Series.Clear()
        oGrafico.Titles.Clear()
        'agregar nun area, titulo y tamaño del titulo a la grafica
        oGrafico.ChartAreas.Add(0)
        oGrafico.Titles.Add("numero de Estudiantes por Carrera")
        oGrafico.Titles(0).Font = New Font("Garamond", 18, FontStyle.Bold)
        'Enlazar la grafica con los datos obtenidos mediante la SQL
        oGrafico.DataBindTable(Lector, "Carrera")
        oGrafico.Series(0).IsValueShownAsLabel = True
        oGrafico.ChartAreas(0).Area3DStyle.Enable3D = True
        cmbtipo.Enabled = True
        oConexion.Close()
    End Sub
cmbtipo programar
Private Sub cmbtipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtipo.SelectedIndexChanged
        Select Case cmbtipo.SelectedIndex
            Case 0
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area
            Case 1
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Bar
            Case 2
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
            Case 3
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie
            Case 4
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Point
            Case Else
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line

        End Select
    End Sub
End Class