Использование ADO с помощью Visual Basic

Переводы статьи Переводы статьи
Код статьи: 172403 - Vizualiza?i produsele pentru care se aplic? acest articol.
Для Microsoft Visual Basic.NET версии данной статьи, см. 308656.
Развернуть все | Свернуть все

В этой статье

Аннотация

Adovb.exe — это самораспаковывающийся сжатый файл содержащего образец кода Описание способов использования объектов данных ActiveX (ADO) в Visual Basic.

Дополнительная информация

Следующий файл доступен для загрузки из центра загрузки Майкрософт:
http://download.Microsoft.com/download/vb60pro/Demo/1/Win98/en-US/AdoVB.exe
Для получения дополнительных сведений о том, как загрузить файлы поддержки Майкрософт щелкните следующий номер статьи базы знаний Майкрософт:
119591 Как загрузить файлы поддержки Майкрософт из Интернета
Корпорация Майкрософт проверила этот файл на наличие вирусов. Корпорация Майкрософт использует последние версии антивирусного программного обеспечения на дату публикации файла. Файл хранится на защищенных серверах, что предотвращает его несанкционированное изменение.
Свернуть эту таблицуРазвернуть эту таблицу
Имя файлаРазмерДата
AdoDemo.mdb332 КБ28-7-97
AdoVB18 КБ5-8-97
AdoVB.vbp1 КБ5-8-97
AdoVbEx6 КБ28-7-97

Описание Adovb

Adovb показано правильное использование возврата и выходные параметры (для SQL Сервер) и открытие параметризированного набора записей для источников данных 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 данных объектов 1.0 и установить ссылку на последнюю версию Microsoft ActiveX Data Objects доступны.
  • При использовании ADO 2.0 или более поздней версии, ссылка на свойство OriginalValue объекта ADO поля даст следующие ошибки, если LockType набора записей ADO доступна только для чтения:
    Ошибка выполнения «3251»: Операция, запрошенная приложением не поддерживается поставщиком.
    Чтобы избежать этой ошибки в ADOVB, закомментировать или удалить следующую строку кода, в процедуре обработки события Click для cmdAccess в окно кода для frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Ссылки

О серии ADO * образцов

Это одна из нескольких идентичных образцов реализуется с помощью ADO в Различные продукты, как перечислено ниже. Преимуществом является то, что эти статьи имеют идентичные/функциональность интерфейса, демонстрируя одновременно сходства и различия в использование ADO с различными языками и механизмов:
172403 ФАЙЛ: Adovb.exe демонстрируется использование ADO с помощью Visual Basic
220152 Пример: ADOVC1 простой ADO / VC ++ приложения
185033 ФАЙЛ: Adoacc.exe показано использование ADO с помощью Microsoft Access 97

Свойства

Код статьи: 172403 - Последний отзыв: 3 июня 2011 г. - Revision: 4.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Ключевые слова: 
kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc kbmt KB172403 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:172403

Отправить отзыв

 

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