bon ça m'a fait un truc bizaarre dans le message précédent...
je recommence:
Sub requeteBase_ODB()
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
Dim i As Integer
'Création instance Open office
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set CreateUnoService = _
oServiceManager.createInstance("com.sun.star.sdb.DatabaseContext")
'Indique le nom de la base
Set oDB = CreateUnoService.getByName("Bibliography")
'Connection
Set oBase = oDB.getConnection("", "")
Set oStatement = oBase.createStatement
'Création requète
rSQL = "SELECT ""Identifier"",""Publisher"",""ISBN"" FROM ""biblio"" " & _
"WHERE ""Author""='Böhm, Franz'"
Set oRequete = oStatement.ExecuteQuery(rSQL)
'Affichage du résultat de la requête dans les cellules Excel
If Not IsNull(oRequete) Then
While oRequete.Next
i = i + 1
Cells(i, 1) = oRequete.getString(1)
Cells(i, 2) = oRequete.getString(2)
Cells(i, 3) = oRequete.getString(3)
Wend
End If
oRequete.Close
oStatement.Close
End Sub
michel
|