精华区文章阅读

open: Permission denied
发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 在VB中直接用ODBC API访问数据库(转载)
发信站: 哈工大紫丁香 (2000年06月01日19:11:07 星期四), 转信

发信人: hyhour (time), 信区: VB
标  题: 在VB中直接用ODBC API访问数据库(转载)
发信站: 饮水思源站 (Wed Jul 28 10:54:08 1999) , 站内信件
  在VB中直接用ODBC API访问数据库
中国航空信息中心吴斌计算机世界 19980608
开放数据库互连(ODBC)已经成为Client/Server数据库应用系统中访问远程数据库的一个
标鬃。作为强大� 前端开发工具,Visual Basic为开发者提供了多种访问ODBC数据源的
途径,如JET数据库引擎、ODBC API函数、RDO接口等。比较而言,直接使用ODBC
准。作为强大的前端开发工具,Visual Basic为开发者提供了多种访问ODBC数据源的途径
,如
JET数据库引擎、ODBC API函数、RDO接口等。比较而言,直接使用ODBC
ODBC API函数的声明方法
与使用其它动态库函数一样,在VB中使用ODBC API函数之前,必须事先声明将要使用
的函数、常量和数据结构。ODBC API函数驻留在ODBC运行动态库ODBC.DLL(16位)或ODBC

32.DLL(32位)中,该动态库位于Windows子目录system中。通常做法是在VB项目中单独使

用一个模块文件,然后将ODBC API声明语句加入其中,下面就是本文实例中使用的模块文

件module1.bas的内容:
Declare Function SQLAllocEnv Lib "odbc32.dll" (phenv&) As Integer
Declare Function SQLAllocConnect Lib "odbc32.dll" (ByVal henv&, phdbc&) As I
ntegger
Declare Function SQLAllocStmt Lib "odbc32.dll" (ByVal hdbc&, phstmt&) AsInte
ger
Declare Function SQLConnect Lib "odbc32.dll" (ByVal hdbc&, ByVal szDSN$,ByVa
l cb
SN%, ByVal szUID$, ByVal cbUID%, ByVal szAuthStr$, ByVal cbAuthStr%) As Inte
ger
Declare Function SQLColAttributesString Lib "odbc32.dll" Alias "SQLColAttrib
utes
(ByVal hstmt&, ByVal icol%, ByVal fDescType%, ByVal rgbDesc As String, ByVa
l cb
escMax%, pcbDesc%, pfDesc&) As Integer
Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal hdbc&) As Integer
Declare Function SQLExecDirect Lib "odbc32.dll" (ByVal hstmt&, ByVal szSqlSt
r$,
yVal cbSqlStr&) As Integer
Declare Function SQLFetch Lib "odbc32.dll" (ByVal hstmt&) As Integer
Declare Function SQLFreeConnect Lib "odbc32.dll" (ByVal hdbc&) As Integer
Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal henv&) As Integer
Declare Function SQLFreeStmt Lib "odbc32.dll" (ByVal hstmt&, ByVal fOption%)
As
nteger
Declare Function SQLGetData Lib "odbc32.dll" (ByVal hstmt&, ByVal icol%,ByVa
l fC
ype%, ByVal rgbValue As String, ByVal cbValueMax&, pcbValue&) As Integer
Declare Function SQLNumResultCols Lib "odbc32.dll" (ByVal hstmt&, pccol%) As
Int
ger
Global Const SQL_C_CHAR As Long = 1
Global Const SQL_COLUMN_LABEL As Long = 18
Global Const SQL_DROP As Long = 1
Global Const SQL_ERROR As Long = -1
Global Const SQL_NO_DATA_FOUND As Long = 100
Global Const SQL_SUCCESS As Long = 0
需要说明的是,在函数声明时,应该根据程序的运行环境选择相应的动态库。在VB子
目录samples\remauto\db_odbc中有两个文本文件ODBC16.TXT和ODBC32.TXT,分别存有所

有16位和32位ODBC API函数、常量和数据结构的声明语句,编程时可以从中拷贝所需的声

