buon giorno a tutti.
il mio problema riguarda VBA e COM.
il mio problema è il seguente:
ho un database formato da alcune tabelle (in access) devo creare un editor
che accede a tali tabelle per le operazioni classiche di cancellazione,
inserimento e modifica.
per quanto riguarda cancellazione e modifica non trovo nessun problema.
il problema viene nella fase di inserimento (che dovrebbe essere la più
semplice)
la procedura è la seguente:
Dim pFact As IWorkspaceFactory
Dim pFW As IFeatureWorkspace
Set pFact = New AccessWorkspaceFactory
Set pFW = pFact.OpenFromFile("C:\tesi\stefano.mdb", 0)
Dim pT As ITable
Dim pC As ICursor
Dim pR As IRow
Set pT = pFW.OpenTable("Funzioni")
Set pR = pT.CreateRow '<----------------- riga in cui si ferma il debug
pR.Value(pT.FindField("nome_funzione")) = Me.NomeFunz
pR.Value(pT.FindField("tipo_funzione")) = Me.FunzSel
pR.Value(pT.FindField("layer")) = Me.LayerSel
pR.Value(pT.FindField("layer_supporto")) = Me.LayerSupSel
pR.Value(pT.FindField("attributo_supporto")) = Me.AttrSel
pR.Value(pT.FindField("condizione_attributi")) = Me.CondAttr
pR.Value(pT.FindField("operazione_geo")) = Me.operazioneGeo
pR.Value(pT.FindField("valore_geo")) = Me.valoreGeo
pR.Value(pT.FindField("supporto_geo")) = Me.supportoGeo
pR.Store
l'errore che mi da è il seguente:
"runtime error
-2147467359(80004005)elemento non trovato in questo insieme"
su internet ho trovato che l'errore potrebbe essere dovuto al nome degli
attributi con gli underscore. tolti gli underscore però il problema si
ripresenta tale e quale.
prove eseguite:
-il database è stato buttato e ricreato da 0 e non è cambiato nulla.
-gli attributi del db sono stati rinominati senza underscore e non è
cambiato nulla.
-i path del mdb e il nome della tabella sono giusti in quanto li sfrutto
anche per altre operazioni (cancellazione e modifica) perfettamente funzionanti
-la procedura sembra scritta in modo corretto in quanto è presa tale e quale
dalla guida
-la procedura è stata cancellata e riscritta un paio di volte
a questo punto non so più dove sbattere la testa. se qualcuno sa come
aiutarmi gliene sarei più che grato (è 4 giorni che guardo il pc con
espressione ebete e faccio ogni tipo di cambiamento)
grazie anticipatamente
Stingo.
Rispondi quotando