PC Toledo

Código: Selecionar todos

PROCEDURE Main()
   LOCAL cn, rs, oErr

altd()   
   TRY
      cn := CreateObject( "ADODB.Connection" )

      cn:ConnectionString := "Driver={Oracle in XEClient};dbq=localhost:1521/XE;Uid=system;Pwd=1001;"

      cn:Open()

      rs := CreateObject( "ADODB.Recordset" )
   
      rs:Open( "HR.Countries", cn, 0, 1, 2 )
   
      Do While ! rs:Eof()
        Alert( rs:Fields( "Country_Name" ):Value )
        rs:MoveNext()
      ENDDO
   
   CATCH oErr
      Alert( "Error: " + oErr:Operation + " -> " + oErr:Description )

      rs:Close()
      rs := Nil
   
      cn:Close()
      cn := Nil

   FINALLY
END
RETURN   

Código: Selecionar todos

#include "ado.ch"

PROCEDURE Main()

   LOCAL oCn, oRs, oErr

   AltD()   

   TRY
      oCn := CreateObject( "ADODB.Connection" )

      oCn:ConnectionString := "Provider=OraOLEDB.Oracle;Data Source=XE;User ID=system;Password=abc100;FetchSize=100;CacheType=Memory;"

      oCn:Open()

      oRs := CreateObject("ADODB.RecordSet")

      With Object oRs
         :cursorType := adOpenDynamic 
         :activeConnection( oCn )
         :cursorLocation = adUseServer
         :maxRecords = 100000
         :cacheSize = 100
         :source := "SELECT ROWNUM AS REC, COUNTRY_ID, COUNTRY_NAME  FROM HR.Countries"

         //  ou troque as linhas:
         //    oRs:activeConnection( oCn )
         //    oRs:source := "SELECT ROWNUM AS REC, COUNTRY_ID, COUNTRY_NAME  FROM HR.Countries"
         //  por:
         //    oRs:open( "SELECT ROWNUM AS REC, COUNTRY_ID, COUNTRY_NAME  FROM HR.Countries", oCn ) 

         :open()
 
         :moveFirst()

         CLS

         Do While ! :eof()
           QOut( Transform( :Fields( "rec" ):value, "999" ), "-", ;
                 :Fields( "Country_id" ):Value, "-", ;
                 :Fields( "Country_Name" ):Value ) 
           :MoveNext()
         ENDDO

         :Close()
         oRs := Nil
      End   

      oCn:Close()
      oCn := Nil
   
   CATCH oErr
      Alert( "Error: " + oErr:Operation + " -> " + oErr:Description )
   END

   RETURN   
//--------------------------------------------------------------------------------