¿Cómo puedo mostrar el progresivo no en una columna, mientras que el uso de RecordSet (ADO) con xBrowse
Sé cómo hacer esto, si un conjunto se utiliza en xBrowse oBrw: nArrayAt
Que estoy recibiendo de error cuando intento nArrayAt y nAt
Error Base/1111 Argument Error : Len From ErroSys, Line:0
Code
- Code: Select all Expand view
*-----------------------------------*
FUNCTION connect()
*-----------------------------------*
Local SQL,oBrw
Local oCon := CreateObject('ADODB.Connection')
Local oRecSet := CreateObject( "ADODB.RecordSet" )
oCon:ConnectionString:= "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.170;Port=3306;Database=MyDataBase;User=MyUser;Password=MyPassword;Option=3;"
TRY
oCon:Open()
msgInfo("Connected to Database")
CATCH oError
MsgInfo("Connection Failed")
RETURN(.F.)
END
oRecSet:CursorLocation := adUseClient
oRecSet:LockType := adLockOptimistic
oRecSet:CursorType := adOpenDynamic
oRecSet:Source := "SELECT * FROM ISSUE_TRA WHERE FIN_YEAR=2004"
oRecSet:ActiveConnection(oCon)
oRecSet:Open()
if oRecSet:BOF .AND. oRecSet:EOF
Msginfo("No Records")
Return .F.
Endif
oRecSet:MoveFirst()
@0,0 XBROWSE oBrw ;
OF oWnd ;
OBJECT oRecSet;
LINES CELL
oCol:=oBrw:AddCol()
oCol:cHeader:="No #"
oCol:bStrdata:={ || oBrw:nArrayAt } // Problem is here
oBrw:CreateFromCode()
RETURN .T.
Gracias
Anser