[vbusers] archivos dbf

Wed, 02 May 2007 17:33:49 -0700 

    Yo lo mediante de DAO.
    Ejemplo: "c:\dbf desde vb6\ejemplo.dbf"


    1) Referencio la librería de DAO:
       


    2) Abro el archivo .dbf:

        Dim dbDBF As DAO.Database
        Set dbDBF = DAO.OpenDataBase("c:\dbf desde vb6\", True, False,
"dBase IV")


    3) Abro el recordset:        

        Dim rstDBF As DAO.Recordset
        Set rstDBF = dbDBF.OpenRecordset("ejemplo.dbf")


    4) Uso las herramientas de DAO:
        Si no las conocés, con sólo poner DAO y luego un punto (.), observá
las lista de funciones.
        Por ejemplo, para hacer lo que planteaste, deberías hacer algo por
el estilo:

    'Ejemplo: De "c:\dbf desde vb6\dbf1.dbf" a "c:\dbf desde vb6\dbf2.dbf"
     Dim dbDBF As DAO.Database
     Dim rstDBF1 As DAO.Recordset
     Dim rstDBF2 As DAO.Recordset
     Set dbDBF = DAO.OpenDataBase("c:\dbf desde vb6\", True, False, "dBase
IV")
     Set rstDBF1 = dbDBF.OpenRecordset("dbf1.dbf")
     Set rstDBF2 = dbDBF.OpenRecordset("dbf2.dbf")
     rstDBF1.MoveFirst
     While Not rstDBF1.EOF
          rstDBF2.AddNew
          rstDBF2.Fields("Campo1").Value = rstDBF1.Fields("Campo1").Value
          rstDBF2.Fields("Campo2").Value = rstDBF1.Fields("Campo2").Value
          'etc.
          rstDBF2.Update
          rstDBF1.MoveNext
     Wend
     rstDBF1.Close
     rstDBF2.Close
     dbDBF.Close


    Espero te sea de utilidad.

    Suerte.



_____________ NOD32 EMON 2235 (20070502) information _____________

This message was checked by NOD32 antivirus system
http://www.eset.com

<<Outlook.jpg>>

Responder a