明语句。
使用ODBC API的编程方法
在VB中调用ODBC API函数访问ODBC数据库,代码编写一般按下列过程进行:
1.初始化ODBC
在这个过程中,应用程序将通过调用SQLAlloEnv函数初始化ODBC接口,获取ODBC环境句柄
。OD
C环境句柄是其它所有ODBC资源句柄的父句柄,因此无论程序将建立多少个ODBC连接,这个
过�
只需执行一次即可。例如:
Dim rc As Integer 'ODBC函数的返回码
Dim henv As Long 'ODBC环境句柄
rc = SQLAllocEnv(henv) '获取ODBC环境句柄
2.与ODBC数据源建立连接
这个过程由下列两个步骤组成:
*S调用SQLAllocConnect函数获取连接句柄。例如:
Dim hdbc As Long '连接句柄
rc = SQLAllocConnect(henv, hdbc) '获取连接句柄
*S建立连接。这个步骤可以通过多种方法实现,最简单直观的方法是调用SQLConnect函数
。�
如:
Dim DSN As String, UID As String, PWD As String
DSN = "DataSourceName" 'ODBC数据源名称
UID = "UserID"
'用户帐号
PWD = "Password"
'用户口令
rc = SQLConnect(hdbc, DSN, Len(DSN), UID, Len(UID), PWD, Len(PWD)) '建立
连接
3.存取数据
用户对ODBC数据源的存取操作,都是通过SQL语句实现的。在这个过程中,应用程序将通过
连�
向ODBC数据库提交SQL语句,完成用户请求的操作,具体步骤如下:
*S调用SQLAllocStmt函数获取语句句柄,例如:
Dim hstmt As Long
rc = SQLAllocStmt(hdbc, hstmt)
*S执行SQL语句。执行SQL语句的方法比较多,最简单明了的方法是调用SQLAllocStmt函数
,例
�:
Dim SQLstmt As String
SQLstmt = "SELECT * FROM authors"
rc = SQLExecDirect(hstmt, SQLstmt, Len(SQLstmt))
4.检索结果集
如果SQL语句顺利提交并正确执行,那么就会产生一个结果集。检索结果集的方法很多,最
简�
、最直接的方法是调用SQLFetch和SQLGetData函数。SQLFetch函数的功能是将结果
集的当前
锹贾刚胍浦料乱个记录,SQLGetData函数的功能是提取结果集中当前记录的某个字段值
。通
？以采用一
个循环提取结果集中所有记录的所有字段值,该循环重复执行SQLFetch和SQLGetData函数
,直
罶QLFetch函数返回SQL_NO_DATA_FOUND,这表示已经到达结果集的末尾。
Dim ColVal As String * 225
ColVal = String(255, 0)
Do Until SQLFetch(hstmt) = SQL_NO_DATA_FOUND
rc = SQLGetData(hstmt, i, SQL_C_CHAR, ColVal, Len(ColVal), SQL_NULL_DATA
Loop
5.结束应用程序
在应用程序完成数据库操作、退出运行之前,必须释放程序中使用的系统资源。这些系统
资�
包括:语句句柄、连接句柄和ODBC环境句柄。完成这个过程的步骤如下:
*S调用SQLFreeStmt函数释放语句句柄及其相关的系统资源。例如:
rc = SQLFreeStmt(hstmt, SQL_DROP)
*S调用SQLDisconnect函数关闭连接,例如:
rc = SQLDisconnect(hdbc)
*S调用SQLFreeConnect函数释放连接句柄及其相关的系统资源,例如:
rc = SQLFreeConnect(hdbc)
*S调用SQLFreeEnv函数释放环境句柄及其相关的系统资源,停止ODBC操作,例如:
rc = SQLFreeEnv(henv)
此外,在编制程序时还有一个需要重点考虑的问题,这就是错误处理。所有ODBC API函数
,若�
执行期间发生错误,都将返回一个标准错误代码SQL_ERROR。一般来讲,在每次调用
ODBC
API函数之后,都应该检查该函数返回值,确定该函数是否成功地执行,再决定是否继续后
续过
。而详细的错误信息,可以调用SQLError函数获得。SQLError函数将返回下列信息:
*S标准的ODBC错误状态码;
*SODBC数据源提供的内部错误编码;
*S错误信息串。
简单应用实例
本实例将编制一个客户机端VB应用程序,通过Windows NT局域网查询服务器端MS SQL Se
rver
6.5样板数据库PUBS中的AUTHORS数据表,在一个Grid控件中显示查询结果。首先,使用Wi
ndow
控制面板中的ODBC驱动管理器新建一个ODBC数据源,定义数据源名称为ODBC_API_DEMO,定
义�
录数据库为PUBS,其它信息应根据用户的环境正确设置。然后启动VB,新建一个项目
Project1
在缺省窗体F
orm1中加入一个Grid控件Grid1、两个CommandButton控件cmdQuery和cmdClose,在Proje
ct1�
插入一个模块Module1,将前面列举的声明语句加入其中,程序代码如下:
Private Sub Form_Load()
Dim rc As Integer
rc = SQLAllocEnv(henv)
If rc <> 0 Then
MsgBox "无法初始化ODBC"
End
End If
rc = SQLAllocConnect(henv, hdbc)
If rc <> 0 Then
MsgBox "无法获得连接句柄"
rc = SQLFreeEnv(henv)
End
End If
Dim DSN As String, UID As String, PWD As String
DSN = "ODBC_API_DEMO"
UID = "guest"
PWD = ""
rc = SQLConnect(hdbc, DSN, Len(DSN), UID, Len(UID), PWD, Len(UID))
If rc = SQL_ERROR Then
MsgBox "无法建立与ODBC数据源的连接"
End
End If
End Sub
Private Sub cmdQuery_Click()
Dim hstmt As Long
Dim SQLstmt As String
Dim RSCols As Integer, RSRows As Long
Dim rc As Integer, i As Integer, j As Integer
Dim ColVal As String * 1024
Dim ColValLen As Long, ColLabLen As Integer, larg As Long
rc = SQLAllocStmt(hdbc, hstmt)
If rc <> SQL_SUCCESS Then
MsgBox "无法获得SQL语句句柄"
Exit Sub
End If
SQLstmt = "SELECT * FROM authors"
rc = SQLExecDirect(hstmt, SQLstmt, Len(SQLstmt))
If rc <> SQL_SUCCESS Then
MsgBox "SQL语句执行失败"
Exit Sub
End If
rc = SQLNumResultCols(hstmt, RSCols)
If RSCols > 1 Then
Grid1.Cols = RSCols
Grid1.Rows = 10
Grid1.Row = 0
Else
Exit Sub
End If
For i = 1 To RSCols
rc = SQLColAttributesString(hstmt, i, SQL_COLUMN_LABEL, ColVal, 255, Col
LabLen, larg)
Grid1.Col = i - 1
Grid1.Text = Left(ColVal, ColLabLen)
Next i
Do Until SQLFetch(hstmt) = SQL_NO_DATA_FOUND
ColVal = String$(1024, 0)
If Grid1.Row + 1 >= Grid1.Rows Then
Grid1.Rows = Grid1.Rows + 1
End If
Grid1.Row = Grid1.Row + 1
For i = 1 To RSCols
rc = SQLGetData(hstmt, i, SQL_C_CHAR, ColVal, Len(ColVal), ColValLen)
Grid1.Col = i - 1
Grid1.Text = Left$(ColVal, ColValLen)
Next i
Loop
rc = SQLFreeStmt(hstmt, SQL_DROP)
End Sub
Private Sub cmdClose_Click()
Dim rc As Integer
If hdbc <> 0 Then
rc = SQLDisconnect(hdbc)
End If
rc = SQLFreeConnect(hdbc)
If henv <> 0 Then
rc = SQLFreeEnv(henv)
End If
End
End Sub
本例程序在Visual Basic 4.0、Windows 95环境下调试通过。

--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)