Abriendo la base de datos de ASPEL

 En dias pasados me pidieron; la mision en mi nuevo trabajo de abrir la base de datos de aspel para exportar unos datos de la aplicacion COI a un sistema de la organizacion. la cosa que no sabia quue cosa es esto puesss ni que onda, la cosa que puedo abrir la base de datos en si son archivos que conforman cada tabla de la BD. y estan identificadas por una fecha ejemplo MO130701.db lo identifique asi MO=A montos aqui tenemos todos los datos de los montos y cosas de  dinerossss numeros de cheques y numeros de cuentas.

1307=es la fecha mes 07 dia 13

01=es cero uno todos los archivos tienen esta terminacion.

Dim objConnection As New OdbcConnection("Dsn=COI;dbq=C:\DATOS_COI;defaultdir=C:\DATOS_COI;driverid=538;fil=Paradox 5.X;maxbuffersize=2048;pagetimeout=600")

        Dim objDataAdapter As New OdbcDataAdapter
        Dim objDataSet As New DataSet()
        Dim n As Integer
        Dim CadDia As String
        Dim CadMes As String
        Dim CadYear, cadyearcompleto As String

        n = "9999"

CadDia = vb.Left(cadena, 2)

  CadMes = vb.Mid(cadena, 4, 2)

CadYear = vb.Right(cadena, 2)
        cadyearcompleto = vb.Right(cadena, 4)

        CadFinal = CadMes + CadYear
        Label4.Visible = True
        Label4.Text = cadena

        cad_fecha_insert = cadyearcompleto + "/" + CadMes + "/" + CadDia + " " + "00:00:00"
 'COPIANDO LOS ARCHIVOS DE LA CARPETA RED A C:DATOS_COI

        Dim origen, destino As String

        origen = "M:\Sistemas Aspel\COI5.50\Datos\MO" + CadFinal + "01.DB"
        destino = "C:\DATOS_COI\MO" + CadFinal + "01.DB"
        FileCopy(origen, destino)

        'CONEXION A LA BASE DE DATOS

        objDataAdapter.SelectCommand = New OdbcCommand()
        objDataAdapter.SelectCommand.Connection = objConnection
        objDataAdapter.SelectCommand.CommandText = "SELECT distinct TIPO_POLI,FECHA_POL,CONCEP_PO FROM MO" + CadFinal + "01 WHERE FECHA_POL LIKE " + "'" + cadena + "' AND TIPO_POLI  not in ('Dr')"
 objDataAdapter.SelectCommand.CommandType = CommandType.Text

        objConnection.Open()

        objDataAdapter.Fill(objDataSet, "nuevo")
        objConnection.Close()

        DataGridView.AutoGenerateColumns = True
        DataGridView.DataSource = objDataSet
        DataGridView.DataMember = "nuevo"

        objDataAdapter = Nothing
        objConnection = Nothing

este es mi codigo ojala les sirva YA SABEN COMO SON LAS ADMINISTRADORAS=" NO QUE ERES DE SISTEMAS A VER SI MUY BUENOO"

 Que tal landin,

Te agradezco que compartas con la comunidad tus experiencias, esperamos seguir contando con tu participación en los foros de discusión y en los blogs.