TAREA EN BLOGGER

1.- Colocar un menú principal en Blogger con las siguientes paginas:

• DATOS PERSONALES
• MI MÚSICA PREFERIDA
• MI CANTANTE PREFERIDO
• MI PELÍCULA PREFERIDA
• MI LIBRO PREFERIDO
• MI DEPORTE PREFERIDO
• MI MATERIAS PREFERIDA
• GALERÍA DE FOTOS Y VIDEOS 

Ejemplo:

Read More

RUTA BD ACCESS

Imports System.Data.OleDb
Public Class Docentes
    Dim connString As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                             & "G:\MENU\BDDECE.mdb" & ";Persist Security Info=False;") 'CAMBIA LA RUTA
    Dim Conexión As OleDbConnection = New OleDbConnection

Read More

CREAR UN REPORTE EN VB .NET

Read More

FORMULARIO DE USUARIO

Este video les permitira hacer el ingreso de usuario

Read More

DEBERES PARA EL 2017

HAGA CLICK AQUI

Read More

COMBO PARA CANTONES Y PARROQUIAS

Agregar en el DATASET de CANTONES

SELECT CodProv, CodCant, Canton FROM CANTONES WHERE Codprov=?

Agregar en el DATASET de PARROQUIAS

SELECT Codprov, Provincia, codcant, Canton, codparr, parroquia FROM PARROQUIAS WHERE Codprov=?  and Codcant=?

Private Sub Prov_nacComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prov_nacComboBox.SelectedIndexChanged

        Me.CANTONESTableAdapter.BUSCARCANTON(Me.BDDECEDataSet.CANTONES, Prov_nacComboBox.SelectedValue)

    End Sub

  

    Private Sub Cant_nacComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cant_nacComboBox.SelectedIndexChanged

        Me.PARROQUIASTableAdapter.buscarparroquia(Me.BDDECEDataSet.PARROQUIAS, CInt(Prov_nacComboBox.SelectedValue), CInt(Cant_nacComboBox.SelectedValue))

    End Sub

Read More

MALLA DESARROLLO PROFESIONAL DOCENTE

Read More

BASE DE DATOS DECE

HAGA CLICK

Read More

CURSO DE EXCEL BASICO

HAGA CLICK AQUI

Read More

CÓDIGO FUENTE EDICION DATOS

