vincular archivos .dbf a access

[pacorubio77]

Hola,

He importado archivos .dbf a una base de datos en access y se hace correcto, ahora a mi me gustaria que de manera automática, cuando esa base de datos se abra, se actualizara automáticamente.

¿Se puede realizar ese procedimiento con algún código en Visual ?

Quedo a la espera de respuesta.

Gracias.

[computer_si]

Hola mira lo que yo hago es borrar la tabla y despues vincularla nuevamente, lo que ya no entendi es lo hiciste desde access o por programacion, tambien se me ocurre que podrias hacer un update si ya vincluaste la tabla y no la quieres borrar.

El problema radicara en que si tienes nuevos registros, acces no acepta la instruccion Inser or Update.

Te paso algo de codigo que yo utilize para vincular una tabla de paradox a acces.

cn es mi conexion a la BD de datos de Acces (ADODB.Connection)
Rs es mi RecordSet

Set Rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Rs.MoveFirst

xNum = 0

'recorro mi coleccion de tablas de la BD

Do Until Rs.EOF
Select Case UCase(Rs("TABLE_NAME"))
Case Is = "TIRA"
cn_Ensambles.Execute _
"DROP TABLE TIRA"
xNum = xNum + 1

End Select

'Si encuentro la tabla salgo, no tiene caso recorrer toda la coleccion
If xNum >= 1 Then
Exit Do
End If

Rs.MoveNext

Loop

'Ya que la borre la vinculo nuevamente

cn.Execute _
"SELECT * INTO TIRA FROM " & _
"[Paradox 5.x; " & _
"DATABASE=" & Trim(pDatosSAE) & _
"].[INVE" & Trim(pEmpresaSae) & "#DB] "

Espero te sirva

Saludos

[pacorubio77]

Hola,

Me explico mejor, yo lo hice a mano, para hacer una serie de consultas, pero claro, estas consultas se han muchas veces , y las tablas van teniendo registros nuevos, columnas nuevas no, pero si van a tener filas nuevas, entonces la idea es cada vez que se ejecute ese procedimiento, que borre las tablas y las actualice , son entre 4-5 tablas siempre.

tengo una serie de dudas en tu código

Set Rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

table es el nombre de la tabla, si la tabla se llama "apellidos", pondría apellidos? , y los demás parámetros estarían en empty?

y tambien

Select Case UCase(Rs("TABLE_NAME")) , aqui tendría que hacer un case para cada tabla?


Quedo a la espera para implementarlo

[computer_si]

Set Rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

Lo tienes que dejar tal cual, para que te muestre la coleccion de tablas.


Select Case UCase(Rs("TABLE_NAME"))

Pongo el UCase para que el nombre de la tabla que es "TABLE_NAME" me lo de en mayusculas y hacer la comparacion en el Case Is, que tendria que ser uno para cada tabla

Select Case UCase(Rs("TABLE_NAME"))
Case Is = "TABLA01"
cn_Ensambles.Execute _
"DROP TABLE TABLA01"
xNum = xNum + 1

Case Is = "TABLA02"
cn_Ensambles.Execute _
"DROP TABLE TABLA02"
xNum = xNum + 1

Case Is = "TABLAxx"
cn_Ensambles.Execute _
"DROP TABLE TABLAxx"
xNum = xNum + 1

End Select

Saludos