FiveTech Support Forums

USE \FusionEMR\Data\Fusion.gdb VIA "ADORDD" TABLE "PATIENTS" MYSQL FROM "127.0.0.1" USER "fusion" PASSWORD "fusion"

// Testing LOCATE and CONTINUE
#include "FiveWin.ch"
#include "adordd.ch"

REQUEST ADORDD

function Main()
// databae on web
   USE support VIA "ADORDD" TABLE "hotel" MYSQL ;
      FROM "www.easyfo.com" USER "user" PASSWORD "password"
/*
  // database on local disk
   USE php362 VIA "ADORDD" TABLE "SUPPORT_TOPIC" MYSQL ;
      FROM "localhost" USER "root" PASSWORD "password"
*/

   browse()

   USE

return nil

#include "Fivewin.ch"
#include "Tcbrowse.ch"

//-------------
FUNCTION MAIN()

    LOCAL oRs, oErr
    local cConnStr := 'Provider=LCPI.IBProvider.3.Free;'+;
                  'Password=masterkey;User ID=sysdba;auto_commit=true;'+;
                  'Data Source=localhost:c:\employee.fdb;ctype="";dbclient_library=""'
    local oCon := CreateObject("ADODB.Connection")
    oCon:ConnectionString := cConnStr

    TRY
        oCon:Open()
    CATCH
        ShowAdoError(oCon)
        RETURN NIL
    END TRY

    oRs := CreateObject('ADODB.RecordSet')
    oRs:CursorLocation := 3
    TRY
      *oCon:BeginTrans()
      oRs:Open("SELECT CUSTOMER FROM CUSTOMER", oCon, 1, 3)
      *oCon:CommitTrans()
    CATCH
      ShowADOError(oCon)
    END

    msginfo("about to view")
    ? ors:fields("CUSTOMER"):value

    WBROWSERECORDSET( oRs )
    TCBROWSERECORDSET( oRs )

    oRs:Close()
    oCon:close()
    RETURN NIL


STATIC FUNCTION WBROWSERECORDSET( oRs )

    LOCAL oDlg, oBrw, nRec

    DEFINE DIALOG oDlg SIZE 300, 300

    @ 0, 0 LISTBOX oBrw FIELDS oRs:Fields( "CUSTOMER" ):Value;
           HEADERS "CLIENTI";
           ON RIGHT CLICK ( nRec := oRs:AbsolutePosition,;
                            oBrw:Report( "TWBrowse report", .T. ),;
                            oRs:MoveFirst(),;
                            oRs:Move( nRec - 1 ) )

    oBrw:bLogicLen = { || oRs:RecordCount }
    oBrw:bGoTop    = { || oRs:MoveFirst() }
    oBrw:bGoBottom = { || oRs:MoveLast() }
    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }
    oBrw:cAlias    = "ARRAY"

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL


STATIC FUNCTION TCBROWSERECORDSET( oRs )

    LOCAL oDlg, oBrw, oCol, nRec

    DEFINE DIALOG oDlg SIZE 300, 300

    @ 0, 0 BROWSE oBrw;
           ON RIGHT CLICK ( nRec := oRs:AbsolutePosition,;
                            oBrw:Report( "TWBrowse report", .T. ),;
                            oRs:MoveFirst(),;
                            oRs:Move( nRec - 1 ) )

    ADD COLUMN TO oBrw;
               DATA oRs:Fields( "customer" ):Value;
               HEADER "CLIENTI"

    oBrw:lCellStyle = .T.

    oBrw:bLogicLen = { || oRs:RecordCount }
    oBrw:bGoTop    = { || oRs:MoveFirst() }
    oBrw:bGoBottom = { || oRs:MoveLast() }
    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }
    oBrw:cAlias    = "ARRAY"

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL


STATIC FUNCTION SKIPPER( oRs, nSkip )

    LOCAL nRec := oRs:AbsolutePosition

    oRs:Move( nSkip )

    IF oRs:EOF; oRs:MoveLast(); ENDIF
    IF oRs:BOF; oRs:MoveFirst(); ENDIF

    RETURN oRs:AbsolutePosition - nRec

STATIC FUNCTION ShowAdoError(oCon)

LOCAL   nAdoErrors   := 0
LOCAL   oAdoErr

      nAdoErrors   :=  oCon:Errors:Count()
      IF nAdoErrors > 0
         oAdoErr      := oCon:Errors(nAdoErrors-1)
         msginfo( oAdoErr:Description + CRLF + oAdoErr:Source )
      ELSE
         msginfo( 'Not Oracle Error' )
      ENDIF

RETURN nil