"ADODB.RecordSet" active in XBROWSE ?

[Jimmy]

hi,

i do use DBF and "ADODB.RecordSet" with XBROWSE
now i can call some Function but they are not the same for DBF and "ADODB.RecordSet"

so i need to "detect" which ist running ... how

[nageswaragunupudi]

so i need to "detect" which ist running ... how

Code: Select all  Expand view

if oBrw:nDataType == DATATYPE_RDD
   // DBF
elseif oBrw:nDataType == DATATYPE_ADO
  // ADO
else
///
endif

Please see \include\xbrowse.ch for the DATATYPE_??? defines.

Another way:

Code: Select all  Expand view

if !Empty( oBrw:oRs )
   // ADO
elseif !Empty( oBrw:cAlias )
   // DBF
else
////
endif

[nageswaragunupudi]

i can call some Function but they are not the same for DBF and "ADODB.RecordSet"

I would be glad if you can give some examples.
Let us see if xbrowse can help

[Jimmy]

hi,

i´m still "play" with XBROWSE, now using ADO for EXCEL too
i use sample FiveDBU.PRG and modify all Parts which i use for "Darkmode"

i have now 2 x XBROWSE : for DBF or EXCEL (ADO)
like FiveDBU i want to "reduce" it to 1 x XBROWSE

but my Buttonbar are different ... it is like (Original) DBU

that´s why i want to "detect" if DBF or ADO is "active"

[nageswaragunupudi]

For information:
To set dark theme for xbrowse, create xbrowse normally and then

Code: Select all  Expand view

oBrw:SetDarkTheme()

[Jimmy]

hi,

To set dark theme for xbrowse, create xbrowse normally and then

Code: Select all  Expand view

oBrw:SetDarkTheme()

thx for Information.

but it is not only XBROWSE where i want to have "Darkmode", it are all DIALOG / WINDOW and CONTROLs

[karinha]

Jimmy, always post a small example.

Regards, saludos.

[Jimmy]

hi,

always post a small example.

it was "just" a Question "IF active" so i have no Sample for it (yet)

i have release Sample of "working" ADO with EXCEL but as i want to use 1 x XBROWSE "only" ( for DBF or ADO ) i need to know which "is active"