FiveTech Support Forums

#include "Fivewin.ch"
#include "TDolphin.ch"

procedure Main()
    local oServer
    local cHost     := "127.0.0.1"
    local cUser     := "root"
    local cPassword := "$01khm02khy$"
    local nPort     := 3306
    local nFlags    := 0
    local cDbName   := "bkinfo"

    local oErr

    local oQry
    local aData  := {}
    local cQuery := ""
    local i := 0

    SET CENTURY ON
    SET DATE FORMAT "yyyy.mm.dd"

    HB_SETCODEPAGE( "UTF8" )
    *FW_SetUnicode( .T. )   // It's a function that doesn't exist in my version.

    try
        CONNECT oServer HOST cHost USER cUser PASSWORD cPassword PORT nPort FLAGS nFlags DATABASE cDbName
    catch oErr
        Msginfo( oErr:Description, "Error" )
        RETURN
    end

    oQry  := TDolphinQry():New( "SELECT * FROM test", oServer )
    aData := oQry:FillArray()

    cQuery += "Record Count : "+ Transform(oQry:nRecCount,"999,999") + " / "

    cQuery += "Fields Count : "+ Transform(oQry:nFCount,"999,999") + CRLF + CRLF

    if oQry:nRecCount > 0
        for i := 1 to oQry:nRecCount
            cQuery += "RecNo. "+ALLTRIM(STR(i))+" 무엇이 문제일까?  What is the problem?" + CRLF +;
                           "Name : " + ALLTRIM(aData[i][1])+", Company : "+ALLTRIM(aData[i][2]) + CRLF + CRLF
    next
    endif

    Msginfo( cQuery )

    oQry:End()
    oQry := NIL

    oServer:End()

RETURN