ODBC et OponOffice

Messages postés
8
Date d'inscription
vendredi 8 novembre 2002
Statut
Membre
Dernière intervention
23 janvier 2009
-
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
-
est-il possible de connecter une base de donnée OpenOfice 2.0.1 (fichier .odb) avec Visual Basic 6 ou superieur (liens ODBC) Merci d'avance

LeakimD : Je cherche donc je trouve

1 réponse

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
29
bonjour

cet exemple permet d'effectuer une requete dans une base Open Office (.odb)


Il faut utiliser les APIs d'Open Office pour que ce la fonctionne . testé avec OOo2.0.1 & VB6


Private Sub Command1_Click()
'requeteBase_ODB
'MichelXld le 08.02.2006
Dim oDB As Object, oBase As Object
Dim oStatement As Object
Dim rSQL As String
Dim oRequete As Object
Dim oServiceManager As Object, CreateUnoService As Object


Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set CreateUnoService = oServiceManager.createInstance("com.sun.star.sdb.DatabaseContext")


Set oDB = CreateUnoService.getByName("OOoBase")
Set oBase = oDB.getConnection("", "")
Set oStatement = oBase.createStatement


rSQL = "SELECT ""Champ1"" FROM ""maTable"""
Set oRequete = oStatement.ExecuteQuery(rSQL)


If Not IsNull(oRequete) Then
While oRequete.Next
Debug.Print oRequete.getString(1)
Wend
End If


oRequete.Close
oStatement.Close
End Sub

bonne soiree
michel