Como usar o ADO com o Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 172403 - Exibir os produtos aos quais esse artigo se aplica.
Para uma versão deste artigo do Microsoft Visual Basic. NET, consulte 308656.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Adovb.exe é um arquivo compactado de extração automática que contém o código exemplo que demonstra como usar o ADO (ActiveX Data Objects) no Visual Basic.

Mais Informações

O seguinte arquivo está disponível para download no Centro de download da Microsoft:
http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE
Para obter informações adicionais sobre como baixar arquivos de suporte da Microsoft, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
119591Como obter arquivos de suporte da Microsoft a partir de serviços online
Microsoft examinou esse arquivo em busca de vírus. Microsoft utilizou o mais recente software de detecção de vírus que estava disponível na data em que o arquivo foi publicado. O arquivo é armazenado em servidores com segurança avançada que ajudam a evitar qualquer alteração não autorizada no arquivo.
Recolher esta tabelaExpandir esta tabela
FileNameTamanhoData
AdoDemo.mdb332 KB28/7/97
AdoVBKB 185/8/97
AdoVB.vbp1 KB5/8/97
AdoVbEx6 KB28/7/97

O que demonstra Adovb

Adovb demonstra o uso adequado de saída e parâmetros de retorno (para o SQL Server) e abrir um conjunto de registros com parâmetros para fontes de dados de um Microsoft Access e o SQL Server. Também há um modelo genérico para manipular com código ADO do erro:
   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
				
Observações:
  • Ao usar ADOVB com o ADO 2.0 ou posterior, você deve remover a referência ao Microsoft OLE DB ActiveX Data Objects 1.0 e definir uma referência para a versão mais recente do Microsoft ActiveX Data Objects disponíveis.
  • Quando usar o ADO 2.0 ou posterior, referenciando a propriedade OriginalValue de um objeto ADO campo dará ao seguinte erro, se LockType do Recordset ADO é somente leitura:
    Erro em tempo de execução '3251': o provedor não dá suporte a operação solicitada pelo aplicativo.
    Para evitar esse erro em ADOVB, comente ou remova a seguinte linha de código, no procedimento de evento Click para cmdAccess na janela de código para frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Referências

Sobre o ADO 1 série de exemplos

Isso é uma das várias amostras idênticas implementadas usando o ADO dentro de vários produtos, conforme listado abaixo. A vantagem é que esses artigos tem uma idêntica/funcionalidade de interface, demonstrando as semelhanças e diferenças no usando o ADO com diferentes idiomas / mecanismos:
172403ARQUIVO: Adovb.exe demonstra como usar o ADO com o Visual Basic
220152Exemplo: ADOVC1 simples ADO / aplicativos do VC ++
185033ARQUIVO: Adoacc.exe demonstra usando o ADO com o Access 97

Propriedades

ID do artigo: 172403 - Última revisão: quarta-feira, 2 de março de 2005 - Revisão: 3.4
A informação contida neste artigo aplica-se a:
  • 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 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Palavras-chave: 
kbmt kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc KB172403 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 172403

Submeter comentários

 

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