Comment accéder à des résultats de requête vba

Récupérer les résultats de la requête dans l`accès à l`aide de VBA.

Savoir lire les résultats d`une requête Microsoft Access peut vous aider à faire votre demande d`accès plus dynamique. L`accès fait partie de la suite Microsoft Office et il est utilisé pour créer des bases de données relationnelles. Visual Basic pour Applications (VBA) peut être utilisé dans Access pour créer des applications Windows et récupérer des données de base de données. Une requête est construit en utilisant les états (Structured Query Language SQL) pour demander des informations à partir d`une base de données.

Choses que vous devez

  • Microsoft Office Access 2007

  • Démarrez Microsoft Office Access 2007 et sélectionnez "Base de données vide," puis clique "Créer." Cliquez "Database Tools" et sélectionnez "Visual Basic." Clique le "Insérer" champ et sélectionnez "Module".

    Type "sous readQueryResults privées" et appuyez sur "Entrer" pour créer un nouveau sous-programme.

  • Tapez la commande suivante pour déclarer des variables que vous allez utiliser pour lire les résultats de la requête:

    Dim RecordSt Comme Recordset

    Dim dBase Comme base de données

    Dim stringSQL As String

    Dim RCNT As Integer

  • Tapez la commande suivante pour créer le "CityTbl" table:

    stringSQL = "CREATE TABLE CityTbl (Ville TEXT (25), TEXT État (25)) -"




    DoCmd.RunSQL (stringSQL)

  • Tapez la commande suivante pour ajouter deux nouveaux enregistrements à votre "CityTbl" table:

    stringSQL = "INSERT INTO CityTbl ([Ville], [État]) "

    stringSQL = stringSQL & "VALUES ( `Fort Worth`, `Texas`) -"

    DoCmd.SetWarnings Faux

    DoCmd.RunSQL (stringSQL)

    stringSQL = "INSERT INTO CityTbl ([Ville], [État]) "

    stringSQL = stringSQL & "VALUES ( `Dallas`, `Texas`) -"

    DoCmd.SetWarnings Faux

    DoCmd.RunSQL (stringSQL)

  • Tapez la commande suivante pour définir votre requête et ouvrez votre Recordset:

    stringSQL = "SELECT CityTbl. * FROM CityTbl-"

    Set RecordSt = dBase.OpenRecordset (stringSQL)

  • Tapez la commande suivante pour créer un "Pour la boucle" et afficher les résultats de la requête par le biais d`une boîte de message:

    RecordSt.MoveFirst

    Pour RCNT = 0 To RecordSt.RecordCount

    MsgBox (RecordSt.Fields ("Ville").Valeur & ", " & RecordSt.Fields ("Etat").Valeur)

    RecordSt.MoveNext

    RCNT Suivant

    presse "F5" exécuter le sous-programme.
Technologie / Programmation informatique / Visual basics programmation

AUTRES

» » » » Comment accéder à des résultats de requête vba