Discussion :

[Bragon12]

Bonjour à tous
,
Dans le cadre du développement d'une base de données, je souhaite qu'une action mette à jour les données d'un SIG.
Le fichier de donnée est donc un dbf.
Je pense que l'action est assez simple, mais j'ai du mal à visualiser la procédure de connexion entre Access et cette table et comment gérer le fait qu'on se connecte simulatanément à la base access et la table externe.
Merci de votre aide pour me donner quelques pistes!

[bernardmichel]

Hello !

Je te propose d'essayer une commande telle que celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferDatabase transfertype:=acImport, databasetype:="dBaseIV",  databasename:="CheminBaseSIG", objecttype:=acTable, Source:="NomTableSource",  destination:="NomTableDestination"

Espérant avoir répondu à ton attente...

Cordialement.

[Bragon12]

Merci pour ta réponse,

Si je comprend bien le fonctionnement de cette fonction, elle va permettre d'importer ou d'exporter les données depuis/vers mon fichier.
En fait je voudrais faire un tâche un peu plus complexe : les données pourront être mises à jour soit via le SIG, soit via la base access et je souhaiterai mettre à jour l'un en fonction des dernières mises à jour de l'autre (avec un champ date pour connaitre les dernières mises à jour).

[bernardmichel]

Hello !

Je comprends bien ce que tu veux faire mais je suppose que tu peux le faire (je ne l'ai jamais testé)

Essayes avec la fonction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferDatabase transfertype:=acLink, databasetype:="dBaseIV",  databasename:="CheminBaseSIG", objecttype:=acTable, Source:="NomTableSource",  destination:="NomTableDestination"

Ceci devrait te permettre de "lier" la table se trouvant dans ton SIG et, à partir de là, tu devrais pouvoir modifier cette table depuis les deux environnements.

Cordialement.

[chrtophe]

Plutôt que de faire un transfert, il doit être possible de faire un lien ODBC vers un fichier .dbf.

[Bragon12]

J'essaie de faire un lien ODBC, mais j'ai un message d'erreur :


Voici mon code (récupéré sur un forum), je ne comprends pas trop ce qui pose problème...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande0_Click()
    Dim Cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim Chemin As String, Cible As String, laBase As String
 
    Chemin = "Z:\"
    laBase = "Potentiel_communal.dbf"
 
    Set Cn = New ADODB.Connection
    Cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Chemin & ";"
    Cible = "SELECT * FROM " & laBase & ";"
 
    Set Rs = New ADODB.Recordset
    Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
 
End Sub

[bernardmichel]

Salut !

Je ne veux pas insister mais, as-tu essayé le code que je t'ai proposé ?

[Bragon12]

J'ai un message d'erreur "le type de base de données dBaseIV n'est pas installé ou ne gère pas l'opération sélectionnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferDatabase transfertype:=acLink, databasetype:="dBaseIV", databasename:="z:\Potentiel_communal.dbf", objecttype:=acTable, Source:="Potentiel_communal", destination:="Commune"

[Bragon12]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande0_Click()
    Dim Cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim Chemin As String, Cible As String, laBase As String
 
    Chemin = "Z:\"
    laBase = "Pote.dbf"
 
    Set Cn = New ADODB.Connection
    Cn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Chemin & ";"
    Cible = "SELECT * FROM " & laBase & ";"
 
    Set Rs = New ADODB.Recordset
    Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
 
End Sub

Je viens de trouver d'où provennait l'erreur en me prommenant sur le web :

"dBase reste lié à la période “MS-DOS”. Et à cette époque, les noms de fichiers étaient au format 8.3 (8 caractères, un point, 3 caractères d’extension).

Si vous devez importer un fichier dBase dans Access, il faut que le fichier dBase respecte ce format. Dans l’exemple ci-dessus, renommez votre fichier communes.dbf, ou com.dbf, et ça passe. C’est tout, mais il fallait y penser !"

Donc en réduisant le nom du fichier de Potentiel_communal.dbf à pote.dbf, ça fonctionne!!!

Voilà une première étape de passée!

Il me reste encore à comprendre comment récupérer les infos de la base SIG pour mettre à jour access et l'inverse.

[bernardmichel]

J'ai peut-être trouvé quelque chose qui pourrait t'aider... Ici

[marsouin_89]

Bonjour,

Il me semble que j'ai déjà eu ce genre de problème et cela était dù au fait que le fichier ne doit pas dépasser 8 caractères.