Como utilizar ADO com o Visual Basic

Traduções de Artigos Traduções de Artigos
Artigo: 172403 - Ver produtos para os quais este artigo se aplica.
Para obter uma Microsoft Visual Basic .NET versão deste artigo, consulte 308656.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Adovb.exe é um ficheiro comprimido extracção automática que contém o código de exemplo que demonstra como utilizar o ActiveX Data Objects (ADO) no Visual Basic.

Mais Informação

O ficheiro seguinte está disponível para transferência a partir do Centro de transferências da Microsoft:
http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE
Para obter informações adicionais sobre como transferir ficheiros de suporte da Microsoft, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
119591Como obter ficheiros de suporte da Microsoft a partir de serviços on-line
Microsoft procedeu de vírus neste ficheiro. Microsoft utilizou o mais recente software de detecção de vírus que estava disponível na data em que o ficheiro foi publicado. O ficheiro é alojado em servidores com segurança avançada que o ajudam a impedir alterações não autorizadas ao ficheiro.
Reduzir esta tabelaExpandir esta tabela
NomeFicheiroTamanhoData
AdoDemo.mdbKB 3327/28/97
AdoVBKB 188/5/97
AdoVB.vbp1 KB8/5/97
AdoVbExKB DE 67/28/97

O que demonstra Adovb

Adovb demonstra a utilização adequada de saída e parâmetros de devolução (para o SQL Server) e abrir um conjunto de registos com parâmetros para um Microsoft Access e SQL Server origens de dados. Também incluído é um modelo genérico para erro processamento com o código 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
				
notas:
  • Quando utilizar ADOVB com o ADO 2.0 ou posterior, deve remover a referência para o 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 utilizar o ADO 2.0 ou posterior, a propriedade OriginalValue do objecto ADO campo de referência apresentará o seguinte erro, se LockType do conjunto de registos ADO é só de leitura:
    Run-time error '3251': A operação pedida pela aplicação não é suportada pelo fornecedor.
    Para evitar este erro em ADOVB, comentar ou remova a seguinte linha de código, no procedimento de evento clicar para cmdAccess na janela código frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Referências

Sobre o ADO * série de exemplos

Esta é uma das várias amostras idênticas implementadas utilizando ADO em vários produtos, conforme listado abaixo. A vantagem é que estes artigos uma idêntica interface/funcionalidades, que demonstram as semelhanças e diferenças no utilizando o ADO com idiomas diferentes / mecanismos:
172403FICHEIRO: Adovb.exe demonstra como utilizar ADO com o Visual Basic
220152Exemplo: ADOVC1 simples ADO / aplicação VC ++
185033FICHEIRO: Adoacc.exe demonstra a utilização do ADO com o Access 97

Propriedades

Artigo: 172403 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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