Visual Basic - Importar una base de datos dbf a access

Life is soft - evento anual de software empresarial
   
Vista:

Importar una base de datos dbf a access

Publicado por betsy (28 intervenciones) el 29/10/2007 15:46:15
hola necesito ayuda yo quiero importar una base de datos dbf a access pero mediante codigo por visual basic 6.0 osea que yo coloque un boton en visual que se llame importar y al darle click el me genere la importacion pero no se como hacerlo, yo lo se hacer en acces directamente dandole importar y busco la tabla dbf pero no lo quiero hacer asi si no por codigo y en visual basic.

por favor si alguien sabe como hacerlo me escriben y se los agradecere fulllll por que lo necesito urgente.

gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Prueba así

Publicado por ivan (1041 intervenciones) el 29/10/2007 22:04:00
Dim RutaDbf As String
Dim ArchivoDBF As String
Dim RutaAccess As String
Dim TablaAccess As String
' aquí colocas tus datos
RutaDbf = "c:\MisBasesDBF\"
ArchivoDBF = "NombreDeLaDBF.DBF"
RutaAccess = App.Path & "\MiDataBase.mdb"
TablaAccess = "MiTabla"

Dim db As DAO.Database
Set db = OpenDatabase(RutaDbf, False, False, "Dbase IV;")
db.Execute "Select * Into " & TablaAccess & " IN '" & _
RutaAccess & "' from " & ArchivoDBF

Tienes que tener una referencia a DAO en el proyecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Importar una base de datos dbf a access

Publicado por jose antonio aguilar sandoval (1 intervención) el 30/10/2007 02:11:13
como se convierte una base de datos hecha en microsoft 200 a microsoft 97
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Importar una base de datos dbf a access

Publicado por manuel angel (2 intervenciones) el 20/03/2011 00:00:54
uso su codigo

Dim RutaDbf As String
Dim ArchivoDBF As String
Dim RutaAccess As String
Dim TablaAccess As String
' aquí colocas tus datos
RutaDbf = "c:\MisBasesDBF\"
ArchivoDBF = "NombreDeLaDBF.DBF"
RutaAccess = App.Path & "\MiDataBase.mdb"
TablaAccess = "MiTabla"

Dim db As DAO.Database
Set db = OpenDatabase(RutaDbf, False, False, "Dbase IV;")
db.Execute "Select * Into " & TablaAccess & " IN '" & _
RutaAccess & "' from " & ArchivoDBF



y me arroja el error ""la tabla externa no tiene el formato esperado mis tablas son hechas en clipper
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar