FiveTech Software tech support forums

Dear all:

Anyone Kindness show Complete samples for Fiveweb to connect and access database value from MSSql, MYSQL ,Oracle .

Dear all: Solve the problem Today , Thanks Otto . Paste the testget.prg and testsay.prg Reference from otto.prg. // testget.prg #include "FiveWeb.ch" function Main() LOCAL oDlg, oGET1 local cGet1:=SPACE(20) local aParams /* if pcount() > 0 aParams := hb_aTokens( cParams, ":" ) MS...

hi : How to refresh oBrw:cMsg of xBrowse ? oBrw:Refresh() not work , any Idea ? @ 0,0 XBROWSE ::oBrw OF ::oWnd LINES ; ON CLICK ( ::oBrw:cMsg:= { || STR(::oBrw:KEYNO(),3)+"/"+STR(&(::cCUST_ALIAS)->(ORDKEYCOUNT()),3) } , ::oBrw:Refresh() ) ; MESSAGE { || STR(::oBrw:KEYNO(),3)+"/&qu...

HI nageswaragunupudi:

Thank you for TQBrowse() Solution.

It is as good as what you said .

The only problem is when browse a Big Table ( more than 10k records) ,
First time need 10-20 seconds , second time need 3-5 seconds.

Do you have any Idea about a Big Table ?

hi : I test the the solution work for SQLRDD + Chinese. for Chinese Traditional : 1. Create a database Collation with utf8_generial or utf8_unicode or big_chinese_ci. 2. add the command After Connect to MYySQL cCOMM:=" SET NAMES 'big5' ;" +; " set character_set_client='big5'; " n...

hi SGS :

I didn't know the solution what you paste.

Thank you.

HI Antonio:

MsgInfo( oGET.Value )

Compiler error :

Compiling...
testget.prg(15) Error E0030 Syntax error "syntax error at '.'"
Harbour 3.2.0dev (Rev. 18805)
Copyright (c) 1999-2013, http://harbour-project.org/
Compiling 'testget.prg'...
1 error

No code generated.
* Compile errors *

Hi Antonio:

Thank you for Explanation about Fiveweb.

Tried: msginfo(oGet.Value) ==> compiler error

Tried: msginfo(oGet:nValue) ==> Return Null

hi lucasdebeltran :

Thank you, I will try it and feedback .

hi Antonio : I have a question for Fiveweb. After edit value of tget , can't display new value. Anything I miss ? #include "FiveWeb.ch" function Main() local oDlg, cTEST:="TEST1234 ",oGET DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400 @ 20, 20 GET oGET VAR cTEST...

hi: Any one use SQLRDD + MYSQL with Chinese Collation? Created a Database with collation big5_chinese_ci or collation gb2312_chinese_ci or collation gbk_chinese_ci , I can't show Chinese word for FWH+xHarbour+SQLRDD. Created a Database with utf8_general_ci, work fine for FWH+xHarbour+SQLRDD , But sh...

#DUMP MY_KEYNO() ************************** FUNCTION MY_KEYNO(nRECNO , aARRAY , lSPECIAL) MEMVAR aDB_ARRAY LOCAL I DEFAULT aARRAY:=NIL,nRECNO:=0, lSPECIAL:=.F. IF aARRAY=NIL IF lSPECIAL ? LEN(aDB_ARRAY) ENDIF IF EMPTY(aDB_ARRAY) .OR. nRECNO=0 RETURN 0 ENDIF IF (I:=ASCAN(aDB_ARRAY , { |XX| XX[1]=nREC...

Hi Luacs : SQLRDD ver. xHarbour Builder SQLRDD for BCC-December-2012-Build1214 FWH: After ver.1208 xHarbour: 1.23.9894 SQLRDD Not support ordkeyno() , So I do a Stupid way to save Value of field->Sr_recno to Aarray. #DUMP my SOLUTION FOR SQLRDD ordkeyno() #define ORDKEYNO() MY_KEYNO(RECNO()) Private...

hi SGS: The problem was ::bKeyno() got 0 For SQLRDD. You need update FWH after ver.1208 . look the source code xBrowse in Method SETRDD Unmark this lines elseif ( ::cAlias )->( RddName() ) == "SQLRDD" DEFAULT ::bKeyNo := ::bBookMark, ; ::bKeyCount := { || ( ::cAlias )->( LastRec() ) }

Hi Lucas: Xbrowse work fine for SQLRDD + Mysql . I use SQLRDD+MYSQL Several Years. It is more easy Transfer Database .dbf file to SQL . Not all the Database Command work for SQLRDD. (like ‘Copy to’ ,’Copy stru to’ ,' append from' ) Some Problems still not solved for me. 1. SQLRDD+MYSQL support Colla...