Записать в RAGrid (RadAsm) данные, полученные из базы данных при помощи MySql API

invoke mysql_init,addr MYSQL 
    .if eax==0
    mov lMySQLError, SQL_ERROR_INIT
        mov eax, MAUVAISE_EXECUTION
        ret
    .endif
    mov hConn,eax                               ; Дискриптор соединения с MySql
    ; соединение с базой ( world )
    invoke mysql_real_connect,GpMySQL,addr lpHost,addr lpUser,addr lpPasswd,addr lpDb,0,NULL,0
    .if eax==0
        invoke mysql_close,GpMySQL              
        mov GpMySQL,0
        mov lMySQLError, SQL_ERROR_CONNECT
        mov eax, MAUVAISE_EXECUTION
        ret
    .endif

    
    invoke mysql_ping, GpMySQL
    .if eax!=0
        mov lMySQLError, SQL_ERROR_PING         
        mov eax, MAUVAISE_EXECUTION
        ret
    .endif
 
    invoke lstrlen,lpRequete                
    invoke mysql_real_query,GpMySQL,lpRequete,eax
    .if eax!=0
        mov lMySQLError, SQL_ERROR_QUERY        ; Ошибка выполнения запроса
        mov eax, MAUVAISE_EXECUTION
        ret
    .endif
    ; Получить результирующий набор
     invoke mysql_store_result,GpMySQL
    .if eax==0
        mov lMySQLError, SQL_ERROR_STORE_RESULT     
        mov eax, MAUVAISE_EXECUTION
        ret
    .endif
    mov pMyRES,eax

invoke mysql_num_fields,pMyRES                  ; Ïîëó÷èòü êîëè÷åñòâî ïîëåé â íàáîðå äàííûõ
    mov dwNombre,eax
     .while dwNombre!=0
        mov eax,dwNombre
        dec eax
        mov dwNombre,eax
        invoke mysql_fetch_field,pMyRES
        .if eax==0
            invoke mysql_free_result, pMyRES
            mov eax, MAUVAISE_EXECUTION
            ret
        .endif
        mov ebx,eax                 
        mov eax,MYSQL_FIELD.name_ [ebx]         
        mov dwDepartBuffer, eax
        mov eax,MYSQL_FIELD.type_ [ebx]                         
        mov Typefield,eax
    .endw

ODBCGetColumns proc uses edi,lpTable:DWORD
    LOCAL   hStmt:DWORD
    LOCAL   hStmt2:DWORD
    LOCAL   len:DWORD
    LOCAL   nInx:DWORD
    LOCAL   nCol:DWORD
    LOCAL   buffer[256]:BYTE
 
    mov     edi,offset dbCols           
    mov     ecx,sizeof dbCols/4
    xor     eax,eax
    mov     nCol,eax
    mov     nInx,eax
    rep stosd
    mov     edi,offset dbCols
    invoke SQLAllocHandle,SQL_HANDLE_STMT,hConn,addr hStmt
    .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
        invoke SQLAllocHandle,SQL_HANDLE_STMT,hConn,addr hStmt2
        .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
            invoke lstrcpy,addr buffer,offset szSql
            invoke lstrcat,addr buffer,lpTable
            invoke lstrcat,addr buffer,offset szSemi
            invoke lstrlen,addr buffer
            invoke SQLExecDirect,hStmt2,addr buffer,eax             
            .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
                invoke lstrlen,lpTable
                invoke SQLColumns,hStmt,NULL,0,NULL,0,lpTable,eax,NULL,0  
                .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
                  @@:
                    invoke SQLBindCol,hStmt,4,SQL_CHAR,addr [edi].SQLCOL.szName,sizeof SQLCOL.szName,addr len
                    invoke SQLBindCol,hStmt,5,SQL_SMALLINT,addr [edi].SQLCOL.wType,sizeof SQLCOL.wType,addr len; mys
                    invoke SQLFetch,hStmt                       
                    .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
                        movzx   eax,[edi].SQLCOL.wType          
                        .if eax==SQL_CHAR || eax==SQL_VARCHAR || eax==SQL_INTEGER || eax==SQL_SMALLINT || eax==SQL_REAL || eax==SQL_NUMERIC || eax==SQL_DOUBLE || eax==SQL_TYPE_TIMESTAMP || eax==65535 || eax==65529
                            mov     eax,nCol
                            mov     [edi].SQLCOL.nCol,eax
                            inc     nCol
                        .else
                            ;Unknown data type
                            PrintDec eax
                            mov     [edi].SQLCOL.nCol,-1
                        .endif
                        inc     nInx
                        invoke SQLColAttribute,hStmt2,nInx,SQL_COLUMN_NULLABLE,NULL,NULL,NULL,addr [edi].SQLCOL.nulls
                        invoke SQLColAttribute,hStmt2,nInx,SQL_COLUMN_UPDATABLE,NULL,NULL,NULL,addr [edi].SQLCOL.update
                        invoke SQLColAttribute,hStmt2,nInx,SQL_COLUMN_AUTO_INCREMENT,NULL,NULL,NULL,addr [edi].SQLCOL.autoinc
                        lea     edi,[edi+sizeof SQLCOL]
                        jmp     @b
                    .endif
                .else
                    Err 'Unable to get columns.'
                .endif
            .else
                Err "Failed to execute query."
            .endif
            invoke SQLFreeHandle,SQL_HANDLE_STMT,hStmt2
        .else
            Err 'Unable to allocate statement handle.'
        .endif
        invoke SQLFreeHandle,SQL_HANDLE_STMT,hStmt
    .else
        Err 'Unable to allocate statement handle.'
    .endif
    ret
 
