Un lugar por donde empezar...

Migracion de Access a Firebird

En este apartado explico como mediante el uso del programa ESF Database Convert puedes migrar tu base de datos Access a Firebird y no tener mayor inconveniente con tu codigo VB6. Espero te sirva.

Imagen de previsualización de YouTube

Proyecto

 

5 Comentarios

  1. JESUS TRILLO JESUS TRILLO
    Febrero 12, 2016    

    Saludos Yacosta. te voy hacer un par de preguntas a ver si me puedes ayudar. La primera es si esa base de datos firebird se puede usar gratis. No lo pregunto por nada malo sino que en mi pais hay un control cambiario fuerte, vivo en venezuela y no hay acceso a dolares tan facilmente. O me quedo con acces. en total aproximadamente se van a guardar de 250 mil a 300 mil registros no se si me lo aguante.

    La otra pregunta o duda es sobre un problema que tengo en mi programa. actualmente me funciona bien pero necesito exportar a excel una consulta que realizo en un record set y este lo pasa a un mshflexgrid. el me lo manda a excel chevere pero hay datos relacionados con otras tablas relacionadas que no se como convertirlas. ejemplo:

    NOMBRE-APELLIDO-COMUNIDAD-CONDICION

    nombre:jesus
    apellido: trillo
    comunidad: 3
    condicion:2

    el problema lo tengo en los ultimos dos campos ya que esos son los id de su siginificado 3 sigifica SAN DIEGO y 2 q esta cancelado
    que es lo que quiero que me muestre en excel cuando lo exporto. me imagino que con un bucle se puede hacer pero no se como, no soy experto en visual basic de todos modos te voy a dejar el codigo q tengo en el botos para exportar a ver que puedes hacer y la consulta que hago.
    esto es lo que tengo en el botos para exportar:
    Private Sub cbExcel_Click()

    Dim i As Long, j As Long
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim xlHoja As Object

    On Error Resume Next

    Set objExcel = CreateObject(“Excel.Application”)
    objExcel.Visible = True

    Set objWorkbook = objExcel.Workbooks.Open(App.Path & “\reporte.xlsx”, True, True, , “”)
    Set xlHoja = objExcel.Worksheets(“INAVI”)

    Set objWorkbook = xlHoja.Workbooks.Add
    For i = 1 To flexSectores.Rows – 1
    flexSectores.Row = i
    For j = 1 To flexSectores.Cols – 1
    flexSectores.Col = j
    objWorkbook.ActiveSheet.Cells(i + 9, j + 1).Value = flexSectores.Text
    Next
    Next
    objExcel.Cells.Select
    objExcel.Range(“A1”).Select

    Set objWorkbook = Nothing
    Set objExcel = Nothing
    End Sub

    y esta la consulta sql

    Private Sub cbConsulta_Click()
    Dim Finicial As Date
    Dim Ffinal As Date
    Dim Direcc As String

    Direcc = “CARABOBO”
    Finicial = dpInicial.Value
    Ffinal = dpFinal.Value
    With rsConsulta
    If .State = 1 Then .Close

    End With
    rsConsulta.Open (“select serial, cedula, apellido, apellido1, nombre, nombre1,'” & Direcc & “‘, urbanismo, tipo_urbanismo, capital, interes, municipios, registros, FCancelacion, numerodeposito, mdepositado, condicion from inavi where Mdepositado > 0 and fcancelacion >= #” & Format(Finicial, “mm-dd-yyyy”) & “# and fcancelacion <= #" & Format(Ffinal, "mm-dd-YYYY") & "# "), Base, adOpenStatic, adLockOptimistic

    Set flexSectores.DataSource = rsConsulta
    CargarGrilla
    End Sub

    de verdad es lo unico que me falta para terminar la aplicacion. saludos espero puedas echarme una mano

    • YAcosta YAcosta
      Febrero 12, 2016    

      Respuesta a la primera pregunta:
      Si, es totalmente gratis y de codigo abierto, tengo un video aqui que explica mas sobre ello:
      https://www.youtube.com/watch?v=OpUGw4Xme9M

      Respuesta sobre la segunda pregunta:
      ¿Donde tienes “SAN DIEGO” y “CANCELADO”? se supone que lo debes tener en otro tabla y en ese caso te falta relacionarla de esa manera haces un JOIN con esa tabla y puedes mostrar “SAN DIEGO” y “CANCELADO”.
      Este sitio no es adecuado para publicar codigo, en todo caso para preguntas sobre codigo es mejor publicarlo en mi foro: http://www.forovisualbasic.com que acabo de abrir y que ire mejorando.

      Saludos

  2. Febrero 14, 2016    

    Saludos, estoy de vuelta anoche pude solucionar con los parentesis, ahora estoy tratando de migrar a esta base de datos pero se me presenta un problema cuando trato de conectar la base de datos. ya le he cambiado la contrasena al archivo firebird como 20 veces y en ninguna me conecta ya he visto muchos videos a ver si estoy haciendo algo mal pero nada. de verdad no entiendo lo q pasa. trabajo en windows 10 de 64bits no se si pueda ser eso pero intale la de 32bits

    • Febrero 14, 2016    

      este es el error que me manda:

      unsuccessful execution caused by a system error that precludes successful execution of subsequent statements. your user name and password are not defined. your database administrator to set up a firebird login

      pero de verdad la he cambiado muchisimas veces y me manda el mismo error

    • YAcosta YAcosta
      Febrero 14, 2016    

      Si trabas con un Windows de 64 bits debes instalar la version de firebird de 64 bits y el odbc de 64 bits tambien. El usuario es SYSDBA y el password es masterkey

      P.D: Agradeceria si continuamos la conversa en forovisualbasic.com para ganar trafico, dentro del subforo Base de datos / Firebird claro.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

*

Protected by WP Anti Spam

Gracias por su visita.