This error indicates that some libs/obj files are of xharbour and some or of harbour.
I suggest we go step by step from a stage it is working for you.
Please let me know:
1) Did my first sample work for you?
2) If so did you use xHarbour or Harbour?
Dear Mr.Rao,
Yes, I do use Dolphin.lib that use with xHarbour 1.2.3. I thought it is compatible between xHarbour and Harbour.
But the data still cannot read.
Thanks in advance.
Please again try dolphin sample I sent you with your xHarbour and your libs for dolphin (dolphin lib for xharbour).
Please do not change anything except your connection parameters
Let us see what to do if you still have problem.
nageswaragunupudi wrote:Please again try dolphin sample I sent you with your xHarbour and your libs for dolphin (dolphin lib for xharbour).
Please do not change anything except your connection parameters
Let us see what to do if you still have problem.
#include "FiveWin.Ch"
#include "tdolphin.ch"
#include "xbrowse.ch"
static cpw := "nimda"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oBrw, oFont
local oQry
FW_SetUnicode( .T. )
db()
oQry := TDolphinQry():New( "SELECT * FROM namesutf8", db() )
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-16
DEFINE DIALOG oDlg SIZE 500,300 PIXEL TITLE FWVERSION + " : TDolphin" ;
FONT oFont
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE oQry ;
COLUMNS "code", "name" ;
CELL LINES NOBORDER AUTOSORT FASTEDIT
WITH OBJECT oBrw
:nEditTypes := EDIT_GET
//
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
db():End()
return nil
//----------------------------------------------------------------------------//
function db()
static oCn
if oCn == nil
CONNECT oCn ;
HOST "localhost" USER "root" PASSWORD cpw DATABASE "easyfo"
endif
return oCn
//----------------------------------------------------------------------------//I shall send you the libs I am using to your personal mail.
nageswaragunupudi wrote:I shall send you the libs I am using to your personal mail.
Yes, strange.
In other words Dolphin is working for Unicode but ADO and Dolphin are not compatible with each other.
What about viewing in WorkBench?
For me both ADO and Dolphin are working together without any issues.
nageswaragunupudi wrote:Yes, strange.
In other words Dolphin is working for Unicode but ADO and Dolphin are not compatible with each other.
What about viewing in WorkBench?
For me both ADO and Dolphin are working together without any issues.
I can show ADO and Dolphin compatible. I try to send you the libs tonight.
I need to test more to achieve compatibility with Workbench also.
Hi Mr.Rao
I join this test for Chinese Unicode within MySQL/xHarbour/TMySQL
I will test 32bit and 64bit.
See you this forum or My EMail.
Sure
We all work together
nageswaragunupudi wrote:Yes.
We can also provide support if you are using MySql through ADO.
This is a working sample:
#include "fivewin.ch" #include "adodef.ch" static oCn //----------------------------------------------------------------------------// function Main() local oRs, cSql, aStruct local cTable := "namesutf8" FW_SetUnicode( .t. ) ? "Connecting to MySql Server" oCn := FW_OpenAdoConnection( "MYSQL,localhost,fwh,root,India@1947", .t. ) if oCn == nil ? MsgStop( "Connect Fail" ) return nil endif if .not. FW_AdoTableExists( cTable, oCn ) .or. ; MsgYesNo( "Recreate table " + cTable ) TRY oCn:Execute( "DROP TABLE " + cTable ) CATCH END aStruct := { ; { "code", 'C', 2, 0 }, ; { "name", "VARCHAR(100) CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci" } } FWAdoCreateTable( cTable, aStruct, oCn ) endif oRs := FW_OpenRecordSet( oCn, cTable ) XBROWSER oRs FASTEDIT TITLE FWVERSION oRs:Close() oCn:Close() return nil //----------------------------------------------------------------------------//
{ "name", "VARCHAR(100) CHARACTER SET utf8 COLLATE utf8_unicode_ci" } }