ODBCGetColumns endp
 
ODBCGetData proc uses ebx esi edi,lpTable:DWORD,lpCols:DWORD
    LOCAL   hStmt:DWORD
    LOCAL   buffer[256]:BYTE
    LOCAL   rowdta[256]:DWORD
    LOCAL   nInx:DWORD
    LOCAL   len:DWORD
    LOCAL   ninx:DWORD
    LOCAL   nmemo[32]:DWORD
    LOCAL   pmemo[32]:DWORD
 
    invoke RtlZeroMemory,addr nmemo,sizeof nmemo
    invoke SQLAllocHandle,SQL_HANDLE_STMT,hConn,addr hStmt
    .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
        invoke SQLSetStmtAttr,hStmt,SQL_ATTR_CONCURRENCY,SQL_CONCUR_ROWVER,0
        invoke SQLSetStmtAttr,hStmt,SQL_ATTR_CURSOR_TYPE,SQL_CURSOR_KEYSET_DRIVEN,0
        invoke lstrcpy,addr buffer,offset szSql
        invoke lstrcat,addr buffer,lpTable
        invoke lstrcat,addr buffer,offset szSemi
        invoke lstrlen,addr buffer
        invoke SQLExecDirect,hStmt,addr buffer,eax          
        .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
            invoke GlobalAlloc,GMEM_FIXED or GMEM_ZEROINIT,64*1024
            mov     edi,eax             
            push    edi
            mov     nRows,0             
            mov     nInx,0              
            lea     ebx,rowdta          
            mov     esi,lpCols          
            mov     ninx,0
            .while [esi].SQLCOL.szName
                inc     nInx
                movsx   eax,[esi].SQLCOL.wType
                .if eax==SQL_CHAR || eax==SQL_VARCHAR
                    invoke SQLBindCol,hStmt,nInx,SQL_CHAR,edi,256,addr len
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,256
                .elseif eax==SQL_INTEGER
                    invoke SQLBindCol,hStmt,nInx,SQL_INTEGER,ebx,4,addr len
                    add     ebx,4
                .elseif eax==SQL_SMALLINT
                    invoke SQLBindCol,hStmt,nInx,SQL_SMALLINT,ebx,2,addr len
                    add     ebx,4
                .elseif eax==SQL_REAL
                    invoke SQLBindCol,hStmt,nInx,SQL_REAL,ebx,4,addr len
                    add     ebx,4
                .elseif eax==SQL_NUMERIC
                    invoke SQLBindCol,hStmt,nInx,SQL_NUMERIC,edi,8,addr len
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,8
                .elseif eax==SQL_DOUBLE
                    invoke SQLBindCol,hStmt,nInx,SQL_DOUBLE,edi,8,addr len
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,8
                .elseif eax==SQL_TYPE_TIMESTAMP
                    invoke SQLBindCol,hStmt,nInx,SQL_TYPE_TIMESTAMP,edi,8,addr len
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,8
                .elseif eax==SQL_LONGVARCHAR
                    ;Memo
                    mov     ecx,ninx
                    mov     pmemo[ecx*4],edi
                    mov     eax,nInx
                    mov     nmemo[ecx*4],eax
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,4096
                    inc     ninx
                .elseif eax==SQL_BIT
                    invoke SQLBindCol,hStmt,nInx,SQL_BIT,ebx,1,addr len
                    add     ebx,4
                .endif
                lea     esi,[esi+sizeof SQLCOL]
            .endw
          @@:
            lea     ebx,rowdta
            mov     esi,lpCols
            .while [esi].SQLCOL.szName
                movsx   eax,[esi].SQLCOL.wType
                .if eax==SQL_CHAR || eax==SQL_VARCHAR
                    mov     edi,[ebx]
                    mov     byte ptr [edi],0
                    add     ebx,4
                .elseif eax==SQL_INTEGER
                    mov     dword ptr [ebx],0
                    add     ebx,4
                .elseif eax==SQL_SMALLINT
                    mov     dword ptr [ebx],0
                    add     ebx,4
                .elseif eax==SQL_REAL
                    mov     dword ptr [ebx],0
                    add     ebx,4
                .elseif eax==SQL_NUMERIC
                    mov     edi,[ebx]
                    mov     dword ptr [edi],0
                    mov     dword ptr [edi+4],0
                    add     ebx,4
                .elseif eax==SQL_DOUBLE
                    mov     edi,[ebx]
                    mov     dword ptr [edi],0
                    mov     dword ptr [edi+4],0
                    add     ebx,4
                .elseif eax==SQL_TYPE_TIMESTAMP
                    mov     edi,[ebx]
                    mov     dword ptr [edi],0
                    mov     dword ptr [edi+4],0
                    add     ebx,4
                .elseif eax==SQL_LONGVARCHAR
                    mov     edi,[ebx]
                    mov     byte ptr [edi],0
                    add     ebx,4
                .elseif eax==SQL_BIT
                    mov     dword ptr [ebx],0
                    add     ebx,4
                .endif
                lea     esi,[esi+sizeof SQLCOL]
            .endw
            invoke SQLFetch,hStmt
            .if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO
                lea     ebx,nmemo
                lea     edi,pmemo
                .while dword ptr [ebx]
                    invoke SQLGetData,hStmt,[ebx],SQL_C_CHAR,[edi],256,addr len
                    add     ebx,4
                    add     edi,4
                .endw
                invoke SendMessage,hGrd,GM_ADDROW,0,addr rowdta
                inc     nRows
                cmp     nRows,32700
                jne     @b
            .endif
            pop     edi
            invoke GlobalFree,edi
        .else
            Err "Failed to execute query."
        .endif
        invoke SQLFreeHandle,SQL_HANDLE_STMT,hStmt
    .else
        Err 'Unable to allocate statement handle.'
    .endif
    ret
 
