accès aux groupes de discussion, consultation et publication d'articles, recherche de "newsgroups"...
membres, identifiez-vous
é-mail Mot de passe
nouveau ? mot de passe oublié ?
Chargement... Chargement en cours...

Groupes français belges canadiens suisses internationaux Nétiquette
Échangez opinions et commentaires dans les forums de discussion.

problem geomedia & vba:(

 [  Nouvelle Discussion Nouvelle discussion  |  Répondre au groupe Répondre au groupe  |  pl.comp.gis ] 

Retour : Accueil du site pl comp gis  


  Sujet:   problem geomedia & vba:(  
 De: mijagi...@NOSPAM.gazeta.pl ( mijagi182)
 Groupes: pl.comp.gis
 Organisation: "Portal Gazeta.pl -> http://www.gazeta.pl"
 Date: 11. Mar 2008, 10:24:08
Uszanowanko!, problem strescilbym nastepujaco :

program ktory piszê w vba, tworzy polaczenie, robi z niego originating 
pipe'a, nastepnie¿ jego recordseta bierze do merge pipe'a. sama procedura po 
obserwacji zmiennych wnioskujac, przebiega pomyslnie. problem pojawia sie gdy 
chce wrzucic merge'a owego do "queries" metod± : 

Dim merge As Query 
Set merge = objMP.OutputRecordset.GetExtension("Name") 
merge.Name = "merge fo ble" 
app.Document.QueryFolder.QuerySubFolders("Queries").Queries.Append merge 

wyrzuca blad ze metoda nie wspiera procesu automatyzacji (co nie jest prawda 
wnioskujac z helpa) albo ze nie podoba mu sie interface tego co chce tam 
wsadzic 

probowalem sam robic merga bezposrednio w geomiediach, po czym zaobserwowac 
jego wlasciowosci poprzez PropertySet ale nie berdzo mi to wychodzilo.. 

natomiast samo wrzucnie do "queries" nie jest celem samym w sobie poniewaz 
docelowo zamierzam wykonac OutputToTable do polaczenia z SQLserwerem poprzez 
kod : 

Set Table = CreateObject("geomedia.OutputToTableService") 
With Table 
DisableModificationLogging = True 
Set .InputRecordset = objMP.OutputRecordset 
OutputTableName = "ble" 
OutputMode = gmopmCreateNewTable 
NewTableKeyMode = gmntkmNewKey 
NewTableAutonumberMode = gmntamPreserveValues 
Set .OutputConnection = app.Document.Connections.Item(1) 
OutputLogFileName = "D:\temp\GMOTTS.log" 
Execute 
End With 

tu wykrzacza sie na metodzie .Execute z komunikatem (extension, ,not found) 
tylko czego tutaj brakuje... moze coordinatesystem ale to chyba nie jest 
konieczne kiedy zarowno w bazie jak i recordsecie takowy jest zdefiniowany 

P. S.
przyklady z helpa sa mi znane:) 

za wszelakie checi oraz proby pomocy z góry dziekuje!

-- 
Wys³ano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/


DateSujet  Auteur
01.01.
o 
Groups Explorer contact votre avis comment ça marche? rechercher un groupe suggérer un groupe abuse accueil du site   Imprimer cette page   Envoyer cette page à un(e) ami(e)