. : Vico Linker ^^ : .

En Vb.Net al intentar conectar con una db de Access 2007 (o superior) por ConectionString puede que nos de un error similar a este:

 
No se reconoce el formato de base de datos 'C:\****\EmpleadosProyectosHoras.accdb'.
Microsoft JET Database Engine

Este error es porque estamos usando una version antigua del Provider (quizas para versiones anteriores de Access) que se encarga de hacer la gestion de la base de datos, en mi caso estaba usando la version 4.0:

Provider=Microsoft.jet.oledb.4.0

Para solucionarlo basta con cambiar el Provider por una version mas actual como la version12.0:

 
Provider=Microsoft.ACE.OLEDB.12.0

Dejo un codigo de conexion a la base de datos para que vean como quedaria el codigo:

 
   Try
            'Crear Conexion
            Dim oConexion As New OleDbConnection()
            oConexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=..\..\..\EmpleadosProyectosHoras.accdb"

            'Abrir Conexion
            oConexion.Open()
            MsgBox("Conectado")

            'Cerrar Conexion
            oConexion.Close()
            MsgBox("Desconectado")

     Catch ex As Exception

        MessageBox.Show("Error al conectar con la Base de Datos" & _
            ControlChars.CrLf & _
            ex.Message & ControlChars.CrLf & _
            ex.Source())

     End Try

Nota: Si el error persiste podria ser que la DB este dañada o el archivo este protegido, si pasa esto intenta abrirlo desde el propio Access y ve si carga normalmente.

En VB.NET al poner ordenes en el LOAD del formulario este las ejecuta antes de cargar el formulario completamente, si queremos ejecutar un SUB o una Funcion esta se ejecutara antes de que se pueda ver el formulario, esto es un problema en algunas ocaciones porque si tenemos una funcion que tarda en ejecutarse un poco no veremos el formulario hasta que termine.

Si queremos que se cargue completamente el formulario y luego siga con el SUB o Funciones que tengamos en el load solo tendremos que poner la siguiente linea en el load (o en una parte del SUB o funcion) y seguido de esto las funciones que tengamos.

 
Me.Show()

Quedandonos algo similar a esto:

 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Cargar primero el formulario y luego seguir
        Me.Show()

        mi_funcion()
        mi_sub()
    End Sub

Si queremos que antes de mostrar el formulario se ejecute una funcion (si es que es necesario) tan solo la ponemos antes del Me.Show() asi:

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

        mi_funcion()

        'Cargar primero el formulario y luego seguir
        Me.Show()

        mi_sub()
    End Sub

En SQL para mostrar el numero maximo de una columna (en este caso el sueldo) lo que hacemos es poner una consulta similar a esta:

select Max(sueldo) from empleados;

y para el minimo(Min), suma(Sum), media(Avg) y el total de registros(count):

--Sueldo minimo
select Minx(sueldo) from empleados;

--Suma de todos los Sueldos
select Sum(sueldo) from empleados;

--Media de todos los sueldos
select Avg(sueldo) from empleados;

--El numero total de empleados
select Count(sueldo) from empleados;
--otra forma de hacer el Count
select Count(*) from empleados;

Para hacer la consulta en un DataSet tenemos que hacer utilizar Compute en vez de un Select de la siguiente forma:

 
Dataset.Tabla("nombre o numero").Compute("Lo_que_quieres(columna)", "filtro")

Quedandonos una consulta para buscar el maximo numero de IDAlumno asi:

 
maximo_id = DScolegio.Tables("alumnos").Compute("MAX(IDAlumno)", "")

Noten que no le estoy poniendo ningun filtro, pero si le quieren poner para que solo cuente de los que son de la clase numero 2 (NumClase=2) podria quedar asi:

 
maximo_id = DScolegio.Tables("alumnos").Compute("MAX(IDAlumno)", "NumClase=2")

En caso del Count podemos hacerlo de 3 formas distintas:

Primero con Compute: (ya que vimos el ejemplo anterior)

 
total_alumnos = DScolegio.Tables("alumnos").Compute("count(IDAlumno)", "")

'Tambien funciona de esta Forma:
total_alumnos = DScolegio.Tables("alumnos").Compute("count(*)", "")

Ahora con un Select y Count:

 
total_alumnos = DScolegio.Tables("alumnos").Select().Count

'Ahora con una Condicion:
total_alumnos = DScolegio.Tables("alumnos").Select("IDClase=2").Count

Por ultimo con un Select y Lenght :

 
total_alumnos = DScolegio.Tables("alumnos").Select().Length

'Ahora con una Condicion:
total_alumnos = DScolegio.Tables("alumnos").Select("IDClase=2").Length

Para crear/agregar una nueva fila en una tabla del DataSet hay que agregar el siguiente codigo :

Mi DataSet se llama: DSColegio
La tabla del DataSet donde crearemos la nueva fila es: alumnos

Los txtxxxxxxxx.text son los TextBox donde tengo metidos los datos del nuevo alumno, aqui deberan poner los datos que quieran insertar ya sea pasandoselos por variable o como hago yo cogiendo lo que tenga metido en el TextBox.