ODBCGetData endp

 invoke mysql_num_fields,GpMySql
    mov dwNombre,eax
    ; ×òåíèå äàííûõ èç òàáëèöû
    .while TRUE
        invoke mysql_fetch_row,pMyRES
        mov ebx,eax
        .if eax==0
            invoke mysql_free_result, pMyRES        ; Âûáðàíû âñå ñòðîêè íàáîðà
            mov eax, BONNE_EXECUTION
            ret
        .endif
        invoke mysql_num_fields,pMyRES          
        mov dwNombre,eax
        .while dwNombre!=0
            mov eax,dwNombre
            dec eax
            mov dwNombre,eax
            mov eax,MYSQL_FIELD.name_ [ebx]     
 
            add ebx,4
        .endw
        
    .endw

invoke mysql_num_fields,pMyRES;получили количество столбцов
    mov dwNombre,eax
     .while dwNombre!=0;пока столбцы больше нуля посторяем
        mov eax,dwNombre;уменбшаем счетчик столбцов
        dec eax
        mov dwNombre,eax
        invoke mysql_fetch_field,pMyRES;получили данные следующего поля таблицы
        .if eax==0;обработали ошибку
            invoke mysql_free_result, pMyRES
            mov eax, MAUVAISE_EXECUTION
            ret
        .endif
        mov ebx,eax
        mov eax,MYSQL_FIELD.name_ [ebx]
        mov dwDepartBuffer, eax;получили имя поля и записали его
        mov eax,MYSQL_FIELD.type_ [ebx]
        mov Typefield,eax;получили тип поля и записали его
    .endw

