¿Que es un DataRow?

¿Qué es un DATAROW?

Es un componente principal de un Datatable, utiliza este objeto para sus propiedades y métodos

Para recuperar, evaluar, insertar, eliminar y actualizar los valores del Datatable.

Es un registro que almacena valores, representación de fila de una base de datos en visual basic.net.

Creamos un nuevo formulario  para arrastrar  el datagridview a nuestro formulario

 

Nos vamos a nuestro dstabla damos doble clic

Agregamos una nueva tabla de datos

Le pondremos el nombre por empresasgrafico, Agregamos columnas con el nombre categoría y total la primer columna categoría damos clic derecho sobre la columna categoría agregar – clave

Vamos a nuestro formulario, después nos vamos a la ventana orígenes de datos y en dstablas damos clic en la flechita izquierda al lado del dstabla para desplegar.

Mantenemos clic arrastramos hasta el formulario

Luego pegamos un button y le cambiaremos la propiedad text por actualizar y la propiedad name por cmdactualizar

Damos doble clic sobre el botón actualizar para programarlo

Importamos información de nuestro proyecto dese nuestro entorno,importamos datos del sistema oledb

Abajo del prívate sub cmdactualizar añadiremos nuestros datos de nuestra tabla

Limpiar datos, establecer los rubros, creamos nuestra instrucción SQL select

For i As Integer = 0 To aRubros.Count - 1

            '2.1, crear la SQL-Select para obtener los datosde cada rubro

            Dim cSql As String = "Select " & aRubros(i) & ", count(" & aRubros(i) & ") as total from Empresas where " & aRubros(i) & " = true " & "group by " & aRubros(i)

            datos.conectar()

            Dim comando As New OleDbCommand (cSql, datos.oConexion)

            Dim lector As OleDbDataReader = comando.ExecuteReader

            Dim fila As DataRow = DsTablas.EmpresasGrafico.NewRow

            If lector.Read Then

                fila("Categoria") = aRubros(i)

                fila("Total") = lector("total")

                'Agregar esta informacion a la tabla del dataset

                DsTablas.EmpresasGrafico.Rows.Add(fila)

            End If

            datos.oConexion.Close()

endclass

Conectamos nuestra base de datos, creamos un lector de datos y filas de nuestro datarow fila categoría y fila total luego “agregar esta informacion a la tabla del dataset, cerramos nuestra conexion

Ahora nos iremos a ejecutar nuestro formulario con f5 damos clic en actualizar

Bueno espero que este tutorial les sea de gran ayuda pueden dejar sus comentarios

Pasos para crear un Reporte y una Grafica en Visual Basic.net

Pasos para crear nuestro reporte en visual.net

Quiero mostrarles en esta oportunidad cómo crear un reporte en visual BASIC .net utilizando el control reportView. 

Lo primero que necesitamos es crear una conexión a una base de datos, y lo haremos de la siguiente manera: Desde el explorador de servidores puedes activarlo desde el menú Ver/Explorador de Servidores [Crtl+Alt+S]), creamos una nueva conexión. Seleccionamos archivos de datos de acces como se ve en la imagen:

 Luego proporcionamos nuestra base de datos damos clic en examinar

Seleccionamos nuestra base de datos de Access y damos clic en abrir

Elegir objetos de nuestra tabla de base de datos

Damos clic en finalizar.

Diseñamos nuestro informe 

Hacemos clic derecho en reporte insertar cuadro de texto   para escribir el titulo del informe o reporte, después de  haber puesto el titulo del reporte, damos click derecho insertar tabla insertamos los campos que queremos visualizar en nuestro reporte.

También podemos cambiar la perspectiva de nuestro texto en las propiedades. podemos cambiar el  color y el estilo de letra de nuestro texto.

Ejecutamos nuestro reporte con F5 para ver los campos ingresados en nuestra conexión desde la base de datos en Access

 Hemos finalizado nuestro Reporte.

Pasos para crear nuestra grafica en visual.net

Clic derecho en nuestro proyecto que está en la barra de explorador de soluciones damos clic agregar nuevo formulario lo nombramos como frmgrafico 

 en el cuadro de herramientas damos clic en el objeto chart  y lo pegamos dentro de nuestro formulario. Se vera de la siguiente manera como se muestra en la imagen.

      

