Assemble之ODBC链接1.0.0.0

 

Code
.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

 

 

转载于:https://www.cnblogs.com/osoft1983/archive/2008/10/30/1322619.html