none
Abrir base de datos antigua RRS feed

  • Pregunta

  • Hola soy nuevo en este mundo, y necesito de su ayuda, resulta que tengo una base de datos que se respalda cada hora y es una base de datos de crédito, resulta que está abierta a mesas (x) y lo que yo quiero hacer es traer la información de el dia(x) y mostrarla en mi datagridview, ejemplo:   "c\respaldo\creditorespaldo10_09_2018_7_pm.accdb"  selecionar esa y abrirla para ver que debia (x) persona en ese día o a esa hora? de antemanos gracias.
    jueves, 20 de septiembre de 2018 2:17

Respuestas

  • Hola gracias por responder, no se si me hice entender lo que me gustaría es elegir la base de datos por ejemplo ;con un open file, click sobre la base de datos y abrir la base de Datos seleccionada de la lista
    • Marcado como respuesta NESTORDA domingo, 23 de septiembre de 2018 20:00
    sábado, 22 de septiembre de 2018 0:10

Todas las respuestas

  • Buenos días

    Entiendo que tienes dentro de "c\respaldo\" una base de datos por cada hora del día no? y que los nombres de los ficheros siguen la misma estructura, correcto? Siendo así no veo problema en conectarte a una de esas bases de datos, pero ojo mostrarás los datos de una hora en concreto, no de un día completo. el código sería algo así.

    Imports System.Data.OleDb
    
    Public Class RadForm1
    
        Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles Me.Load
            'Suponiendo que queramos ver los datos de hoy a las 10:00 AM....
            Dim Ruta As String = "c\respaldo\creditorespaldo" & Now.Day.ToString _
                & "_" & Now.Month.ToString("00") & "_" & Now.Year.ToString _
                & "_10_am.accdb"
    
            'Tambien podemos hacer uso de Now.ToString("dd") , Now.ToString("MM")....etc
    
            'Construyo la cadena de conexión...
            Dim Conexion As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; 
            Data Source=" & Ruta & ";Persist Security Info=False;")
    
            '... Genero consultas y devuelvo datos al grid
    
        End Sub
    End Class

    viernes, 21 de septiembre de 2018 12:43
  • Hola gracias por responder, no se si me hice entender lo que me gustaría es elegir la base de datos por ejemplo ;con un open file, click sobre la base de datos y abrir la base de Datos seleccionada de la lista
    • Marcado como respuesta NESTORDA domingo, 23 de septiembre de 2018 20:00
    sábado, 22 de septiembre de 2018 0:10
  • Te dejo el código

            Dim OpenFileDialog1 As New OpenFileDialog
            With OpenFileDialog1
                .Filter = "Ficheros Access|*.accdb"
                If .ShowDialog = DialogResult.OK Then
                    'Construyo la cadena de conexión...
                    Dim Conexion As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; 
                    Data Source=" & .FileName & ";Persist Security Info=False;")
                    Conexion.Open()
                    Dim cmd As New OleDbCommand("Select * From Tabla1", Conexion)
                    Dim DA As New OleDbDataAdapter(cmd)
                    Dim DT As New DataTable
                    DA.Fill(DT)
                    Me.DataGridView1.DataSource = DT
                    Conexion.Close()
                End If
            End With

    Saludos

    • Propuesto como respuesta jardsoft domingo, 23 de septiembre de 2018 15:24
    sábado, 22 de septiembre de 2018 18:50
  • Hola amigo muchisimas gracias , con tu código y parte de otro que conseguí logré importar las bases de datos que necesitaba, con solo hacer un clic sobre ellas puedo traer la data de cualquier dia, esto es muy bueno para respaldar y traer cualquier informacion ,asi como para comparar si alguien modifico  por error algo de verdad muchas gracias...
    Imports System.Data.OleDb
    Public Class Form63
        Dim conexion As OleDb.OleDbConnection 'Crear una instancia de conexión
        Dim tabla As DataTable  'Representa una tabla de datos'
        Dim adaptador As OleDb.OleDbDataAdapter 'Hace los datos legibles para crear instancias de un origen de datos
        Dim constructor As OleDb.OleDbCommandBuilder 'Sirve para construir comandos y consultas SQL'
        Dim reader As OleDb.OleDbDataReader
        Private Sub Form63_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'COSTA_NOVA_beDataSet.COMPRA' Puede moverla o quitarla según sea necesario.
            Me.COMPRATableAdapter.Fill(Me.COSTA_NOVA_beDataSet.COMPRA)
            'TODO: esta línea de código carga datos en la tabla 'COSTA_NOVA_beDataSet.COMPRAVENTA' Puede moverla o quitarla según sea necesario.
            Me.COMPRAVENTATableAdapter.Fill(Me.COSTA_NOVA_beDataSet.COMPRAVENTA)
    
        End Sub
        Public Sub New()
            InitializeComponent()
            Dim cadena_conexion As String
            Dim OpenFileDialog1 As New OpenFileDialog
            With OpenFileDialog1
                .Filter = "Ficheros Access|*.accdb"
                If .ShowDialog = DialogResult.OK Then
                    cadena_conexion = String.Format("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" & .FileName & ";Persist Security Info=False;")
                    Try
                        conexion = New OleDb.OleDbConnection(cadena_conexion)
                        conexion.Open()
                    Catch ex As OleDb.OleDbException
                        MessageBox.Show("No se ha podido conectar al servidor " + ex.Message)
                    End Try
                End If
            End With
        End Sub
        Public Sub Cargar()
            tabla = New DataTable  'Crea una nueva instancia de tabla
            adaptador = New OleDb.OleDbDataAdapter("SELECT * FROM CREDITO", conexion) 'Crea una consulta
            constructor = New OleDb.OleDbCommandBuilder(adaptador) 'Se interpreta la consulta
            adaptador.Fill(tabla) 'Se guarda los registros obtenido en la variable tabla
            DataGridView1.DataSource = tabla 'Se dibujan los datos en el DataGridView
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
    
            Cargar()
        End Sub
    End Class

    domingo, 23 de septiembre de 2018 0:12
  • Si te fue de ayuda la respuesta márcala como respuesta correcta.

    Gracias

    domingo, 23 de septiembre de 2018 15:21
  • Listo, gracias ti por tu ayuda..
    domingo, 23 de septiembre de 2018 20:01