Assemble之ODBC链接1.0.0.0

 

.386
.model flat, stdcall
option casemap : none

include windows.inc
include odbc32.inc

includelib odbc32.lib

OnError    macro
    invoke    SQLAllocHandle, SQL_HANDLE_ENV, NULL, addr hEnv
    .if    ax != SQL_SUCCESS && ax != SQL_SUCCESS_WITH_INFO
        jmp    @F
    .endif
endm

.data?
hEnv    dd    ?    ;连接句柄
hConn    dd    ?    ;环境句柄

.code
DllEntry        proc    _hInstance, _dwReason, _dwReserved

          mov     eax,    TRUE
         ret

DllEntry        endp
                
;函数说明：通过DSN链接数据库
;lpDsn：DSN名称
;dwLpDsnLen：DSN名称长度
;返回值：0表示连接成功，-1表示连接失败                
_ConnectByDsn    proc    lpDsn : dword, dwLpDsnLen : byte
    
    ;获取环境、链接句柄
    invoke    SQLAllocHandle, SQL_HANDLE_ENV, NULL, addr hEnv
    OnError
    
    invoke    SQLSetEnvAttr, hEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0
    OnError
    
    invoke    SQLAllocHandle, SQL_HANDLE_DBC, hEnv, addr hConn
    OnError
    
    ;链接到数据库
    invoke    SQLConnect, hConn, addr lpDsn, dwLpDsnLen, NULL, NULL, NULL, NULL
    OnError
    
    mov    eax,    0
    ret
@@:
    mov    eax,    -1
    ret
    
_ConnectByDsn     endp

;函数说明：执行Sql语句
;lpSql：Sql语句
;dwLpSqlLen：Sql语句长度
;返回值：执行成功返回影响行数，否则返回-1 
_ExcuteSql    proc    lpSql : dword, dwLpSqlLen : byte
    local    hStmt : dword    
    
    invoke    SQLAllocHandle, SQL_HANDLE_STMT, hConn, hStmt
    OnError
    
    invoke    SQLSetStmtAttr, hStmt, SQL_ATTR_CURSOR_TYPE, SQL_CURSOR_STATIC, 0
    OnError
    
    ;执行SQL
    invoke    SQLExecDirect, hStmt, byte ptr lpSql, dwLpSqlLen
    OnError
    
    mov    eax,    0
    ret
@@:
    mov    eax,    -1
    ret

_ExcuteSql     endp
                end     DllEntry