Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 31. 8. 2011 12:13:56

imcon
Člen
Místo Brno
Registrace: 16. 5. 2007
Příspěvků: 224

Nefunkční předávání hodnot pro OLE property - VYŘEŠENO V DELPHI

Dobrý den,
mám opět jeden problém týkající se Basicu OpenOffice. Nedaří se mi modifikovat hodnotu vlastnosti (pole "Specification") databáze systému ABRA, která je připojená pomocí OLE.
.
Od níže uvedeného fragmentu kódu lze předpokládat, že změní hodnotu pole "Specification" tak, že k němu přidá text "OpenOffice".
Bohužel v OpenOffice Basicu toto přiřazení nefunguje a property nelze modifikovat. Zůstává v ní původní hodnota beze změny, jako by byla ReadOnly.
V kódu není zásadní chyba, pokud je takto uveden v VB Excelu, pracuje naprosto bez chyb a hodnotu změní.
Nemusí se v OO nějak jinak dělat přiřazení? Nevím co s tím, takto je celý OO Basic použitelný jen pro importy, hodnoty z polí načtá OK.

.
Fragment kódu:
.....

' Načtení skladové karty
Set StoreCardData = StoreCardObject.GetValues(mRollStoreCardsIDs.Strings(i))
'
' vypsání aktuální hodnoty pole "Specification" - pouze pro informaci
Worksheets(2).Cells(1,3) = StoreCardData.ValueByName("Specification")
'
' modifikace hodnoty pole
StoreCardData.ValueByName("Specification")= "OpenOffice" & StoreCardData.ValueByName("Specification")
'
' vypsání NOVÉ hodnoty pole "Specification" - pouze pro informaci
Worksheets(2).Cells(2,3) = StoreCardData.ValueByName("Specification")

.....
Jakákoli zkušenost by pomohla. Děkuji.

Editoval imcon (31. 8. 2011 12:15:17)

Offline

#2 7. 9. 2011 07:35:31

hanus
Člen
Místo Olomouc
Registrace: 29. 11. 2006
Příspěvků: 573
Web

Re: Nefunkční předávání hodnot pro OLE property - VYŘEŠENO V DELPHI

1) načtení hodnoty je OK? tj. první výpis hodnoty pole "Specification" funguje?
2) lze do StoreCardData.ValueByName("Specification") přiřadit statický text, tj. pouze např "ABC" ?
3A) pokud ano, zkuste do pole načít novou hodnotu přes pomocnou promennou
3N) pokud ne, pak je problém jinde :-)


ad 2) nemusí tam být něco jako StoreCardData.ValueByName("Specification").String = "ABC" nebo .Text ?

Editoval hanus (7. 9. 2011 07:39:05)

Offline

#3 14. 10. 2011 19:17:49

imcon
Člen
Místo Brno
Registrace: 16. 5. 2007
Příspěvků: 224

Re: Nefunkční předávání hodnot pro OLE property - VYŘEŠENO V DELPHI

Problém jsem vyřešil vyřazením OpenOffice a naprogramováním všeho v Delphi.

Offline

Zápatí