This example demonstrates CreateCustomDynaset. Copy and paste this code into
the definition section of a form, then press F5.
Sub Form_Load ()
'Declare variables
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
'Create the OraSession Object.
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("ExampleDb",
"scott/tiger", 0&)
'Create the OraDynaset Object using sliceSize as 256,perblock size as 16, no.
of blocks as 20,
'fetchLimit as 20,FetchSize as 4096
Set OraDynaset = OraDatabase.CreateCustomDynaset("select empno, ename from
emp", 0&,256,16,20,20,4096)
'Display the first record.
MsgBox "Employee " & OraDynaset.Fields("empno").value & ", #" &
OraDynaset.Fields("ename").value
End Sub
