RDO - Remote Data Control Object

Opening A Connection

dim re as Object

dim db as rdoconnection

Private Sub Form_Load()

  set re = rdoEngine.rdoEnvironment(0)

  set db = re.openconnection("db")

End Sub

Note

db above is a valid ODBC data source name or label Types for Resultset as follows:

  dbOpenkeyset         - dynaset-type, ODBC

  dbOpenDynamic       - dynamic-type, view by all

  dbOpenStatic          - static type

  dbOpenForwardOnly - forward-only-type, you need to use 'Movenext' command 

                                 to move from one record to the next ( in one direction

                                 only )

Moving records in a recordset 

on Error Goto ErrLabel

IF not resultset.eof then resultset.movenext

If resultset.eof and resultset.rowcount > 0 then

  resultset.movelast

EndIf

   .....

   ....

Exit Sub

Note

db above is an 16-bit or 32-bit ODBC Source name or label declared with the ODBC manager or related tool set

Creating a Result Set

    dim re as Object

    dim db as rdoconnection

    dim resultset as rdoResultSet

    dim sqlfel as stirng

Private Sub Form_Load()

  sqlfel = "select * from students"

  set re = rdoEngine.rdoEnvironment(0)

  set db = re.openconnection("db")

  set resultset = db.openResultset(sqlfel, rdoOpenkeyset)

  resultset.movefirst

  text1.text = resultset("name")

  text2.text = resultset("Grade")

End Sub

ErrLabel

    msgbox Err.description

End Sub

Executing SQL 

    sqlsel = "select * from students"

    rdoConnection.execute sqlsel