¿Cómo acceder a dbf desde vb.net?

Uno de los problemas que podemos tener al hacer un programa con vb.net es con el acceso a datos dbf, como contaplus, facturaplus, etc.
Bueno voy a poner un pequeño ejemplo de como se puede acceder a datos dbf con de una forma muy sencilla.

Espero que os sea de ayuda.


Hasta la próxima.

Conectar MySql con Visual Basic .net 2010

Hoy voy a hablar de algo que hace unos meses me llevó de cabeza:


¿Cómo conectar MySql con vb.net 2010?


Como podéis ver he creado un módulo para la rutina de conexión con la base de datos. Estas sub-rutinas las llamaré desde los formularios.


La cadena de conexión es una variable global en la que pongo los valores de la conexión:



    Public IdBaseDatos As String = "database=nombre de la base de datos;"
    Public IdIpEquipo As String = "localhost;" ó IpdelOrdenador ó nombredelamáquina
    Public IdUsuario As String = "Uid=Usuario;"
    Public IdPassword As String = "Password=xxxxx;"
    Public IdPuerto As String = "Port=3306;"


    Public CadenadeConexionMySql As String = IdBaseDatos & IdIpEquipo & IdUsuario & IdPassword & IdBaseDatos & IdPuerto




Imports System.Data.SqlClient
Module BaseDatos
    ' Mysql 
    Public cnn As New MySql.Data.MySqlClient.MySqlConnection
    Public dt As New DataTable
    Public da As New MySql.Data.MySqlClient.MySqlDataAdapter
    Public cmd As New MySql.Data.MySqlClient.MySqlCommand
    Public GBindingSource As New BindingSource
    ' abro la conexion




    Public Sub ConectarMySql(ByVal CadenaSql As String)
        Dim ComandosBasicos As New MySql.Data.MySqlClient.MySqlCommandBuilder(da)


        Try


            If cnn.State = ConnectionState.Open Then
                BaseDatos.CerrarMySql()
            End If
            cnn.ConnectionString = Variables.CadenadeConexionMySql
            cnn.Open()
            ' creo el comando y lo lleno con la tabla empleados
            cmd.Connection = cnn
            cmd.CommandText = CadenaSql
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            '------------------------------------------------------------------------
            ' añado esta linea porque dt.rows.count mostraba los registros 
            ' de las otras consultas
            '------------------------------------------------------------------------
            dt = New DataTable


            da.Fill(dt)
            If InStr(CadenaSql, "*") > 0 Then
                da.InsertCommand = ComandosBasicos.GetInsertCommand
                da.UpdateCommand = ComandosBasicos.GetUpdateCommand
                da.DeleteCommand = ComandosBasicos.GetDeleteCommand
            End If
            GBindingSource.DataSource = dt
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub




    Public Sub GrabarBindingSource()
        Try
            GBindingSource.EndEdit()
            da.Update(dt)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub




    Public Sub CerrarMySql()
        Try
            cnn.Close()
            cnn.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub
End Module

La creatividad

Dicen por ahí que la creatividad no se nace, se hace.Que deberíamos de darnos cuenta de lo que hacen nuestros hijos, por qué cosas se ilusionan. Intentar ver un poco más allá de lo que vemos a simple vista.
También dicen que había un niño que cuando tenía seis años andaba con las manos, sí haciendo el pino, cuando tenia ocho bajaba escaleras haciendo el pino, sobre las manos. Un día sus padres decidieron llevarlo a un gimnasio, en la ciudad donde vivía, el niño la primera vez que entró en el gimnasio creyó estar en DisneyWorld, estaba encantado con todo lo que veía, aros, potro..., todos los aparatos le parecían maravillosos, el resultado es que llegó a ser campeón olímpico de gimnasia.
Con esto quiero decir que cuando a un niño le gusta algo y es algo que está al alcance de los padres, estos deberían ayudar a su hijo a alcanzar las metas que se propone.
Conforme vamos creciendo, cada vez nos adentramos más y más en nuestros problemas y dejamos la creatividad a un lado, hay que potenciarla cuando se es joven. No dejes pasar la oportunidad y haz lo que realmente te motive, estamos la mayor parte de nuestro tiempo en el trabajo, que este no sea una carga para ti, ve a trabajar con alegría y con ilusión, si no te gusta tu trabajo, intenta cambiar, no todo se centra en lo que conocemos, ahí todo un mundo por descubrir ve y descubre los, no te quedes parado pensando en que puedes estar peor, seguramente podrás estar mejor.
El tema de la creatividad lo vi en Redes el Domingo y me encantó.

Un apunte sobre las conexiones wifi.

Hay una polémica con las antenas wifi, que si son perjudiciales para la salud o no, yo en un principio era reacio a pensar que eran perjudiciales para la salud, pero un día me dí cuenta de que a mi hijo le dolía la cabeza una mañana que estuve conectado a Internet con una  antena yagi que estaba colocada justo en la pared donde duermen los niños, esto me hizo pensar, realmente son inocuas. Realmente no tengo ningún estudio serio que lo corrobore, pero ahora cuando no utilizo internet o la wifi, apago o bien el router o bien la conexión inalámbrica.