Database naam

[ton dix]

Hallo Romke,

enige tijd geleden hen jij de onderstaande code geplaatst die ik wat heb aangepast:
op de regel oButton=oEve.source.model krijg ik steevast de medeling object variable not set.
Heb jij enig idee wat hier aan de hand is.
Bij voorbaat mijn dank,
Ton

function givemelocal( )
' Geef een formulier of result set op als parameter met de SQL
'
dim oButton
dim oForm as object
dim sSQL
dim oEve as Object
oButton=oEve.source.model
oForm=oButton.parent
sSQL="Call database()"
oResult=oResulset.ActiveConnection.CreateStatement.executeQuery(sSQL)
'+++++++++++++++++++++++++++++++++++
If NOT IsNull(oResult) AND NOT IsEmpty(oResult) Then
If oResult.next() Then
givemelocal=oResult.getString(1) 'give returnvalue
End If
else
givemelocal="" ' Maak een zero lenght string
End If
end function

[RPG]

Hallo

Ik kan er alleen van zeggen dat de code verkeerd is aangepast. Op de Engelse forums wordt ook steeds duidelijk gemaakt probeer macro's te vermijden. Macro's zijn erg moeilijk er voor niet ingewijden erg moeilijk aan te passen. De informatie is ook alleen in het Engels.

http://www.baseprogramming.com/resources.html

Je moet de tutorials bestuderen die geheel aan het eind staan

Deze SQL instructie geeft in native mode de padnaam van de database.

Code: Selecteer alles

call database()

Romke

[ton dix]

Hallo Romke,

tja als Java man laat ik me niet kisten door VB.(grapje)
Dus nog even gezocht naar de oplossing, die in mijn geval heel simpel is en wel als volgt

Voorbeeld: naam Example.odb

oDoc = ThisComponent
Rem zoek waar extensie start '.' meegerekend
i = InStr(oDoc.Title,".") 'met ons voorbeeld krijgen we terug de waarde '8'
Rem haal extensie weg met '.'
txt = Left(oDoc.Title, i - 1) 'met ons voorbeeld krijgen we de string 'Example'

Da's alles. Bedankt voor je tijd en prettig weekend,
Ton

[RPG]

Hallo

Als je echt de naam van de database wilt hebben met behulp van starbasic dan is het misschien beter om met gebruik te maken van Thisdatabasedocument. Zolang het goed werkt maakt het niets uit.

Je schijnt met OOo ook goed met java te kunnen werken. Als je bekend bent met VB dan is er ook wat mogelijk maar ik ben met beiden niet bekend. Als je echt met macro's wil gaan werken dan kun je beter op de Engelse forums richten. Het blijft een aanbeveling om eerst een goed begrip te krijgen van OOo en dan pas met macro's te beginnen.

Dank voor de goede wensen en ook een goed weekend
Romke