如何用 Visual Basic 中使用 ADO

文章翻译 文章翻译
文章编号: 172403 - 查看本文应用于的产品
为这篇文章的一个 Microsoft Visual Basic.net 版本,请参阅 308656
展开全部 | 关闭全部

本文内容

概要

Adovb.exe 是包含示例代码演示如何使用 Visual Basic 中的 ActiveX 数据对象 (ADO) 的一个自解压缩压缩的文件。

更多信息

以下文件是可从 Microsoft 下载中心下载:
http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE
有关如何下载 Microsoft 支持文件的其他信息请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
119591如何从联机服务获得 Microsoft 支持文件
Microsoft 扫描此文件的病毒。Microsoft 使用该文件已过帐的日期上获得的最新病毒检测软件。该文件存储在安全性得到增强的服务器,这有助于防止未经授权的情况下对其进行更改文件上。
收起该表格展开该表格
文件名大小日期
AdoDemo.mdb332 KB7/28/97
AdoVB18 KB8/5/97
AdoVB.vbp1 KB8/5/97
AdoVbEx6 KB7/28/97

Adovb 演示的内容

Adovb 演示输出和返回参数 (用于 SQL Server) 并打开一个 Microsoft Access 和 SQL Server 数据源的一个参数化记录集的正确的使用。此外包括是泛型的模板,ADO 代码处理的错误:
   Private Sub cmdTemplate_Click()
      Dim Conn1 As adodb.Connection

      On Error GoTo VbError   ' Trap (non-ADO) error/exceptions

      ' Create Connection Object (using early binding)
      Set Conn1 = new ADODB.Connection

      On Error GoTo AdoError  ' Trap any error/exception

      Conn1.ConnectionString = AccessConnect
      Conn1.Open

      '----------------------
      ' YOUR CODE GOES HERE!
      '----------------------

      ' Successful Shutdown
      Conn1.Close

   Done:
      ' Miscellaneous (graceful) Cleanup
      On Error Resume Next

      Set Conn1 = Nothing

      Exit Sub

   ' ADO Error/Exception Handler
   AdoError:
      ' Save Error Information!
      ErrNumber = Err.Number
      ErrSource = Err.Source
      ErrDescription = Err.Description

      AdoErrorEx List1, Conn1

   ' Non-ADO Native error/exception handler
   VbError:
      VbErrorEx List1, ErrNumber, ErrSource, ErrDescription
      GoTo Done

   End Sub
				
说明:
  • ADO 2.0 或更高版本中使用 ADOVB 时, 应删除对 Microsoft OLE DB ActiveX 数据对象 1.0,引用,并设置为最新版本可用的 Microsoft ActiveX 数据对象的引用。
  • 使用 ADO 2.0 或更高版本,引用 ADO 字段对象的该 OriginalValue 属性时将为提供了以下错误,如果 ADO 记录集的 LockType 是只读的:
    运行时错误"3251": 提供程序不支持由应用程序所请求的操作。
    若要不必在 ADOVB 此错误注释掉或删除的 cmdAccess frmADOVB 的代码窗口中的 Click 事件过程中的下列代码行的:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

参考

有关 ADO * 系列的示例

这是一个实现各种的产品中使用 ADO 如下所示的几个相同的示例。优点是这些文章有一个相同接口/功能,演示相似之处和不同的语言中使用 ADO 的差异 / 机制:
172403FILE: Adovb.exe 演示如何使用 Visual Basic 中使用 ADO
220152示例: ADOVC1 简单 ADO / VC + + 应用程序
185033Access 97 使用 ADO FILE: Adoacc.exe 说明

属性

文章编号: 172403 - 最后修改: 2005年3月2日 - 修订: 3.4
这篇文章中的信息适用于:
  • Microsoft ActiveX Data Objects 1.5
  • Microsoft ActiveX Data Objects 2.0
  • Microsoft ActiveX Data Objects 2.1 Service Pack 2
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 专业版
  • Microsoft Visual Basic 6.0 专业版
关键字:?
kbmt kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc KB172403 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 172403
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com