[此贴子已经被作者于2006-12-18 12:11:14编辑过]

恩 我用VB做了一个网络游戏软件 服务器端有2.1G 超级大,且不说那些别的文件,单单只是MSVB6.0和ADODC.DLL、commondialog等文件都超过40M了 真麻烦啊 控件也很多,我准备全部用API做....
不过有一些API在MSDN里面没有，实在没有办法了 只有求助了。。

[此贴子已经被作者于2006-8-22 15:29:01编辑过]

事隔许久,终于明白`````贴上ING```


与使用其它动态库函数一样，在VB中使用ODBCAPI函数之前，必须事先声明将要使用的函数、常量和数据结构。ODBCAPI函数驻留在ODBC运行动态库ODBC.DLL（16位）或ODBC32.DLL（32位）中，该动态库位于Windows子目录system中。通常做法是在VB项目中单独使用一个模块文件，然后将ODBCAPI声明语句加入其中，如下所示，就是本文实例中使用的模块文件module1.bas的内容：

DeclareFunctionSQLAllocEnvLib"odbc32.dll"(phenv&)AsInteger
DeclareFunctionSQLAllocConnectLib"odbc32.dll"(ByValhenv&,phdbc&)AsInteger
DeclareFunctionSQLAllocStmtLib"odbc32.dll"(ByValhdbc&,phstmt&)AsInteger
DeclareFunctionSQLConnectLib"odbc32.dll"(ByValhdbc&,ByValszDSN$,ByValcbDSN,ByValszUID$,ByValcbUID,ByValszAuthStr$,ByValcbAuthStr)AsInteger
DeclareFunctionSQLColAttributesStringLib"odbc32.dll"Alias"SQLColAttributes"(ByValhstmt&,ByValicol,ByValfDescType,ByValrgbDescAsString,ByValcbDescMax,pcbDesc,pfDesc&)AsInteger
DeclareFunctionSQLDisconnectLib"odbc32.dll"(ByValhdbc&)AsInteger
DeclareFunctionSQLExecDirectLib"odbc32.dll"(ByValhstmt&,ByValszSqlStr$,ByValcbSqlStr&)AsInteger
DeclareFunctionSQLFetchLib"odbc32.dll"(ByValhstmt&)AsInteger
DeclareFunctionSQLFreeConnectLib"odbc32.dll"(ByValhdbc&)AsInteger
DeclareFunctionSQLFreeEnvLib"odbc32.dll"(ByValhenv&)AsInteger
DeclareFunctionSQLFreeStmtLib"odbc32.dll"(ByValhstmt&,ByValfOption)AsInteger
DeclareFunctionSQLGetDataLib"odbc32.dll"(ByValhstmt&,ByValicol,ByValfCType,ByValrgbValueAsString,ByValcbValueMax&,pcbValue&)AsInteger
DeclareFunctionSQLNumResultColsLib"odbc32.dll"(ByValhstmt&,pccol)AsInteger
GlobalConstSQL_C_CHARAsLong=1
GlobalConstSQL_COLUMN_LABELAsLong=18
GlobalConstSQL_DROPAsLong=1
GlobalConstSQL_ERRORAsLong=-1
GlobalConstSQL_NO_DATA_FOUNDAsLong=100
GlobalConstSQL_SUCCESSAsLong=0

----需要说明的是，在函数声明时，应该根据程序的运行环境选择相应的动态库。在VB子目录samples\remauto\db_odbc中有两个正文文件ODBC16.TXT和ODBC32.TXT，分别存有所有16位和32位ODBCAPI函数、常量和数据结构的声明语句，编程时可以从中拷贝所需的声明语句。

----使用ODBCAPI的编程方法

----在VB中调用ODBCAPI函数访问ODBC数据库，代码编制一般是按照下列过程进行的：

----一、初始化ODBC

