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;" La déclaration de TTmpTable est du style : Dim TTmpTable As RecordsetSET TTmpTable = DBBase.OpenRecordset(Requete) DO UNTIL TTmpTable.EOF Label1.caption = TTmpChanson!CType TTmpTable.movenext LOOP Page modifiée le : 18/08/2003
Site modifié le : 14/09/2020
|
