ouverture formulaire

[florent9469]

Bonjour, j ai un probleme avec le code qui suit :
j ouvre sans probleme un formulaire 'clients' mais i ouvre systematiquement la base clients.odb
Comment ne pas ouvrir cette base systematiquemet?
merci pour votre aide

Sub openBaseForm
Dim pProp(1) As New com.sun.star.beans.PropertyValue
sURL = ConvertToURL("C:\clients1.odb")
oDoc = starDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
oForms = oDoc.getFormDocuments()
oAConnection = oDoc.DataSource.getConnection("","")
'set properties
pProp(0).Name = "ActiveConnection"
pProp(0).Value = oAConnection
pProp(1).Name = "OpenMode"
pProp(1).Value = "open"
oFormulario = oForms.loadComponentFromURL("clients","_blank",0,pProp())
End Sub

[chater]

Salut,

Enregistre ton formulaire hors de la base.

[florent9469]

non, je veux travailler avec un formulaire interne

[Pierre-Yves Samyn]

Bonjour

Si tu ne veux pas charger la base, je ne vois que la solution de chater. Si tu ne veux pas que la base se voit, as-tu essayé :

Code : Tout sélectionner

Sub openBaseForm
Dim pys(0) As New com.sun.star.beans.PropertyValue
pys(0).Name = "Hidden"
pys(0).Value = true

Dim pProp(1) As New com.sun.star.beans.PropertyValue
sURL = ConvertToURL("C:\clients1.odb")
oDoc = starDesktop.loadComponentFromURL(sURL,"_blank",0,pys())
oForms = oDoc.getFormDocuments()
oAConnection = oDoc.DataSource.getConnection("","")
'set properties
pProp(0).Name = "ActiveConnection"
pProp(0).Value = oAConnection
pProp(1).Name = "OpenMode"
pProp(1).Value = "open"
oFormulario = oForms.loadComponentFromURL("TClients","_blank",0,pProp())
End Sub

[cris59]

Code : Tout sélectionner

sub appel_form()
dim optFichier(2) as new com.sun.star.beans.PropertyValue

maConnexion = ConnecterSource

lesForm = maConnexion.Parent.DataBaseDocument.FormDocuments
monForm = lesForm.getByName("NomFormulaire")

optFichier(0).Name = "ActiveConnection"
optFichier(0).Value = maConnexion
optFichier(1).Name = "OpenMode"
optFichier(1).Value = "open"

nouvForm = lesForm.loadComponentFromURL(monForm.Name, "", 0, optFichier())

end sub



Function ConnecterSource()
Dim NomSource As String, login As String, password As String
Dim maSource As Object, monDbContext As Object
'Création du contexte
NomSource = "NomSource"
monDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
maSource = monDbContext.getByName(NomSource)

'Les paramètres de connexion
login = ""
password = ""
maConnexion = maSource.getConnection(login, password)

if IsNull(maConnexion) then
  MsgBox("Connexion impossible", 16)
  Stop
end if
ConnecterSource = maConnexion
End Function

comme ceci tu ouvre ton formulaire sans ouvrir la base


cris59