----在这个过程中，应用程序将通过调用SQLAlloEnv函数初始化ODBC接口，获取ODBC环境句柄。ODBC环境句柄是其它所有ODBC资源句柄的父句柄，因此无论程序将建立多少个ODBC连接，这个过程只需执行一次即可。例如：

DimrcAsInteger'ODBC函数的返回码
DimhenvAsLong'ODBC环境句柄
rc=SQLAllocEnv(henv)'获取ODBC环境句柄

----二、与ODBC数据源建立连接

----这个过程由下列两个步骤组成：

----1、调用SQLAllocConnect函数获取连接句柄。例如：

DimhdbcAsLong'连接句柄
rc=SQLAllocConnect(henv,hdbc)'获取连接句柄

----2、建立连接。这个步骤可以通过多种方法实现，最简单直观的方法是调用SQLConnect函数。例如：

DimDSNAsString,UIDAsString,PWDAsString
DSN="DataSourceName"'ODBC数据源名称
UID="UserID"'用户帐号
PWD="Password"'用户口令
rc=SQLConnect(hdbc,DSN,Len(DSN),UID,
Len(UID),PWD,Len(PWD))'建立连接

----三、存取数据

----用户对ODBC数据源的存取操作，都是通过SQL语句实现的。在这个过程中，应用程序将通过连接向ODBC数据库提交SQL语句，以完成用户请求的操作。具体步骤如下：

----1、调用SQLAllocStmt函数获取语句句柄。例如：

DimhstmtAsLong
rc=SQLAllocStmt(hdbc,hstmt)

----2、执行SQL语句。执行SQL语句的方法比较多，最简单明了的方法是调用SQLAllocStmt函数，例如：

DimSQLstmtAsString
SQLstmt="SELECT*FROMauthors"
rc=SQLExecDirect(hstmt,SQLstmt,Len(SQLstmt))

----四、检索结果集

----如果SQL语句被顺利提交并正确执行，那么就会产生一个结果集。检索结果集的方法有很多，最简单最直接的方法是调用SQLFetch和SQLGetData函数。SQLFetch函数的功能是将结果集的当前记录指针移至下一个记录，SQLGetData函数的功能是提取结果集中当前记录的某个字段值。通常可以采用一个循环以提取结果集中所有记录的所有字段值，该循环重复执行SQLFetch和SQLGetData函数，直至SQLFetch函数返回SQL_NO_DATA_FOUND，这表示已经到达结果集的末尾。

DimColValAsString*225
ColVal=String(255,0)
DoUntilSQLFetch(hstmt)=SQL_NO_DATA_FOUND
rc=SQLGetData(hstmt,i,SQL_C_CHAR,ColVal,
Len(ColVal),SQL_NULL_DATA)
Loop

----五、结束应用程序

----在应用程序完成数据库操作，退出运行之前，必须释放程序中使用的系统资源。这些系统资源包括：语句句柄、连接句柄和ODBC环境句柄。完成这个过程的步骤如下：

----1、调用SQLFreeStmt函数释放语句句柄及其相关的系统资源。例如：

rc=SQLFreeStmt(hstmt,SQL_DROP)

----2、调用SQLDisconnect函数关闭连接。例如：

rc=SQLDisconnect(hdbc)

----3、调用SQLFreeConnect函数释放连接句柄及其相关的系统资源。例如：

rc=SQLFreeConnect(hdbc)

----4、调用SQLFreeEnv函数释放环境句柄及其相关的系统资源，停止ODBC操作。例如：

rc=SQLFreeEnv(henv)

----此外，在编制程序时还有一个需要重点考虑的问题，这就是错误处理。所有ODBCAPI函数，若在执行期间发生错误，都将返回一个标准错误代码SQL_ERROR。一般来讲，在每次调用ODBCAPI函数之后，都应该检查该函数返回值，确定该函数是否成功地执行，再决定是否继续后续过程。而详细的错误信息，可以调用SQLError函数获得。SQLError函数将返回下列信息：

