Annonce
Pour sécuriser votre compte sur les forums du GeoRezo, nous demandons de changer votre mot de passe.
Vous allez recevoir un message pour effectuer ce changement de mot de passe.
Merci de bien respecter les règles préconisées.
Pages: 1
- Sujet précédent - Arc Object "Conversion implicite de 'ESRI.ArcGIS.Geodatabase.IFeature" - Sujet suivant
#1 Wed 25 December 2013 20:54
- ForsiBadr
- Juste Inscrit !
- Lieu: Rabat
- Date d'inscription: 5 Dec 2013
- Messages: 4
Arc Object "Conversion implicite de 'ESRI.ArcGIS.Geodatabase.IFeature"
Je suis en cour d'apprentissage du ARCObject via le langage VB
Le but de mon application est de sélectionner un shapefile et son attribue faire une requête a la geodatabase puis afficher le résultat dans un message box le shapfile et l'attribue sont sélectionnées a partir d'un combobox .
Code:
#####################################################################################
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Geodatabase
Public Class frm_attribut_search
Dim i As Integer
Dim pFlayer As IFeatureLayer
Private Sub frm_attribut_search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox_couche.Items.Clear()
For Me.i = 0 To frm_demarage.axMapControl1.LayerCount - 1
ComboBox_couche.Items.Add(frm_demarage.axMapControl1.get_Layer(i).Name)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox_couche_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_couche.SelectedIndexChanged
pFlayer = frm_demarage.axMapControl1.get_Layer(ComboBox_couche.SelectedIndex)
ComboBox_champs.Items.Clear()
For Me.i = 0 To pFlayer.FeatureClass.Fields.FieldCount - 1
ComboBox_champs.Items.Add(pFlayer.FeatureClass.Fields.Field(i).Name)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pqfilter As IQueryFilter = New QueryFilterClass()
Dim pfcursor As ICursor
pqfilter.WhereClause = ComboBox_champs.Text & ComboBox_operator.Text & "'" & TextBox_critaire.Text & "'"
pFlayer = frm_demarage.axMapControl1.get_Layer(ComboBox_couche.SelectedIndex)
pfcursor = pFlayer.Search(pqfilter, True)
MsgBox(pfcursor)
End Sub
End Class
###################################################################################et Merci
Hors ligne
Pages: 1
- Sujet précédent - Arc Object "Conversion implicite de 'ESRI.ArcGIS.Geodatabase.IFeature" - Sujet suivant
