Técnicas de Comunicación y Negociación Efectiva

Maestría en Ciencias Computacionales y Telecomunicaciones

Técnicas de Comunicación y Negociación Efectiva

Un día cotidiano en la oficina - CC03-02-01
Proceso efectivo de comunicación - CC03-02-02
Importancia de un plan de negociación - CC03-02-03
Estrategias para una buena negociación - CC03-02-04

Read More

Medios Tecnológicos Innovadores en Entornos Virtuales

Maestría en Ciencias Computacionales y Telecomunicaciones

Medios Tecnológicos Innovadores en Entornos Virtuales

Nociones básicas de la plataforma LMS - CC03-01-01
El uso de las tecnologías de la información en el ámbito laboral - CC03-01-02
Conceptos y aplicaciones de la Web 2.0 - CC03-01-03
La aplicación de las funciones de Google para la búsqueda de información - CC03-01-04

Read More

Marco de Gobierno de Seguridad de la Información

Maestría en Ciencias Computacionales y Telecomunicaciones

Marco de Gobierno de Seguridad de la Informacion

Protocolos de seguridad informática - CC03-11-01
Estándares y políticas de seguridad informática - CC03-11-02
Algoritmos y herramientas de criptografía - CC03-11-03
Análisis de la seguridad de los certificados y firmas digitales - CC03-11-04

Read More

Access: Vincular una base de datos con .Net

En una entrada posterior, había explicado los pasos para realizar una conexión a una base de datos MySQL utilizando .Net.

En esta ocasión, simplemente compartiré el código fuente para realizar una conexión a la base de datos, utilizando tres procedimientos: 

ProbarConexion() As Boolean Esta función devuelve verdadero si se puede establecer la conexión a la base de datos o devuelve falso en caso contrario.

DataTableSelect(ByVal dataSet As DataSet, ByVal sSQL As String) As DataSet. Es una función que devuelve una consulta a través de un dataset.

DataSQLSentence(ByVal sSQL As String) Es un procedimiento que envía una sentencia SQL a la base de datos. Este procediemiento lo utilizo para las sentencias INSERT, UPDATE y DELETE.

Esperando que la información sea de su utilidad:

Imports System.Data.OleDb

Public Class ClassConection
    Dim MdbSQLConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\NOMINA97.MDB"
    Public MdbSQLConn As OleDbConnection = New OleDbConnection(MdbSQLConnString)

    Function ProbarConexion() As Boolean
        Dim value As Boolean = False
        Try
            MdbSQLConn.Open()
            MdbSQLConn.Close()
            value = True
        Catch ex As Exception
            value = False
            MessageBox.Show("Error de conexión a la base de datos." & vbCrLf & "Este error impide continuar con las operaciones del sistema." & vbCrLf & "La aplicación se cerrará!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try
        ProbarConexion = value
    End Function

    Public Function DataTableSelect(ByVal dataSet As DataSet, ByVal sSQL As String) As DataSet
        Dim adapter As New OleDbDataAdapter()

        Try
            If (ProbarConexion()) Then
                adapter.SelectCommand = New OleDbCommand(sSQL, MdbSQLConn)
                adapter.Fill(dataSet)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Metodo DataTableSelect", MessageBoxButtons.OK)
        Finally
            MdbSQLConn.Close()
        End Try

        Return dataSet

    End Function

    Public Sub DataSQLSentence(ByVal sSQL As String)

        Try
            If (Probarconexion()) Then
                'Declaración de variables de conexión propias de SQL
                Dim myCommand As New OleDbCommand(sSQL, MdbSQLConn)
                MdbSQLConn.Open()
                myCommand.ExecuteReader()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Método DataSQLSentence", MessageBoxButtons.OK)
        Finally
            MdbSQLConn.Close()
        End Try

    End Sub
End Class

Aquí les dejo la implementación de la clase:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CCon As New ClassConection
        Dim dsSQL As New Data.DataSet
        Dim sSQL As String = ""

        Try
            If (TextBox1.Text <> "") Then
                sSQL = TextBox1.Text
                CCon.DataTableSelect(dsSQL, sSQL)
                CCon = Nothing
                Me.DataGridView1.DataSource = dsSQL.Tables(0)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Método DataSQLSentence", MessageBoxButtons.OK)
        End Try


    End Sub

Read More

Una meta alcanzada: Titulación

Esta es una noticia que quiero registrar en este blog, queridos lectores el pasado 24 de marzo tuve a bien presentar mi Acto de Recepción Profesional.

¿Y en qué consiste dicho acto?

Bueno, primero necesito explicar que el Instituto Tecnológico de Toluca, cuenta con diferentes opciones de titulación, en especial para la retícula (1992) cuento con la Opción de Titulación IX: Escolaridad por Estudios de Posgrado.

Al comprobar que la carga académica de dicho posgrado es compatible con el perfil académico previamente aprobado y autorizado por la academia de sistemas computacionales, y al cubrir el cincuenta por ciento de los créditos académicos, se procede a la titulación por esta opción.

Durante el acto, se presentaron tres catedráticos: Un presidente, un secretario y un vocal. Quienes dan fe del evento y mencionan la opción de titulación que estoy eligiendo, la cual se me exenta de presentar algún documento o exposición.

Posteriormente, tomo Protesta como Ingeniero, se me lee el Código de Ética Profesional y concluyo con el Juramento de Ética Profesional.

Dicho Acto de Recepción Profesional es muy breve.

Recibí felicitaciones por parte del jurado, quienes me recordaron como un estudiante destacado y responsable.

Pero lo más importante y lo que dejo plasmado en este blog, es que los catedráticos del jurado reconocieron que a pesar de mi edad y de los años que han pasado desde que egresé de la escuela, por fin culminé con una meta que había dejado pendiente.

Felicitaron a mi mamá y a mi esposa, porque sus esfuerzos y sus impulsos dejaron frutos y dejarán cosas nuevas el día de mañana. A mí me felicitaron, porque son pocas las personas que continúan estudiando y preparándose y la prueba de ello es que estoy por concluir mi posgrado.

Desde esta líneas exhorto a mis compañeros de trabajo y de escuela, que se esfuercen para alcanzar estas metas; muchos de nosotros ponemos pretextos para no continuar. Yo fui uno de ellos. Pero como he dicho, son pretextos y ahora ya cuento con un título académico.

Y saben una cosa: estoy feliz porque soy Ingeniero, pero no estoy orgulloso por dejar pasar tanto tiempo.

Read More