标准的ODBC错误状态码

ODBC数据源提供的内部错误编码

错误信息串
----简单应用实例

----本实例将编制一个客户机端VB应用程序，通过WindowsNT局域网查询服务器端MSSQLServer6.5样板数据库PUBS中的AUTHORS数据表，并在一个Grid控件中显示查询结果。首先，使用Windows控制面板中的ODBC驱动管理器新建一个ODBC数据源，定义数据源名称为ODBC_API_DEMO，定义登录数据库为PUBS，其它信息应根据用户的环境正确设置。然后，启动VB，新建一个项目Project1，在缺省窗体Form1中加入一个Grid控件Grid1、两个CommandButton控件cmdQuery和cmdClose，在Project1中插入一个模块Module1，将前面列举的声明语句加入其中。程序代码如下：

PrivateSubForm_Load()
DimrcAsInteger
rc=SQLAllocEnv(henv)
Ifrc<>0Then
MsgBox"无法初始化ODBC"
End
EndIf
rc=SQLAllocConnect(henv,hdbc)
Ifrc<>0Then
MsgBox"无法获得连接句柄"
rc=SQLFreeEnv(henv)
End
EndIf
DimDSNAsString,UIDAsString,PWDAsString
DSN="ODBC_API_DEMO"
UID="guest"
PWD=""
rc=SQLConnect(hdbc,DSN,Len(DSN),
UID,Len(UID),PWD,Len(UID))
Ifrc=SQL_ERRORThen
MsgBox"无法建立与ODBC数据源的连接"
End
EndIf
EndSub
PrivateSubcmdQuery_Click()
DimhstmtAsLong
DimSQLstmtAsString
DimRSColsAsInteger,RSRowsAsLong
DimrcAsInteger,iAsInteger,jAsInteger
DimColValAsString*1024
DimColValLenAsLong,ColLabLenAsInteger,largAsLong
rc=SQLAllocStmt(hdbc,hstmt)
Ifrc<>SQL_SUCCESSThen
MsgBox"无法获得SQL语句句柄"
ExitSub
EndIf
SQLstmt="SELECT*FROMauthors"
rc=SQLExecDirect(hstmt,SQLstmt,Len(SQLstmt))
Ifrc<>SQL_SUCCESSThen
MsgBox"SQL语句执行失败"
ExitSub
EndIf
rc=SQLNumResultCols(hstmt,RSCols)
IfRSCols>1Then
Grid1.Cols=RSCols
Grid1.Rows=10
Grid1.Row=0
Else
ExitSub
EndIf
Fori=1ToRSCols
rc=SQLColAttributesString(hstmt,i,
SQL_COLUMN_LABEL,ColVal,255,ColLabLen,larg)
Grid1.Col=i-1
Grid1.Text=Left(ColVal,ColLabLen)
Nexti
DoUntilSQLFetch(hstmt)=SQL_NO_DATA_FOUND
ColVal=String$(1024,0)
IfGrid1.Row 1>=Grid1.RowsThen
Grid1.Rows=Grid1.Rows 1
EndIf
Grid1.Row=Grid1.Row 1
Fori=1ToRSCols
rc=SQLGetData(hstmt,i,SQL_C_CHAR,
ColVal,Len(ColVal),ColValLen)
Grid1.Col=i-1
Grid1.Text=Left$(ColVal,ColValLen)
Nexti
Loop
rc=SQLFreeStmt(hstmt,SQL_DROP)
EndSub
PrivateSubcmdClose_Click()
DimrcAsInteger
Ifhdbc<>0Then
rc=SQLDisconnect(hdbc)
EndIf
rc=SQLFreeConnect(hdbc)
Ifhenv<>0Then
rc=SQLFreeEnv(henv)
EndIf
End
EndSub

----实例程序是使用VisualBasic4.0在Windows95环境下开发的。->