1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| public function XXX(...) as double
Dim rs As Recordset
Dim requete As String
Dim WrkODBCOracle As Workspace
Dim OracleConnection As Connection
Dim dataqdef As QueryDef
Set WrkODBCOracle = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)
Set OracleConnection = WrkODBCOracle.OpenConnection ("OracleConnection",...
requete = "..."
Set dataqdef = OracleConnection.CreateQueryDef("Data", requete)
Set rs = dataqdef.OpenRecordset(dbOpenDynaset)
If Not rs.EOF Then
rs.MoveLast
nb = rs.RecordCount
rs.MoveFirst
result = rs.GetRows(nb)
Else
Exit Function
End If
....
.... |
Partager