topic-33742

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

help with XBROWSE and ADO
Posted: Mon Mar 06, 2017 04:50 PM

hi guys,
with function trovafortp() I get my recordset and then it' ok in REDEFINE BROWE oBrw. then I would like to change my search with m_g110 and press ok(ID 01) but
oBrw not change and get error.
this is my code:

Code (fw): Select all Collapse

oCn := FW_OpenAdoConnection( Connessione, .t.)
trovafortp(@oRs,@oCn,@Tuple,@lUno,@m_g110)

DEFINE FONT oFont NAME "Courier new" SIZE 0, -12

DO WHILE sw1
    
    if oRs <> Nil
    
        DEFINE DIALOG oDlg2 RESOURCE "ANAGRA" FONT oFont
            REDEFINE GET o_g110 VAR m_g110 ID 110 OF oDlg2  ;
                PICTURE "@ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
        
            REDEFINE XBROWSE oBrw CELL LINES RECORDSET oRs ID 101 OF oDlg2

            REDEFINE BTNBMP BtnEsc ID 01 OF oDlg2            ;
                ACTION (trovafortp(@oRs,@oCn,@Tuple,@lUno,@m_g110),oBrw:Update(),  oDlg2:Refresh())             
            
            REDEFINE BTNBMP BtnEsc ID 11 OF oDlg2            ;
                ACTION (oRs:Close(), sw1 := .f., oDlg2:End())               

        ACTIVATE dialog oDlg2
  
    else
        msginfo("tuple errata")
    endif
    
Enddo

Return Nil

function trovafortp(oRs,oCn,tuple,lUno,m_g110,oBrw)

tuple := "Select FIEDL1 as CUST, DESFIELD as DESC "+;
                     "FROM FILE  "+;
                     "WHERE FIELD2 >= '"+m_g110+"' "+;
                     "ORDER BY DESC "

oRs := FW_OpenRecordSet( oCn, tuple, 1 )

if oRs = Nil
msginfo("ERROR")
endif

Return Nil

and this is error:
Application
===========
Path and name: C:\MyEXE.exe (32 bits)
Size: 2,093,056 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9421)
FiveWin Version: FWHX 11.12
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 13 secs
Error occurred at: 06-03-2017, 15:35:55
Error description: Error ADODB.RecordSet/6 DISP_E_UNKNOWNNAME: RECORDCOUNT
Args:

Stack Calls
===========
Called from: => TOLEAUTO:RECORDCOUNT( 0 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETADO( 4277 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1381 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1250 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1666 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11627 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
Called from: trovafor.prg => TROVAFOR( 40 )
....

thank for your reply.

Damiano

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: help with XBROWSE and ADO
Posted: Mon Mar 06, 2017 05:05 PM

Code (fw): Select all Collapse

            REDEFINE BTNBMP BtnEsc ID 01 OF oDlg2            ;
                ACTION (trovafortp(@oRs,@oCn,@Tuple,@lUno,@m_g110),  ;
                             oBrw:oRs := oRs, oBrw:GoTop(),  oDlg2:Refresh(), oBrw:Refresh() )

Regards

G. N. Rao.

Hyderabad, India

damianodec

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Re: help with XBROWSE and ADO
Posted: Tue Mar 07, 2017 07:21 AM

it work!

thank you nageswaragunupudi!!!

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

damianodec

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Re: help with XBROWSE and ADO
Posted: Tue Mar 07, 2017 07:34 AM

Another question:
in function trovafortp(oRs,oCn,tuple,lUno,m_g110,oBrw) should I close the oRs connection and then oRs := FW_OpenRecordSet( oCn, tuple, 1 )?

thank...

Damiano

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

FiveTech Support Forums

Continue the discussion