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