Tambien debemos pasarle los nombre de las columnas de la tabla de la siguiente forma fila(“xxxxxx”) o sino con el numero de la columna de esta forma fila(0) , fila(1) , etc .

 
'Declarar Filas como DataRow
        Dim fila As Data.DataRow

        'Asignamos a fila la nueva Row(Fila)del Dataset 
        fila = Me.DScolegio.Tables("alumnos").NewRow

        'Agregamos los valores a los campos de la tabla
        fila("IDAlumno") = Me.txtidalumno.Text
        fila("IDClase") = Me.txtidclase.Text
        fila("Nombre") = Me.txtnombre.Text
        fila("PrimerApellido") = Me.txtprimerapellido.Text
        fila("SegundoApellido") = Me.Txtsegundoapellido.Text
        fila("DNI") = Me.txtdni.Text
        fila("FechaNacimiento") = Me.Txtnacimiento.Text
        fila("Direccion") = Me.TxtDireccion.Text
        fila("Telefono") = Me.txttelefono.Text
        fila("email") = Me.txtemail.Text

        'Agregamos la fila que acabamos de crear a nuestra tabla del DataSet
        Me.DScolegio.Tables("alumnos").Rows.Add(fila)

Aqui vamos a limpiar el texto de todos los Textbox  que estan dentro de un GroupBox , para ello vamos a crear un control desde donde podremos poner el texto que queramos dentro de los textbox o simplemente lo que buscamos LIMPIARLOS :

El GroupBox donde estan los textbox que queremos limpiar se llama:
GrpDatosCliente

 
  Dim obj As Control
        For Each obj In Me.GrpDatosCliente.Controls
            If TypeOf (obj) Is TextBox Then
                obj.Text = ""
            End If
        Next

Si ademas de eso queremos que en los textbox se pueda escribir (en caso que tengan la propiedad de ReadOnly en True) tenemos que agregar la siguiente linea dentro de la condicion:

CType(obj, TextBox).ReadOnly = False

Quedandonos el codigo completo de la siguiente manera:

Dim obj As Control
        For Each obj In Me.GrpDatosClientes.Controls
            If TypeOf (obj) Is TextBox Then
                obj.Text = ""
                CType(obj, TextBox).ReadOnly = False
            End If
        Next

Para cargas las fuentes del sistema en un ComboBox hay hacer lo siguiente:

Tenemos que importar System.Drawing.Text para que funcione el InstalledFontCollection

Imports System.Drawing.Text

Añadimos el codigo preferiblemente en el Form_Load para que las cargue al iniciar el formulario.

El ComboBox donde queremos cargar las fuentes se llama: ComboBox_fuentes

  '**************** Cargar Fuentes ****************
        'Ancho por defecto para el ComboBox
        ComboBox_fuentes.Width = 200

        Dim font_family As FontFamily
        Dim installed_fonts As New InstalledFontCollection

        'Limpiamos el ComboBox en caso que tenga algo
        ComboBox_fuentes.Items.Clear()

        'cargamos las fuentes (como items)en el ComboBox
        For Each font_family In FontFamily.Families
            ComboBox_fuentes.Items.Add(font_family.Name)
        Next
        '************************************************

        'Fuente Seleccionada por Defecto (Opcional)
        ComboBox_fuentes.SelectedItem = "Microsoft Sans Serif"

Descarga del Ejemplo y Source: Cargar Fuentes en ComboBox - ( 294 descargas )

Ejercicio:

Realizar una aplicación de consola que realice las siguientes operaciones

1. Construya un array de cinco elementos de tipo entero
2. Solicite al usuario los valores correspondientes de cada elemento
3. Investigue el valor mayor y menor y muestre al usuario el resultado
4. Calcule la media de todos los valores del array y muestre el resultado al usuario

**Nota:
Para sacar el numero menor y mayor se puede hacer recorriendo el array y guardar le primer valor y comprar con el siguiente si es menor, si lo es se guarda ese nuevo valor y se sigue comprobando hasta le final del array y lo mismo para el numero mayor, yo prefiero ordenar todo el array y coger la primera y la ultima posicion (que son la menor y la mayor) pero eso ya depende de cada uno

Module Module1
    Sub Main()

        Dim vector(4) As Integer
        Dim i, media As Integer

        'Pedimos los elementos del Array
        Console.WriteLine("Introduzca los elementos:")
        For i = 0 To vector.Length - 1
            Console.Write("Valor{0}: ", i)
            vector(i) = Console.ReadLine()
            Console.WriteLine()
        Next

        'Ordenamos el array con esta funcion
        Array.Sort(vector)

        'Sacamos la media
        For i = 0 To vector.Length - 1
            media = media + vector(i)
        Next
        media = media / vector.Length

        'Imprimimos el menor y el mayor valor
        Console.WriteLine("El menor valor del array es: {0}", vector(0))
        Console.WriteLine("El mayor valor del array es: {0}", vector(vector.Length - 1))
        Console.WriteLine("La media del array es: {0}", media)

        'Esperamos una tecla para salir
        Console.ReadKey()

    End Sub
End Module