Voici juste un simple exemple d'applet VB, mais il contient ces mots-clés : VB6.0, ADO, Access
Environnement : Visual Basic 6.0 Enterprise Edition (pas la version simplifiée, sinon il lui manquera les contrôles nécessaires)
Base de données : base de données Access, la base de données est xs.mbd, la table intégrée est xj
Résultat : VB utilise ADO pour se connecter à la base de données Access, interroge toutes les données de la table xj, puis affiche les résultats de la requête dans la fenêtre en boucle.
Code:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'Objet de connexion ADO et jeu d'enregistrements Dim strSQL As String 'Chaîne SQL db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Source de données =" & App.Path & "/xs.mdb" 'Connexion à la base de données db.Open 'Ouvrir la base de données strSQL = "select * from xj" 'Chaîne SQL RS.Open strSQL, db, 3, 1 'Interroger la table de données Do While Not RS.EOF 'Boucle pour afficher les résultats de la requête Imprimer RS Nom ; RS Classe ; Imprimer les résultats de sortie dans la fenêtre RS.MoveNext 'Déplacer l'enregistrement vers le bas LoopRS.Close 'Fermer le jeu d'enregistrements Set RS = NothingEnd Sub
Ce qui précède représente l’intégralité du contenu de cet article, j’espère que vous l’aimerez tous.