API操作Access数据库

RetCode ＝ SQLAllocHandle (#SQL_HANDLE_ENV, #SQL_NULL_HANDLE, hEnv) ' 环境句柄
.如果真 (RetCode ≠ #SQL_SUCCESS 且 RetCode ≠ #SQL_SUCCESS_WITH_INFO)
返回 (假)
.如果真结束
RetCode ＝ SQLSetEnvAttr (hEnv, #SQL_ATTR_ODBC_VERSION, #SQL_OV_ODBC3, 0)
.如果真 (RetCode ≠ #SQL_SUCCESS 且 RetCode ≠ #SQL_SUCCESS_WITH_INFO)
返回 (假)
.如果真结束
RetCode ＝ SQLAllocHandle (#SQL_HANDLE_DBC, hEnv, hConn) ' 连接句柄
.如果真 (RetCode ≠ #SQL_SUCCESS 且 RetCode ≠ #SQL_SUCCESS_WITH_INFO)
返回 (假)
.如果真结束
SQLSetConnectAttr (hConn, #SQL_ATTR_AUTOCOMMIT, #SQL_AUTOCOMMIT_OFF, 0)
szFullString ＝ 取空白文本 (512)
SQLDriverConnect (hConn, _启动窗口.取窗口句柄 (), 连接字符串, 取文本长度 (连接字符串), szFullString, 512, dwTemp, #SQL_DRIVER_COMPLETE) ' 连接到数据库
.如果真 (RetCode ≠ #SQL_SUCCESS 且 RetCode ≠ #SQL_SUCCESS_WITH_INFO)
断开数据库连接 ()
返回 (假)