【聚杰网数据库编程】动态配置ODBC数据源
使用ODBC API编程方法分为如下一些步骤：
1、 初始化ODBC在这个过程中,应用程序将通过调用SQLAlloEnv函数初始化ODBC接口,获取ODBC环境句柄。ODBC环境句柄是其它所有ODBC资源句柄的父句柄,因此无论程序将建立多少个ODBC连接,这个过程只需执行一次即可。例如:Dim rc As Integer "ODBC函数的返回码Dim henv As Long "ODBC环境句柄rc = SQLAllocEnv(henv) "获取ODBC环境句柄2、 与ODBC数据源建立连接这个过程由下列两个步骤组成:a、调用SQLAllocConnect函数获取连接句柄。例如:Dim hdbc As Long "连接句柄rc = SQLAllocConnect(henv, hdbc) "获取连接句柄B、建立连接。这个步骤可以通过多种方法实现,最简单直观的方法是调用SQLConnect函数。例如:
Dim DSN As String, UID As String, PWD As StringDSN = "DataSourceName" "ODBC数据源名称UID = "UserID" "用户帐号PWD = "Password" "用户口令rc = SQLConnect(hdbc, DSN, Len(DSN), UID, Len(UID), PWD, Len(PWD)) "建立连接
3、存取数据用户对ODBC数据源的存取操作,都是通过SQL语句实现的。在这个过程中,应用程序将通过连接向ODBC数据库提交SQL语句,完成用户请求的操作,具体步骤如下:调用SQLAllocStmt函数获取语句句柄,例如Dim hstmt As Longrc = SQLAllocStmt(hdbc, hstmt)执行SQL语句。执行SQL语句的方法比较多,最简单明了的方法是调用SQLAllocStmt函数,例如:Dim SQLstmt As StringSQLstmt = "SELECT * FROM authors"rc = SQLExecDirect(hstmt, SQLstmt, Len(SQLstmt))
4、 检索结果集 如果SQL语句顺利提交并正确执行,那么就会产生一个结果集。检索结果集的方法很多,最简单、最直接的方法是调用SQLFetch和SQLGetData函数。SQLFetch函数的功能是将结果集的当前记录指针移至下一个记录,SQLGetData函数的功能是提取结果集中当前记录的某个字段值。通常可以采用一个循环提取结果集中所有记录的所有字段值,该循环重复执行SQLFetch和SQLGetData函数,直至SQLFetch函数返回SQL_NO_DATA_FOUND,这表示已经到达结果集的末尾。
Dim ColVal As String * 225ColVal = String(255, 0)Do Until SQLFetch(hstmt) = SQL_NO_DATA_FOUNDrc = SQLGetData(hstmt, i, SQL_C_CHAR, ColVal, Len(ColVal), SQL_NULL_DATA Loop
5、 结束应用程序 在应用程序完成数据库操作、退出运行之前,必须释放程序中使用的系统资源。这些系统资源包括:语句句柄、连接句柄和ODBC环境句柄。完成这个过程的步骤如下:调用SQLFreeStmt函数释放语句句柄及其相关的系统资源。例如:rc = SQLFreeStmt(hstmt, SQL_DROP) 调用SQLDisconnect函数关闭连接,例如:rc = SQLDisconnect(hdbc) 调用SQLFreeConnect函数释放连接句柄及其相关的系统资源,例如:rc = SQLFreeConnect(hdbc) 调用SQLFreeEnv函数释放环境句柄及其相关的系统资源,停止ODBC操作,例如: rc = SQLFreeEnv(henv)