Cambiamos en nombre en la barra de propiedades en (name) lo nombraremos como ografic

Pegamos un botón ( button) lo llamaremos actulizar cambiamos la propiedad el text a actualizar el name a cmdactualizar.

Colocamos un label y lo nombremos en la propiedad text como tipo de grafica.

Pegamos un combo box en el formulario y cambiamos la propiedad dropdownstyle a dropdownlist nombramos la propiedad name como cmbtipo. De ahí damos clic en la flechita de la esquina del combo box en editar elementos.

Pondremos los tipos de grafica

Damos doble clic en actualizar y programamos nuestra ruta de base de datos desde que unidad se está trabajando 

Imports System.Data.OleDb

Public Class frmGrafico

    Public cadena As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=g:\myproject\productos.accdb"

    Private Sub cmdActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdactualizar.Click

        Dim cSQL As String = "Select puesto, count(precio) as total from productos group by modelo"

        Dim oconexion As New OleDbConnection(cadena)

        oconexion.Open()

        Dim comando As New OleDbCommand(cSQL, oconexion)

        Dim lector As OleDbDataReader = comando.ExecuteReader

        'Limpiar grafica anterior

        oGrafico.ChartAreas.Clear()

        oGrafico.Series.Clear()

        oGrafico.Titles.Clear()

        'Agregar una area, titulo y tamaño del titulo a la grafica

        oGrafico.ChartAreas.Add(0)

        ografico.Titles.Add("Numero de modelo por nombre")

        oGrafico.Titles(0).Font = New Font("Garamond", 18, FontStyle.Bold)

        'Enlazar la grafica con los datos obtenidos mediante la SQL

        ografico.DataBindTable(lector, "precio")

        oGrafico.Series(0).IsValueShownAsLabel = True

        oGrafico.ChartAreas(0).Area3DStyle.Enable3D = True

        cmbtipo.Enabled = True

        oconexion.Close()

Después programamos nuestro combo box. Aquí programamos para visualizar los distintos tipos de grafica.

    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

.

Después de programarlo ejecutamos nuestro formulario F5.al ejecutarse se da clic en actualizar

Podemos elegir con nuestro combo box distintos tipos de grafica.

GRAFICA DE BARRA

GRAFICA DE COLUMNAS

GRAFICA DE PASTEL

GRAFICA DE PUNTOS

Hemos finalizado nuestra grafica espero que este tutorial les sea de gran ayuda para sus trabajos en visual basic.net

Excel e Instrucciones SQL

Introducción

Microsoft Excel es una aplicación para manejar hojas de calculo. Este programa es desarrollado y distribuido por Microsoft , y es utilizado normalmente en tareas financieras y contables.

El lenguaje SQL está compuesto por comandos, cláusulas, operadores y funciones de agregado. Estos elementos se combinan en las instrucciones para crear, actualizar y manipular las bases de datos

Objetivos

 El objetivo de este blog es orientar a las personas más de microsoft excel y instrucciónes SQL(access)

Excel ofrece una interfaz de usuario ajustada a las principales características de las hojas de cálculo, en esencia manteniendo ciertas premisas que pueden encontrarse en la hoja de cálculo original, VisiCalc: el programa muestra las celdas organizadas en filas y columnas, y cada celda contiene datos o una , con fórmula referencias relativas ,absolutas o mixtas a otras celdas.

Excel fue la primera hoja de cálculo que permite al usuario definir la apariencia (las fuentes, atributos de carácter y celdas). También introdujo recomputación inteligente de celdas, donde celdas dependientes de otra celda que han sido modificadas, se actualizan al instante (programas de hoja de cálculo anterior recalculaban la totalidad de los datos todo el tiempo o esperaban para un comando específico del usuario). Excel tiene una amplia capacidad gráfica, y permite a los usuarios realizar, entre otras muchas aplicaciones, listados usados en combinación de correspondencia.

