ADO recordset?
>Hi,
>
>I have to convert a VFP(.prg) into a VB.Net program and I have some difficulty.
>
>My biggest difficulty is because the foxpro program use cursor in his traitment and I don't know how to do the same thing in .Net. I know how to do simple select or update, but I don't know how to convert the cursor.
>
>I'll show you the foxpro code :
>
>LOCAL cEstimID, cBillLocat
>LOCAL ARRAY aInfo(1,1)
>
> SELECT ai, estim_id, bill_locat, reviewerid, reviewerco FROM mittellog ;
> WHERE !EMPTY(reviewerid) ;
> AND !EMPTY(reviewerco) ;
> AND estim_id NOT IN (SELECT estim_id FROM estimators) ;
> INTO CURSOR curs_check
>
> SELECT curs_check
> SCAN
>
> SELECT estim_id, bill_locat FROM reviewerids ;
> WHERE reviewerid = curs_check.reviewerid ;
> AND reviewerco = curs_check.reviewerco ;
> INTO ARRAY aInfo
>
> IF _TALLY > 0
>
> cEstimID = aInfo(1,1)
> cBillLocat = aInfo(1,2)
>
> UPDATE mittellog SET estim_id = cEstimID, bill_locat = cBillLocat ;
> WHERE ai = curs_check.ai
>
> ENDIF
>
> SELECT curs_check
>
> ENDSCAN
>
>
>Anybody have some ideas, examples that can help me ?
>
>Sorry if my english is not perfect
>thx
>
>--------------------------------------------------------------------------------------
>
>Bonjour,
>
>Je dois convertir un programme VFP(.prg) en un progamme VB.Net et j'ai quelques difficultés.
>
>Ma plus grande difficulté viens du fait que foxpro utilise des curseurs dans son traitement et je n'arrive pas à faire l'équivalent en .Net. Je sais comment faire de simples select, update, mais pas le traitement avec les curseurs.
>
>Je vous montre un exemple du code foxpro :
>
>LOCAL cEstimID, cBillLocat
>LOCAL ARRAY aInfo(1,1)
>
> SELECT ai, estim_id, bill_locat, reviewerid, reviewerco FROM mittellog ;
> WHERE !EMPTY(reviewerid) ;
> AND !EMPTY(reviewerco) ;
> AND estim_id NOT IN (SELECT estim_id FROM estimators) ;
> INTO CURSOR curs_check
>
> SELECT curs_check
> SCAN
>
> SELECT estim_id, bill_locat FROM reviewerids ;
> WHERE reviewerid = curs_check.reviewerid ;
> AND reviewerco = curs_check.reviewerco ;
> INTO ARRAY aInfo
>
> IF _TALLY > 0
>
> cEstimID = aInfo(1,1)
> cBillLocat = aInfo(1,2)
>
> UPDATE mittellog SET estim_id = cEstimID, bill_locat = cBillLocat ;
> WHERE ai = curs_check.ai
>
> ENDIF
>
> SELECT curs_check
>
> ENDSCAN
>
>
>Quelqu'un aurait-il des idées, stratégies, exemples à me suggérer ?
>
>Merci
