Visual Basic - dbf a mdb

Life is soft - evento anual de software empresarial
   
Vista:

dbf a mdb

Publicado por sergio merlo (34 intervenciones) el 25/01/2012 20:16:57
tengo una aplicacion hecha en visual basic 6.0 y tengo que actualizar una tabla de la base de datos mdb pero esa actualizacion la tengo que hacer desde una tabla dbf.
les agradecaria mucho decirme como hacerlo y si puede ser darme un ejemplo
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

dbf a mdb

Publicado por Christian (666 intervenciones) el 03/02/2012 20:05:55
Lo más fácil es que entres a Access de Microsfot, luego haces una nueva base de datos:

Archivo - Nuevo - Nueva Base de datos.

Luego

Archivo - Obtener datos externos - Importar - Tipo de Archivo: dBase (III o IV)

Y sacas todas las tablas de datos que quieras.

-------------------------------------------------------------------

La otra un DTS desde SQL

Saludos
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

dbf a mdb

Publicado por Guido (71 intervenciones) el 08/02/2012 21:43:01
Si es por única vez el consejo de Cristian puede ser lo mejor. En caso que tenga que sea una operación rutinaria, o repetida, lo más conveniente es abrir el DBF con el motor de bases de datos (sugieron ADO). Te paso una función que abre conexiones a DBF de 3 maneras diferentes. Probalo.

El argumento StrSource en realidad es la carpeta en la cual está el o los DBF.

Public Function AbrirConexionDBF(dcd As ADODB.Connection, ByVal StrSource As String, _
Optional ByVal StrTypeSource As String = "DBF") As Boolean

Dim lErr As Error, isOK As Boolean, iTry As Integer
Dim StrCnn As String

iTry = 0
Select Case iTry
Case 0 'fox pro driver...
StrCnn = "Provider=MSDASQL.1;"
StrCnn = StrCnn & " Driver={Microsoft Visual FoxPro Driver};"
StrCnn = StrCnn & " SourceDB=" & StrSource & ";"
StrCnn = StrCnn & " SourceType=" & StrTypeSource & ";"
StrCnn = StrCnn & " Uid=;Pwd=;"
Case 1
StrCnn = " Driver={Microsoft dBASE Driver (*.dbf)};"
StrCnn = StrCnn & " DBQ=" & StrSource & ";"
StrCnn = StrCnn & " SourceType=" & StrTypeSource & ";"
StrCnn = StrCnn & " DriverID=277;"

Case 2 'mix ...
StrCnn = "Provider=MSDASQL;"
StrCnn = StrCnn & "Driver={Microsoft dBase Driver (*.dbf)};"
StrCnn = StrCnn & "DBQ=" & StrSource & ";"
StrCnn = StrCnn & " DriverID=277;"
StrCnn = StrCnn & " SourceType=" & StrTypeSource
End Select



dcd.ConnectionString = StrCnn

dcd.Open
isOK = True

If dcd.Errors.Count Then
For Each lErr In dcd.Errors
Debug.Print lErr.Description
If lErr.Number Then
Debug.Print lErr.Description
isOK = False

End If
Next lErr
End If

AbrirConexionDBF = isOK

End Function

saludos
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