CreateCustomDynaset Method Example

This example demonstrates CreateCustomDynaset. Copy and paste this code into the definition section of a form, then press F5.

Sub Form_Load ()

'Declare variables as OLE Objects.

Dim OraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

'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