Is FWH 64bits ready ?
How to get it ?
I am using FWH805 ...
Thank's
fafi@basepronet.com
cRDD := "SQLRDD"
cIP := "localhost" // Server
cConnString := "MySQL="+cIP+";UID=root;PWD=;DTB=blu;PRT=3306"
nOpt := 3
nConBLU := SR_AddConnection( If( nOpt = 1, CONNECT_ODBC, if( nOpt = 2, CONNECT_POSTGRES, if( nOpt = 3, CONNECT_MYSQL, if( nOpt = 4, CONNECT_ORACLE, CONNECT_FIREBIRD ) ) ) ), cConnString )
If nConBLU < 0
? "Server BLU no connect to IP Address "+cIP
return .f.
EndIf
SR_SetActiveConnection(nConBLU)
cFile := "blu_kel_jurnal"
if !SR_ExistTable(cFile)
?cFile+" Not found"
return nil
endif
USE (cFile) new shared VIA cRDD alias keljurnal
if !SR_ExistIndex( cFile )
index on jurnal tag jurnal to (cFile)
endif
set index to (cFile)
keljurnal->(ordSetFocus("jurnal"))
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 53 guests