Operadores aritméticos
Se usan para realizar las operaciones matemáticas�como suma, resta o multiplicación.
+ Suma (3+3)
- Resta (3-1)  Negación (1)
* Multiplicación (3*3)
/ División (12/4)
% Porcentaje (25%)
^ Exponenciación (5^2)
Operadores de comparación
Permite comparar entre si dos valores. El resultado es un valor lógico: VERDADERO o FALSO.
= Igual a (A1=B1)
> Mayor que (A1>B1)
< Menor que (A1<B1)
>= Mayor o igual que (A1>=B1)
<=Menor o igual que (A1<=B1)
<> Distinto de (A1<>B1)
Operador de concatenación de texto
Se utiliza para unir o concatenar una o varias cadenas de texto.
& ampersand (“Música”&” Ligera” produce el nuevo valor “Música Ligera”)
“y” comercial
Operadores de referencia
Combinan rangos de celdas produciendo referencias a celdas para ser utilizados en los cálculos por otras operaciones, como argumentos en las funciones.
: Operador de rango que genera una referencia a todas las celdas
que se encuentran entre dos referencias a celdas. ( B5:B15)
; Operador de unión que combina varias referencias en una sola. ( B5:B15;D5:D15)
(espacio) Operador de intersección que genera una referencia a celdas comunes a las dos referencias.( B7:D7 C6:C8 hace referencia a la celda C7 )


EJEMPLO
1) En un nuevo libro de Excel, elaborar la siguiente planilla de datos:    

2) Rellenar la columna Subtotal, la que se calcula: Cant * Precio. Unit.
3) Rellenar la columna I.V.A, la que se calcula:
Subtotal * 0.23 o Subtotal * 23% o Subtotal * 23 / 100.
4) Rellenar la columna Total, la que se calcula: Subtotal + I.V.A.
5) Rellenar la fila Total, para lo cual en la celda de la columna Subtotal, debe mostrarse la
suma de los Subtotales; en la celda de la columna I.V.A, debe mostrarse la suma de los
I.V.A; y en la celda de la columna Total, debe mostrarse la suma de los Totales.
6) Guardar este libro con el nombre Articulos.xls en su disquete.
7) En un nuevo libro de Excel, elaborar la siguiente planilla de datos:

 

8) Rellenar la columna Saldo, la que se calcula: Ingresos – Egresos.
9) Sin cerrar el libro actual, guardarlo con el nombre Sucursales.xls en su disquete.
10) Al final de la planilla (en la Columna E), ingresar el texto “Comisión” a modo de rótulo y
debajo de éste calcular para cada sucursal el 5% sobre el Saldo.
11) Calcular los totales de las columnas Ingresos, Egresos y Saldo.
12) Guardar los cambios realizados en este libro con el nombre Tercero.xls en su disquete

 Instrucciónes SQL

JUGANDO CON LAS MATES (NÚMEROS PRIMOS)

Un pequeño divertimento : generar una tabla de números primos (de 0 a 1000) usando la tabla auxiliar Nums (con un único campo, entero, indexado -sin duplicados-, de nombre Num, con valores de 1 a 1000).

Select Nums.Num * T.Num
From Nums, Nums As T
Where Nums.Num * T.Num Between 1 And 1000
Group By Nums.Num * T.Num
Having Count(Nums.Num * T.Num)=2;

si queremos prescindir de la tabla Nums :

SELECT R1.Num * R2.Num
FROM
(
Select (T2.Num*10)+Nums.Num+1 AS Num
From
(
Select (T1.Num*10)+Nums.Num As Num
From
(
Select Id - 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 6 AS Num From msysobjects Where Id Between 2 And 3
) As Nums,
(
Select Id - 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 6 AS Num From msysobjects Where Id Between 2 And 3
) AS T1
) AS T2, Nums
) AS R1,
(
Select (T2.Num*10)+Nums.Num+1 AS Num
From
(
Select (T1.Num*10)+Nums.Num As Num
From
(
Select Id - 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 6 AS Num From msysobjects Where Id Between 2 And 3
) AS Nums,
(
Select Id - 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 2 AS Num From msysobjects Where Id Between 2 And 5
Union All
Select Id + 6 AS Num From msysobjects Where Id Between 2 And 3
) AS T1
) AS T2, Nums
) AS R2
WHERE R1.Num * R2.Num Between 1 And 1000
GROUP BY R1.Num * R2.Num
HAVING Count(R1.Num * R2.Num)=2

Concluciónes

espero que con esta información pueden amplian su conocimientos de lo que es y como desarrolla funciones acerca de microsoft excel e  intrucciónes Sql

Bibliografia

Autores:

Roberto alvarez,"Funciones de excel",Mexico,2000
Steven stewar,"Instruccines SQL",Canada,1998