ODBC et OponOffice
LeakimD
Messages postés
8
Date d'inscription
vendredi 8 novembre 2002
Statut
Membre
Dernière intervention
23 janvier 2009
-
21 févr. 2006 à 15:50
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 21 févr. 2006 à 18:06
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 21 févr. 2006 à 18:06
A voir également:
- Orequete
- Gestionnaire de pilotes odbc source de données introuvable et nom de pilote non spécifié - Forum VB.NET
- Erreur ole db ou odbc: exception de hresult : 0x80040e4e. une erreur inattendue s'est produite. ✓ - Forum Foxpro
- Erreur ole db ou odbc - Forum Visual Basic
- Sage odbc - Forum ASP / ASP.NET
- Erreur OLE - Forum Delphi / Pascal
1 réponse
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
21 févr. 2006 à 18:06
21 févr. 2006 à 18:06
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
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