FiveTech Support Forums

function browsen()
   local oWin2
   local oConnection := TOleAuto():New( "ADODB.Connection" )
   local oRecordSet
   local oBrw

  DEFINE WINDOW oWin2 MDICHILD FROM 5, 7 TO 17, 40 TITLE "XBrowse"

     oConnection:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gilbert.mdb; Persist Security Info=False" )

     oRecordSet:=TOleAuto():New( "ADODB.Recordset" )
     oRecordSet:Open( "SELECT * FROM Name", oConnection )

     msginfo(oRecordSet:Fields( "Name" ):Value)    // Here I get a value = "Hans"
     msginfo(oRecordSet:RecordCount())             // Here the response = "-1"
     oBrw:=TXbrowse():New(oWin2)
     oBrw:SetAdo( oRecordSet )

     oBrw:Createfromcode()
     oWin2:SetControl(oBrw)

  ACTIVATE WINDOW oWin2

return .t.

oRecordSet:Open( "SELECT * FROM Name", oConnection, 1, 3 )

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

oRs:CursorLocation = adUseServer

oRs:CursorLocation = adUseClient

#define adUseServer 2
#define adUseClient 3

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

#define adLockReadOnly        1
#define adLockPessimistic     2
#define adLockOptimistic      3
#define adLockBatchOptimistic 4

#define adUseServer 2
#define adUseClient 3


FUNCTION MAIN()

    LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )

//    oRs:CursorLocation = adUseServer
    oRs:CursorLocation = adUseClient

    oRs:Open( "SELECT * FROM Contatti ORDER BY RagSoc2, RagSoc1", "Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\Emag;Initial Catalog=Ecmp", adOpenKeyset, adLockOptimistic )

    ? oRs:RecordCount

    oRs:Close()

    RETURN NIL