Merci pour l'info, voilà ce que me donne maintenant le code en entier mias le
probléme c'est que j'ai le message "source de données inconnue"
J'ai remplacé NomSource par le nom de ma source de données avec les guillements
mais rien n'y fait, toujours pas de reconnaissance si la source de données
n'est pas déclaré dans le poste hôte.
@+
Arnaud
Function Creation_Source_De_Donnees() As Boolean
dim oContext as object
dim oSource as object
dim Reponse as string
On Error Goto ErrorHandler
oContext = createUnoService("com.sun.star.sdb.DatabaseContext")
'Test si la source de données existe
Reponse = oContext.hasByName("MaSource")
If Reponse = False Then
'Création de la source de données
oSource = oContext.createInstance
oContext.registerObject("MaSource", oSource)
oSource.URL = "sdbc:calc:file:///096banalep2/partage
unité/TRAFIC/Banale_2005/TDB/NUM1.sxc" 'URLSOurce
End If
Creation_Source_De_Donnees = True
Goto Exit_Here
Exit_False:
Exit Function
Exit_Here:
Exit Function
ErrorHandler:
MsgBox "Creation_Source_De_Donnees Erreur " & Err & " : " & Error$ & " (Ligne
N°" & Erl & ")", sbCritical + sbOkOnly, Titre_Appli
On Error Goto 0
Goto Exit_False
End Function
----- Message d'origine -----
De : <[EMAIL PROTECTED]>
À : <[email protected]>
Envoyé : vendredi 1 juillet 2005 13:35
Objet : RE: [prog] Retour sur fonction CalcSQL2
Bonjour,
La source URL est une chaine de caractères ==> il faut donc l'encadrer par
des cotes : ""
oSource.URL = "sdbc:calc:file:///001poste2/partage
document/TRAFIC/Banale_2005/TDB/NUM1.sxc" 'URLSOurce
au lieu de :
oSource.URL = sdbc:calc:file:///001poste2/partage
document/TRAFIC/Banale_2005/TDB/NUM1.sxc 'URLSOurce
Jean-Claude
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
