Annonce
Pages: 1
- Sujet précédent - Creation d'une nouvelle Table attributaire sous ArcGis en utilisant VB - Sujet suivant
#1 Mon 17 July 2006 17:05
- le_sage_
- Juste Inscrit !
- Date d'inscription: 17 Jul 2006
- Messages: 1
Creation d'une nouvelle Table attributaire sous ArcGis en utilisant VB
Salut !
Quelqu'un connait comment créer une table attributaire sous arcGis en utilisant VBa, a partir des données provenant de diverses traitements sur des données initiales. Si on peut faire ça sans toucher aux couche initiales qu'on possede a la base.
Merci D'avance
Hors ligne
#2 Tue 18 July 2006 16:59
Re: Creation d'une nouvelle Table attributaire sous ArcGis en utilisant VB
Bonjour,
Vous souhaitez créer une table attributaire complètement indépendante des données shape, qui sera alimentée par des valeurs issues de différents traitements sur des shapes, c'est bien ça ?
Si oui, il vous suffit de créer un fichier dBase (DBF) dans votre répertoire de travail...que vous chargerez ou non dans ARcMap, selon vos besoins..
voici une fonction (qui utilise les composants DAO) qui crée un fichier DBF avec un certain nombre de champs prédéfinis et typés (ensuite, vous le remplissez avec des INSERT) :
Code:
Public Function CreateDbfFileEmpty(strName As String, path As String) As Boolean
CreateDbfFileEmpty = False
Dim dbBase As DAO.Database
Dim Td As DAO.TableDef
Dim Fld As DAO.Field
On Error GoTo check
'Ouvrir la base
Set dbBase = OpenDatabase(path & "\", True, False, "dBASE IV")
Set Td = dbBase.CreateTableDef(strName & ".dbf")
Set Fld = Td.CreateField("CODE_STAT", dbText, 8)
Td.Fields.Append Fld
Set Fld = Td.CreateField("DATE", dbText, 8)
Td.Fields.Append Fld
Set Fld = Td.CreateField("TEMP", dbDouble)
Td.Fields.Append Fld
dbBase.TableDefs.Append Td
dbBase.Close: Set dbBase = Nothing
CreateDbfFileEmpty = True
Exit Function
check:
MsgBox (" Erreur a la création du fichier : " & strName & ".dbf" & " : " & Err.Description & " ; " & Err.Number)
CreateDbfFileEmpty = False
End FunctionDernière modification par SidonieC (Tue 18 July 2006 19:46)
Hors ligne
Pages: 1
- Sujet précédent - Creation d'une nouvelle Table attributaire sous ArcGis en utilisant VB - Sujet suivant
