6 messages in org.openoffice.fr.progRe: [prog] Accès à une BDD Sqlite
FromSent OnAttachments
Arnaud GUERIN (portable)Jul 14, 2005 12:58 pm 
Laurent GodardJul 14, 2005 2:12 pm 
Arnaud GUERIN (portable)Jul 14, 2005 2:22 pm 
Francois Gatto (xhydrogene)Jul 14, 2005 3:02 pm 
Francois Gatto (xhydrogene)Jul 14, 2005 3:12 pm 
Arnaud GUERIN (portable)Jul 14, 2005 3:17 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Accès à une BDD SqliteActions...
From:Francois Gatto (xhydrogene) (oo@volcar.org)
Date:Jul 14, 2005 3:12:11 pm
List:org.openoffice.fr.prog

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