Le portail francophone de la géomatique

si je me souviens bien pour récupérer une base de données access et l'utiliser par il faut que tu créé un AccessWorkpsaceFactory et ainsi de suite.
bref ... utiliser les arcobjects

Dernière modification par Tnarbiv (Fri 25 April 2008 13:08)

le plus simple ce serait que tu fasses des recherches ici http://edndoc.esri.com/arcobjects/9.0/
voici un exemple de ce que je te disais tout à l'heure : http://edndoc.esri.com//arcobjects/9.2/ … 60d87d.htm
une fois que tu as récupéré ta base de données access, il faut que tu récupères ta table, ensuite ta collection de champs puis ton champ et ensuite tu listes les valeurs de ton champ afin de les mettre dans ta liste déroulante.

je le sais et je demande s'il y a quelqu'un qui peut m'aider

Bonjour,

Par programmation, vous avez effectivement la possibilité d'utiliser les ArcObjects. Toutefois, si votre besoin se limite à consulter des données attributaires dans une table de votre base Access, vous avez aussi la possibilité d'utiliser les ADO. Si vous connaissez la syntaxe SQL, cela vous sera plus facile d'emploi que les ArcObjects.

Je vous mets ci dessous du code qui exécute une requête de sélection de valeurs distinctes dans une table "CABLE" d'une base Access. Pour faire fonctionner ce code, vous devez ajouter à votre projet VB la référence à la librairie Microsoft ActiveX Data Objects 2.x

J'espère que cela vous aidera. Et si vous souhaitez malgré tout utiliser les ArcObjects, j'essaierai de trouver le temps de vous indiquer comment faire.

Option Explicit

Public Function Test()

On Error GoTo EH

    Dim cnBase As ADODB.Connection
    Dim strAccessBddPath As String
    
    Dim rst As New ADODB.RecordSet
    Dim strSQL As String
    
    strAccessBddPath = "C:\MaBase.mdb"

    'Creation de la connexion a la base de donnees
    '---------------------------------------------
    Set cnBase = New ADODB.Connection
    cnBase.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Persist Security Info=False;Data Source=" & strAccessBddPath
                
    'Définition de la requête à éxécuter
    strSQL = "SELECT DISTINCT PROPRIETAIRE FROM CABLE"
    
    'Ouverture du recordset
    Set rst = OpenRecordset(cnBase, strSQL)
    
    'Boucle sur les différents enregistrements retournés du recordset
    If Not rst Is Nothing Then
        If rst.State <> 0 And rst.RecordCount > 0 Then
            
            rst.MoveFirst
            Do While Not rst.EOF

                'Affichage des valeurs du champ PROPRIETAIRE
                MsgBox rst.Fields("PROPRIETAIRE").Value
                
                rst.MoveNext
            Loop
            
            rst.Close
        End If
    End If
    
CleanUp:
    Set rst = Nothing
    
    'Fermeture de la connexion
    cnBase.Close
    Set cnBase = Nothing

Exit Function
EH:
    GoTo CleanUp
End Function

Public Function OpenRecordset(ByVal cnBase As ADODB.Connection, _
    ByVal strSQL As String) As ADODB.RecordSet
  
On Error GoTo EH
    
    Dim rstTmp As ADODB.RecordSet
    
    Set rstTmp = New ADODB.RecordSet
    
    rstTmp.CursorLocation = adUseClient
    rstTmp.ActiveConnection = cnBase
    rstTmp.CursorType = adOpenKeyset
    rstTmp.LockType = adLockOptimistic
    rstTmp.Open strSQL
    
    Set OpenRecordset = rstTmp

CleanUp:
    rstTmp.Close
    Set rstTmp = Nothing
    
Exit Function
EH:
    GoTo CleanUp
End Function

Cordialement,
Kevin Jousseaume

Avez-vous regardé si votre code générait des erreurs ? Vous pouvez le faire en mode debug ou bien mettant un MsgBox dans la pseudo-gestion d'erreur que j'avais initiée (après EH:).

C'est normal, l'expression "Option Explicit" doit se situer en en-tête de votre code, en dehors de toute procédure.

oui



à question vague, réponse précise.

bonjour
bon pour la connection ( lire la BD de acces ) ,  va sur ArcCatalog et importe ta BD

dans la boite à outil VBA  d'arcGIS, est ce qu'il y a un bouton qui permet d'etablir une liaison avec une B.D, dans le cas du V.B 6 il y a le bouton "Data"?

ok,je vais résumer mon projet: j'ai une B.D Access, j'ai crée des formes avec visual basic editor d'ArcGIS, maintenant je veux calculer des indicateurs à partir des tables de la B.D mais je ne sais pas comment le faire

ce n'est pas un problème si je les utilise comme des tables ArcGIS. comment je peux ajouter ma base access dans ArcMap?

Ds ArcCatalog je la vois. j'ai ecrit un code pour pouvoir me connecter à ma B.D et lire des champs à partir d'elle, mais je n'obtient rien après son execution, voilà mon code:
Private Sub ComboBox1_Change()
Dim con As ADODB.Connection
   Set con = New ADODB.Connection
   con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=  D:\sujet de fin d'etude\B.D\db1 "
   con.Open
  Dim rs As ADODB.RecordSet
  Set rs = New RecordSet
  rs.Open " select [NOM] from [COMMUNE] where ..., con, AdopenDynamic, AdLockOptimistic"
  res = rs![NOM]
  While rs.EOF = False
      ComboBox1.AddItem rs![NOM]
   Wend
   rs.Close
   con.Close
   End Sub