📄 access开发技巧-10.htm

📁 微软数据库开发梦工场多媒体教学-ACCESS篇.rar
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Untitled Document</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2716.2200" name=GENERATOR></HEAD>
<BODY text=#ffffff bgColor=#000000>
<p>　　对数据库中数据的访问，总的来说有两种方法，一种是通过编程环境提供的控件方法，一种就是通过ODBC API。有人也许会说还可以通过BDE的API，其实BDE的API和ODBC的API是同样的一个概念，BDE的API是Borland公司的，只是在他的编译环境下使用，当然，Borland的编译环境下比ODBC还快，但是因为那是他自带的驱动程序，如果数据库要升级的话，原来的BDE中的驱动程序就可能不能用了，所以，我们还是提倡使用ODBC的方法。 
</p>
<p>　　ODBC API函数中通过设置参数，直接和数据库打交道，这样的效率比较高，但是编程变的复杂，而且一不小心就会出错。我们不提倡直接使用ODBC API，而倾向于使用编程环境提供的控件方法来访问。但是，作为一种访问数据库访问的方法，我们在这里还是做一简单的介绍（这里以VB为例子）。（至于通过控件的方法，大家使用的比较多，这里就不多说了。） 
</p>
<p>　　ODBC API函数的声明方法与使用其它动态库函数一样,在VB中使用ODBC API函数之前,必须事先声明将要使用的函数、常量和数据结构。ODBC 
  API函数驻留在ODBC运行动态库ODBC.DLL(16位)或ODBC32.DLL(32位)中,该动态库位于Windows子目录system中。通常做法是在VB项目中单独使用一个模块文件,然后将ODBC 
  API声明语句加入其中。 </p>
<p>　　下面就是本文实例中使用的模块文件module1.bas的内容。 </p>
<p>Declare Function SQLAllocEnv Lib &quot;odbc32.dll&quot; (phenv&amp;) As Integer 
  <br>
  Declare Function SQLAllocConnect Lib &quot;odbc32.dll&quot; (ByVal henv&amp;, 
  phdbc&amp;) As Integer <br>
  Declare Function SQLAllocStmt Lib &quot;odbc32.dll&quot; (ByVal hdbc&amp;, phstmt&amp;) 
  AsInteger <br>
  Declare Function SQLConnect Lib &quot;odbc32.dll&quot; (ByVal hdbc&amp;, ByVal 
  szDSN$,ByVal cbDSN%, <br>
  ByVal szUID$, ByVal cbUID%, ByVal szAuthStr$, ByVal cbAuthStr%) As Integer <br>
  Declare Function SQLColAttributesString Lib &quot;odbc32.dll&quot; Alias &quot;SQLColAttributes&quot; 
  (ByVal <br>
  hstmt&amp;, ByVal icol%, ByVal fDescType%, ByVal rgbDesc As String, ByVal cbDescMax%, 
  <br>
  pcbDesc%, pfDesc&amp;) As Integer <br>
  Declare Function SQLDisconnect Lib &quot;odbc32.dll&quot; (ByVal hdbc&amp;) 
  As Integer <br>
  Declare Function SQLExecDirect Lib &quot;odbc32.dll&quot; (ByVal hstmt&amp;, 
  ByVal szSqlStr$, ByVal <br>
  cbSqlStr&amp;) As Integer <br>
  Declare Function SQLFetch Lib &quot;odbc32.dll&quot; (ByVal hstmt&amp;) As Integer 
  <br>
  Declare Function SQLFreeConnect Lib &quot;odbc32.dll&quot; (ByVal hdbc&amp;) 
  As Integer <br>
  Declare Function SQLFreeEnv Lib &quot;odbc32.dll&quot; (ByVal henv&amp;) As 
  Integer <br>
  Declare Function SQLFreeStmt Lib &quot;odbc32.dll&quot; (ByVal hstmt&amp;, ByVal 
  fOption%) As Integer <br>
  Declare Function SQLGetData Lib &quot;odbc32.dll&quot; (ByVal hstmt&amp;, ByVal 
  icol%,ByVal fCType%, <br>
</p>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -