Méthode d'implémentation du code ADODB pour se connecter à la base de données Access à l'aide de VB6

L'exemple de cet article décrit comment utiliser ADODB.Connection pour se connecter à la base de données Access. La version du type de pilote est : Microsoft.Jet.OLEDB.4.0. Dans le fonctionnement de la base de données de VB, la connexion à la base de données est la première étape et la plus basique. L'exemple décrit dans cet article a une bonne valeur de référence pour les débutants pour apprendre à se connecter à la base de données Access dans VB.

Le code d'implémentation spécifique est le suivant :

 VERSION 5.00Début de la base de données d'opération VB.Form Caption = "Base de données d'opération VB" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = "Base de données d'opération" Attribut VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim Database As ObjectSet Database = New ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' Connectez-vous à databaseIf ((database.State) = (adStateOpen)) Puis MsgBox ("Connexion réussie !") Sinon MsgBox ("Échec de la connexion !") Fin Si base de données.CloseSet base de données = NothingEnd Sub

Cet exemple crée un nouvel objet ADODB.Connection nommé "base de données". Utilisez cet objet pour vous connecter à la base de données. Une fois la connexion réussie, une boîte de message apparaît pour vous informer du résultat de la connexion. Dans la plupart des cas, VB et les bases de données avant. Les connexions Access2003 ressemblent essentiellement à ceci. Veuillez placer la base de données de test dans le même répertoire que VB. Data.mdb peut être modifié en fonction du chemin réel de votre base de données.