| | |  | | | | | Les bases de données en Visual Basic
| | | | | | |
| | | | | | | | | 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
|