.while [esi].SQLCOL.szName
                inc     nInx
                movsx   eax,[esi].SQLCOL.wType
                .if eax==SQL_CHAR || eax==SQL_VARCHAR
                    invoke SQLBindCol,hStmt,nInx,SQL_CHAR,edi,256,addr len
                    mov     [ebx],edi
                    add     ebx,4
                    add     edi,256

rdta                ROWDATA <0,offset szText1,1001,(HOTKEYF_CONTROL shl 8) or VK_A,0,0,offset szButton1,147090,3600,01020341h,offset szButton1>
                    ROWDATA <1,offset szText2,1002,(HOTKEYF_CONTROL shl 8) or VK_B,1,1,offset szButton2,147091,3601,01020342h,offset szButton2>
                    ROWDATA <2,offset szText3,1003,(HOTKEYF_CONTROL shl 8) or VK_C,0,2,offset szButton3,147092,3602,01020304h,offset szButton3>
                    ROWDATA <3,offset szText4,1004,(HOTKEYF_CONTROL shl 8) or VK_D,1,3,offset szButton4,147093,3603,01020304h,offset szButton4>
                    ROWDATA <4,offset szText1,1005,(HOTKEYF_CONTROL shl 8) or VK_E,0,4,offset szButton1,147094,3604,01020304h,offset szButton1>
                    ROWDATA <5,offset szText2,1006,(HOTKEYF_CONTROL shl 8) or VK_F,1,5,offset szButton2,147095,3605,01020304h,offset szButton2>
                    ROWDATA <6,offset szText3,1007,(HOTKEYF_CONTROL shl 8) or VK_G,0,6,offset szButton3,147096,3606,01020304h,offset szButton3>
                    ROWDATA <7,offset szText4,1008,(HOTKEYF_CONTROL shl 8) or VK_H,1,7,offset szButton4,147097,3607,01020304h,offset szButton4>
                    ROWDATA <0,offset szText1,1009,(HOTKEYF_CONTROL shl 8) or VK_I,0,0,offset szButton1,147098,3608,01020304h,offset szButton1>
                    ROWDATA <1,offset szText2,1010,(HOTKEYF_CONTROL shl 8) or VK_J,1,1,offset szButton2,147099,3609,01020304h,offset szButton2>
                    ROWDATA <2,offset szText3,1011,(HOTKEYF_CONTROL shl 8) or VK_K,0,2,offset szButton3,147100,3610,01020304h,offset szButton3>
                    ROWDATA <3,offset szText4,1012,(HOTKEYF_CONTROL shl 8) or VK_L,1,3,offset szButton4,147101,3611,01020304h,offset szButton4>
                    ROWDATA <4,offset szText1,1013,(HOTKEYF_CONTROL shl 8) or VK_M,0,4,offset szButton1,147102,3612,01020304h,offset szButton1>
                    ROWDATA <5,offset szText2,1014,(HOTKEYF_CONTROL shl 8) or VK_N,1,5,offset szButton2,147103,3613,01020304h,offset szButton2>
                    ROWDATA <6,offset szText3,1015,(HOTKEYF_CONTROL shl 8) or VK_O,0,6,offset szButton3,147104,3614,01020304h,offset szButton3>
                    ROWDATA <7,offset szText4,1016,(HOTKEYF_CONTROL shl 8) or VK_P,1,7,offset szButton4,147105,3615,01020304h,offset szButton4>