Les bases de données en Visual Basic

1. Connexion a Access

1. 1. Pour créer une base

Le code suivant permet de créer une nouvelle base dans le repertoire courant. Elle sera appelée "mabase.mdb".

Set DBBase = Workspaces(0).CreateDatabase("mabase.mdb", dbLangGeneral)

"Workspaces" est une variable de VB qui peut être utilisée directement. DBBase est la variable qui est le lien avec la base de données et qui sera ensuite utilisée dans le programme.
Si vous souhaitez mettre une définition de la variable DBBase, elle peut être du style :
Global DBBase As Database

1. 2. Pour ouvrir une base existante

Le code suivant permet d'affecter à la variable DBBase la base contenue dans le fichier "mabase.mdb"

Set DBBase = Workspaces(0).OpenDatabase("mabase.mdb")

1. 3. Execution d'une requête sans résultat

SQL1 = "Create table Type (" _

      &  "CType Counter CONSTRAINT PrimaryKey PRIMARY Key, " _

      &  "NType Char " _ 

      )"

DBBase.Execute SQL1

1. 4. Execution d'une requete avec récupération du résultat

Requete = "Select * From type;"

SET TTmpTable = DBBase.OpenRecordset(Requete)

DO UNTIL TTmpTable.EOF

    Label1.caption = TTmpChanson!CType

    TTmpTable.movenext

LOOP

La déclaration de TTmpTable est du style : Dim TTmpTable As Recordset

Page modifiée le : 04/10/2024