如何用 Visual Basic 中使用 ADO

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 172403
为这篇文章的一个 Microsoft Visual Basic.net 版本,请参阅 308656
概要
Adovb.exe 是包含示例代码演示如何使用 Visual Basic 中的 ActiveX 数据对象 (ADO) 的一个自解压缩压缩的文件。
更多信息
以下文件是可从 Microsoft 下载中心下载:
有关如何下载 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 说明
AdoVB

警告:本文已自动翻译

Властивості

Ідентифікатор статті: 172403 – останній перегляд: 03/02/2005 19:22:30 – виправлення: 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
Зворотний зв’язок