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