Public Class Form1
    Sub deshabilitar()
        Principio.Enabled = False
        Anterior.Enabled = False
        Siguiente.Enabled = False
        Ultimo.Enabled = False
        Nuevo.Enabled = False
        Guardar.Enabled = True
        Cancelar.Enabled = True
        Eliminar.Enabled = False
        Modificar.Enabled = False
        Salir.Enabled = False
        Buscar.Enabled = False
        Actualizar.Enabled = False
        '*************
        CedulaTextEdit.Enabled = True
        NombresTextEdit.Enabled = True
        EdadTextEdit.Enabled = True
        SexoComboBox.Enabled = True
        FotoPictureBox.Enabled = True

    End Sub
    Sub habilitar()
        Principio.Enabled = True
        Anterior.Enabled = True
        Siguiente.Enabled = True
        Ultimo.Enabled = True
        Nuevo.Enabled = True
        Guardar.Enabled = False
        Cancelar.Enabled = False
        Eliminar.Enabled = True
        Modificar.Enabled = True
        Salir.Enabled = True
        Buscar.Enabled = True
        Actualizar.Enabled = True
        '*************
        CedulaTextEdit.Enabled = False
        NombresTextEdit.Enabled = False
        EdadTextEdit.Enabled = False
        SexoComboBox.Enabled = False
        FotoPictureBox.Enabled = False
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        deshabilitar()
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        Try
            If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                      "Eliminar registro") = vbNo Then Exit Sub
            SujetoBindingSource.RemoveCurrent()
            SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        Catch ex As Exception
            MsgBox("Lo sentimos su Base de Datos se encuentra vacia", MsgBoxStyle.Exclamation, "Datos")
        End Try
    End Sub

    Private Sub Principio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Principio.Click
        SujetoBindingSource.MoveFirst()
    End Sub

    Private Sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
        SujetoBindingSource.MovePrevious()
    End Sub

    Private Sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
        SujetoBindingSource.MoveNext()
    End Sub

    Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
        SujetoBindingSource.MoveLast()
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        habilitar()
    End Sub

    Private Sub Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modificar.Click
        deshabilitar()
        CedulaTextEdit.Enabled = False
    End Sub

    Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        End
    End Sub
    Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelar.Click
        SujetoBindingSource.CancelEdit()
        habilitar()
    End Sub
    Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim buscarce As String
        buscarce = InputBox("Introduzca el Nùmero de Cèdula: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarcedula(Me.Mi_baseDataSet.Sujeto, buscarce)
    End Sub

    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Actualizar.Click
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Buscar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar1.Click
        Dim buscarnom As String
        buscarnom = InputBox("Introduzca el Nombre: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarnombres(Me.Mi_baseDataSet.Sujeto, buscarnom)
    End Sub


    Private Sub FotoPictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FotoPictureBox.Click
        Try
            OpenFileDialog1.Title = "Abrir Imagen"
            OpenFileDialog1.FileName = "Imagenes"
            OpenFileDialog1.Filter = "All Files |*.*"
            OpenFileDialog1.ShowDialog()
            FotoPictureBox.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
        Catch ex As Exception
            'Do Nathing End Try
        End Try
    End Sub
End Class

BÚSQUEDA DE CÉDULA

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (cedula = ?)

BÚSQUEDA DE NOMBRES

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (Nombres LIKE '%' + ? + '%')

Read More

EDICIÓN EN VISUAL BASIC .NET

Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub
        SujetoBindingSource.RemoveCurrent()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Principio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Principio.Click
        SujetoBindingSource.MoveFirst()
    End Sub

    Private Sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
        SujetoBindingSource.MovePrevious()
    End Sub

    Private Sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
        SujetoBindingSource.MoveNext()
    End Sub

    Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
        SujetoBindingSource.MoveLast()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
    End Sub

Read More

CODIGO FUENTE NUEVO-GUARDAR-ELIMINAR

Imports System.Data.OleDb
Public Class Form1

    Dim connString As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                              & "D:\PRACTICA MI_BASE\Mi_base.accdb" & ";Persist Security Info=False;") 'CAMBIA LA RUTA

    Dim Conexión As OleDbConnection = New OleDbConnection

    Private Sub SujetoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.SujetoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Mi_baseDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        Try
            CedulaTextEdit.Text = ""
            NombresTextEdit.Text = " "
            EdadTextEdit.Text = 0
            SexoTextEdit.Text = ""
            CedulaTextEdit.Select()
        Catch ex As Exception
            ex.Message.ToUpper()
        End Try
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        'Abrimos la conexión
        Conexión.ConnectionString = connString
        Conexión.Open()

        'Guardamos solo 4 campos
        Dim str As String
        str = "insert into Sujeto ([Cedula], [Nombres], [Edad], [Sexo]) values (?, ?, ?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        cmd.Parameters.Add(New OleDbParameter("Cedula", CType(CedulaTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Nombres", CType(NombresTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Edad", CType(EdadTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Sexo", CType(SexoTextEdit.Text, String)))
        Try
            cmd.ExecuteNonQuery()
            MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Conexión.Close()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If SujetoDataGridView.Rows.Count < 1 Then Exit Sub
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub

        Conexión.ConnectionString = connString
        Conexión.Open()

        Dim str As String

        str = "Delete from Sujeto Where Cedula = '" & CedulaTextEdit.Text & "'"
        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Try
            cmd.ExecuteNonQuery()
            MsgBox("Registro eliminado", MsgBoxStyle.Exclamation, "Eliminar registro")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

        Conexión.Close()

    End Sub
End Class

Read More

PROYECTO EN VISUAL BASIC .NET CON ACCESS

HAGA CLICK AQUI PARA VER LOS VIDEOS DEL PROYECTO

Read More

TUTORIAL DE VISUAL BASIC .NET (VISUAL STUDIO 2010

HAGA CLICK PARA VER LOS VIDEOS DEL TUTORIAL

Read More

CONEXION BD ACCESS VB .NET

Imports System.Data.OleDb
Module Module1
    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                           "Data Source=C:\Users\PCServifor\Documents\proyecto basededatos\estudiantes.accdb;")

    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub
End Module

Read More

67 FORMULAS AVANZADAS PARA PRACTICAS

HAGA CLICK PARA VER LAS PRACTICAS

Read More

FORMULAS PARA PRACTICAR

Haga click aquì para ver la pràctica.

Read More

CONEXION DE BD DENTRO DE UN PROYECTO

CREAR UN MODULO DENTRO DEL PROYECTO 

Imports System.Data.OleDb

Module funcionesDb

    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                         "Data Source=BDInventario.accdb;")
    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub


End Module

CÓDIGO EN EL FORMULARIO

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

Read More

VIDEO DE CONEXION DE UNA BASE DE DATOS ACCESS CON VB .NET

https://www.youtube.com/watch?v=Mr832Tc_LIg&list=PLpOqH6AE0tNic0oQ_sqQLCNfaL5oEEBo6&index=25

Read More

PRACTICAS DE EXCEL BASICO

Haga click en este link para ver las practicas de Excel.

Read More