format PE64 console
stack 1048576,1048576
entry start
include 'win64wx.inc'
include 'encoding\UTF8.INC' 

.....

proc mysqlTest

locals
aResult         dq ?
hMysql  dq ?
nColumns        dq ?
endl
        
        invoke mysql_server_init, 0, 0, 0
        cmp rax, 0
        jnz .error_server
        
        invoke  mysql_init, 0
        cmp rax, 0
        jz .errorInit
        mov [hMysql], rax
        
                
        ; invoke mysql_options, [hMysql], 7, .szUTF8 
        ; cmp rax, 0
        ; jnz .error
        

        
        invoke  mysql_real_connect, [hMysql], .szHost, .szUser, .szPass, .szBase, 0,0,0
        cmp rax, [hMysql]
        jnz .error
                

        invoke  mysql_set_character_set, [hMysql], .szUTF8
        cmp rax, 0
        jnz .error
        
        ; invoke        mysql_query, [hMysql], .szEncoding
        ; cmp   rax, 0
        ; jnz           .error
        
        invoke mysql_query, [hMysql], .szQuery
        cmp rax, 0
        jnz .error

        invoke mysql_store_result, [hMysql]
        cmp rax, 0
        jz .error
        mov [aResult], rax

        ; invoke    mysql_num_fields, [aResult]
        ; mov       [nColumns], rax

@@:     invoke mysql_fetch_row, [aResult]
        cmp rax, 0
        jz @f

        stdcall write, rax, -1, -1
        stdcall write, .sz10, -1, -1
        jmp @b
        
@@:     invoke  mysql_free_result, [aResult]

        invoke  mysql_thread_end 
        invoke  mysql_close, [hMysql]
        invoke  mysql_server_end
        
        ret

.error: 
        invoke       mysql_error, [hMysql]
        invoke  MultiByteToWideChar, CP_ACP, 0, rax, -1, aBuffer, 1024  
        stdcall write, aBuffer, -1, -1
        stdcall write, .sz10 , -1, -1
        ret
        
.errorInit:
        stdcall write, .szTxt1, -1, -1
        ret
                
.error_server:
        stdcall write, .szTxt0, -1, -1
        ret
        
        align 2
        
        .szTxt0  du 'Mysql error:  ,mysql_server_init ', 10, 0
        .szTxt1  du 'Mysql error:  ,mysql_init ', 10, 0
        
        .sz10    du 10, 0
        .szUser  db 'root', 0
        .szBase  db 'Test', 0
        .szHost  db 'localhost', 0
        .szPass  db '1', 0
        .szQuery db 'SHOW DATABASES', 0
        .szUTF8  db 'utf8', 0
        .szEncoding     db "SET NAMES 'utf8'",0         
        
        
endp