Rebonsoir Arnaud,
Arnaud GUERIN (portable) a écrit :
Bonjour à tous,
Le système:
W2kSp4, Ooo114, sqlite3 (via ODBC 0.65)
Voila, j'ai créé une BDD avec SQLite Database Browser 1.2.1 sur un poste
distant.
J'ai installé sqlite avec le pilote ODBC, et configuré par la même
occasion vers ma BDD.
Je veux me connecter à ma BDD pour exploiter les tables et j'ai repris
les exemples du livre de programmation Ooo et du site.
Jusque là rien d'extraordinaire:
Function ConnexionBDD() As Boolean
Rem
*************************************************************************
Rem * Connexion à la base de données de gestion de consommables
Rem
*************************************************************************
Dim oContexte As Object Rem Contexte de la source
Dim oSource As Object Rem Source de données
Dim sNomSource As String Rem Nom de le source de données
Dim sLogin As String Rem Login utilisateur
Dim sMotDePasse As String Rem Mot de passe utilisateur
Rem Création du contexte
sNomSource = "GestionConso"
Rem sNomSource = "BDD_GESTION_CONSO"
oContexte = CreateUnoService ("com.sun.star.sdb.DataBaseContext")
le service exact est "DatabaseContext"
(voir mon post précédent)
oSource = oContexte.GetByName (sNomSource)
Rem Paramètres de connexion
sLogin = ""
sMotDePasse = ""
oBDDConso = oSource.GetConnexion (sLogin, sMotDePasse)
Par ailleurs c'est "getConnection(sLogin, sMotDePasse)"
et non pas Connexion avec un 'x'
If IsNull(oBDDConso) Then
MsgBox ("Connexion impossible",16)
ConnexionBDD = 0
Else
ConnexionBDD = 1
End If
End Function
Lorsque j'appelle la macro, j'ai un message d'erreur "RunTime Error
Basic. Variable d'objet non paramétré".
J'avoue que je ne comprends pas cette erreur.
Un peu d'aide s'il vous plait, merci.
François
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
