如何將 Visual Basic 與 ADO 搭配使用

檢視此文章適用的產品。

本文曾發行於 CHT172403

結論

Adovb.exe 是一個包含範例程式碼的自解壓縮檔，它示範了如何在 Visual basic 中使用 ActiveX 資料物件 (ADO)。

回此頁最上方

其他相關資訊

下列檔案可從 Microsoft 下載中心下載。按一下下方的檔案名稱便可下載檔案：

http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE (http://download.microsoft.com/download/vb60pro/demo/1/win98/en-us/adovb.exe)

如需有關如何從 Microsoft 下載中心下載檔案的其他資訊，請查閱下列下載中心的 Web 網址

http://www.microsoft.com/downloads/Search.aspx (http://www.microsoft.com/downloads/Search.aspx)

然後按一下如何使用 Microsoft 下載中心。

摺疊此表格展開此表格

AdoDemo.mdb	332KB	7/28/97
AdoVB	18KB	8/5/97
AdoVB.vbp	1KB	8/5/97
AdoVbEx	6KB	7/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

注意：

當您將 ADOVB 與 ADO 2.0 或更新版本配合使用，您應該將 Microsoft OLE DB ActiveX Data Objects 1.0 的參照移除，並設定參照至最新版本的 Microsoft ActiveX Data Objects。
當您使用 ADO 2.0 或更新版本時，如果 ADO 資料錄集的鎖定類型為唯讀的，那當您參照 ADO 欄位物件的 OriginalValue 屬性時，將得到下列錯誤訊息，:
執行期錯誤代號 '3251':提供者無法支援應用程式要求的作業。
要避免在 ADOVB 中產生此錯誤，請顯示或移除下列程式碼列，即從 frmADOVB 的程式碼視窗中的 cmdAccess 按一下事件程序：
List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue

回此頁最上方

?考

有關 ADO* 的系列範例

這是在各種產品中使用 ADO 執行的相同範例中的其中一個範本，如下所示。這些文件都具有相同介面/功能的優點，示範以不同的語言/機制使用 ADO 時相似及不同的地方：

172403? (http://support.microsoft.com/kb/172403/ZH-TW/ ) 如何將 Visual Basic 與 ADO 搭配使用

220152? (http://support.microsoft.com/kb/220152/EN-US/ ) Sample:ADOVC1 Simple ADO/VC++ Application

185033? (http://support.microsoft.com/kb/185033/EN-US/ ) FILE:Adoacc.exe Demonstrates Using ADO with Access 97

回此頁最上方

?考

本文件是根據 Microsoft Knowledgebase 文件編號 Q172403 翻譯的. 若要參考原始英文文件內容, 請至以下網址:

http://support.microsoft.com/support/kb/articles/Q172/4/03.asp (http://support.microsoft.com/kb/172403/en-us?ln=en-us&sd=gn&fr=0)

回此頁最上方

這篇文章中的資訊適用於:

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 Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 6.0 Professional Edition

回此頁最上方

kbinfo kbdownload kbado200 kbado210sp2 kbado250 kbstoredproc kbvbp kbgrpmdac kbdatabase kbfile kbvbp500 kbsample kbvbp600 kbsqlserv kbcode kbado kbgrpvbdb KB172403

回此頁最上方

Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。