[此贴子已经被作者于2007-1-1 13:43:08编辑过]

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
DimrcAsInteger'ODBC函数的返回码
DimhenvAsLong'ODBC环境句柄
rc=SQLAllocEnv(henv)'获取ODBC环境句柄
DimhdbcAsLong'连接句柄
rc=SQLAllocConnect(henv,hdbc)'获取连接句柄

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

----如果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环境下开发的。->

連接數據庫啊 ````

现在已是Ado的天下了.
还是用ado吧..