Comment faire pour utiliser ADO avec Visual Basic

Traductions disponibles Traductions disponibles
Numéro d'article: 172403 - Voir les produits auxquels s'applique cet article
Pour une Microsoft Visual Basic .NET version de cet article, reportez-vous 308656.
Agrandir tout | Réduire tout

Sommaire

Résumé

Adovb.exe est un fichier compressé à extraction automatique contenant du code exemple qui montre comment utiliser ActiveX Data Objects (ADO) dans Visual Basic.

Plus d'informations

Le fichier suivant est disponible au téléchargement à partir du centre de téléchargement Microsoft :
http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE
Pour plus d'informations sur la façon de télécharger des fichiers de support technique Microsoft, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la base de connaissances Microsoft :
119591Procédure pour obtenir des fichiers de support technique Microsoft auprès des services en ligne
Microsoft a analysé ce fichier pour les virus. Microsoft utilisé les logiciels de détection de virus les plus récentes ne sont associé à la date à laquelle le fichier a été validé. Le fichier est stocké sur des serveurs sécurisés, empêchant toute modification non autorisée du fichier.
Réduire ce tableauAgrandir ce tableau
NomFichierTailleDate
AdoDemo.mdb332 KO28/07/97
AdoVB18 KO5/08/97
AdoVB.vbp1 KO5/08/97
AdoVbEx6 KO28/07/97

Ce que démontre Adovb

Adovb illustre l'utilisation correcte de sortie et paramètres de retour (pour SQL Server) et d'ouvrir un jeu d'enregistrements paramétré pour les sources de données un Microsoft Access et SQL Server. Un modèle générique avec le code ADO de gestion des erreurs est également inclus :
   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
				
NOTES :
  • Lorsque vous utilisez ADOVB avec ADO 2.0 ou version ultérieure, supprimez la référence à Microsoft OLE DB ActiveX Data Objects 1.0 et définir une référence à la dernière version de Microsoft ActiveX Data Objects disponibles.
  • Lors de l'utilisation de ADO 2.0 ou version ultérieure, faisant référence à la propriété OriginalValue d'un objet ADO Field génère l'erreur suivante, si le LockType de l'objet ADO Recordset est en lecture seule :
    Erreur d'exécution '3251': l'opération requise par l'application n'est pas pris en charge par le fournisseur.
    Pour éviter cette erreur dans ADOVB, mettez en commentaire ou supprimez la ligne suivante de code, dans la procédure événementielle Click pour cmdAccess dans la fenêtre de code pour frmADOVB :
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Références

À propos de la série d'exemples ADO *

Il s'agit de l'un des échantillons identiques plusieurs implémentées à l'aide de ADO dans divers produits, comme indiqué ci-dessous. L'avantage est que ces articles ont une interface/fonctionnalités identiques, illustre les similitudes et les différences dans l'utilisation d'ADO avec différentes langues / mécanismes :
172403FILE : Adovb.exe montre comment utiliser ADO avec Visual Basic
220152Exemple : ADOVC1 simple ADO / application VC ++
185033FILE : Adoacc.exe illustre l'utilisation de ADO avec Access 97

Propriétés

Numéro d'article: 172403 - Dernière mise à jour: mercredi 2 mars 2005 - Version: 3.4
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • 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 Édition professionnelle
  • Microsoft Visual Basic 6.0 Édition professionnelle
Mots-clés : 
kbmt kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc KB172403 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 172403
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

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