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, ":" )
MSGINFO ...

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)+"/"+STR ...

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'; "
nERR := oSQL ...

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 OF oDlg ...

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 ...

#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 ...

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 ...

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 ...