Comment créer une base access, créer table, lire colonne, en quelques lignes vb5-vb6
Soyez le premier à donner votre avis sur cette source.
Vue 61 032 fois - Téléchargée 3 727 fois
Description
C'est un code très simple qui dépannera des nouveaux j'en suis sur.
Il réponds à ces questions (en DAO):
- comment creer une base Access sous VB
- comment creer une table Access sous VB
- comment lire les données d'une table / requêtes Access sous VB
1- crée un formulaire très simple :
--> attention, tu dois respecter les noms des 4 obets suivant,
--> c'est une bonne habitude de bien nommer tes contrôles !
boutons: cmdCreer, cmdTester, et cmdQuitter
combo: cboAccess
2- dans le menu projet, menu références, coche :
Microsoft DAO 3.5 Object Library
(te permet d'utiliser le dao pour accéder à ta base access 97)
3- copie le code dans le formulaire :
Modification du 25-08-2002 : le fichier zip est corrigé, un nouveau bouton permet la création d'une table et de champs par l'utilisation de tabledefs et fields.
voilà
Bigane@tiscalinet.ch
Il réponds à ces questions (en DAO):
- comment creer une base Access sous VB
- comment creer une table Access sous VB
- comment lire les données d'une table / requêtes Access sous VB
1- crée un formulaire très simple :
--> attention, tu dois respecter les noms des 4 obets suivant,
--> c'est une bonne habitude de bien nommer tes contrôles !
boutons: cmdCreer, cmdTester, et cmdQuitter
combo: cboAccess
2- dans le menu projet, menu références, coche :
Microsoft DAO 3.5 Object Library
(te permet d'utiliser le dao pour accéder à ta base access 97)
3- copie le code dans le formulaire :
Source / Exemple :
Option Explicit
Const MA_BASE_ACCESS As String = "z.mdb"
Private Sub cmdCreer_Click()
Dim db As DAO.Database
'Création d'une base vide (plus simple tu meurs !)
Set db = DAO.Workspaces(0).CreateDatabase(MA_BASE_ACCESS, dbLangGeneral)
'Création d'une table avec une requête (simple non ?)
db.Execute "CREATE TABLE [TableY] ( [ColonneX] Text(50) );"
'On crée une ligne dans cette table
db.Execute "INSERT INTO TableY ( ColonneX ) values ('Ceci est un test');"
'On crée une seconde ligne dans cette table
db.Execute "INSERT INTO TableY ( ColonneX ) values ('Une autre ligne');"
'Referme la base proprement
db.Close
'Libère l'objet (très important et souvent oublié)
Set db = Nothing
End Sub
Private Sub cmdTester_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Me.cboAccess.Clear
'Pas de mot de passe,
'ouverture la plus simple en mode partagé
Set db = DAO.Workspaces(0).OpenDatabase(MA_BASE_ACCESS, False, False)
'Ouverture d'une requête sur la table,
'dbForwardOnly = lecture en avant = plus rapide
Set rs = db.OpenRecordset("select * from [TableY];", , dbForwardOnly)
'Tant qu'il en reste
Do While Not rs.EOF
'Ajout dans la combo
'du premier champ de la requête
Me.cboAccess.AddItem rs.Fields(0).Value
'passe au suivant
rs.MoveNext
Loop
'On affiche le premier élément
'de la liste comme sélectionné
If Me.cboAccess.ListCount > 0 Then
Me.cboAccess.ListIndex = 0
End If
'Referme la requête proprement
rs.Close
'Referme la base proprement
db.Close
'Libère l'objet (très important et souvent oublié)
Set rs = Nothing
'Libère l'objet (très important et souvent oublié)
Set db = Nothing
End Sub
Private Sub cmdQuitter_Click()
'On referme tout et fini
Unload Me
End
End Sub
Conclusion :
Modification du 25-08-2002 : le fichier zip est corrigé, un nouveau bouton permet la création d'une table et de champs par l'utilisation de tabledefs et fields.
voilà
Bigane@tiscalinet.ch
Codes Sources
A voir également
- Vb access
- Visual basic table - Meilleures réponses
- Visual basic access - Meilleures réponses
- Code connexion vb.net access pdf - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Access, images (lire les bmp-->nwind.mdb) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Access, liste déroulante et recordset - CodeS SourceS - Guide
- Visual Basic / VB.NET : Access - mouchard & traceur - CodeS SourceS - Guide
- Visual Basic / VB.NET : Access 2003 v1.1 - CodeS SourceS - Guide
Microsoft a évolué depuis et avec le temps j'ai abandonné tous leurs produits au profit des produits libres (entendre libre d'accès aux sources et gratuits).
Donc le premier test pour savoir si ce code est toujours d'actualité, c'est DAO. Si cet objet est reconnu (cf : 2- dans le menu projet, menu références, coche : Microsoft DAO 3.5 Object Library ou DAO avec une version supérieure) En saisissant le mot DAO puis le point dans la fenêtre du code, alors la complétion automatique devrait te proposer Workspace(0) ou quelque chose d'approchant. Au pire, il pourrait te proposer le mot OpenDatabase :
DAO.OpenDatabase( ...
Si tu n'arrives pas à avoir cette méthode : càd pas de complétion pour le mot DAO c'est que :
1) soit tu n'as pas mis Microsoft DAO x.y Object Library
2) soit tu n'utilises pas VB ou VBA
Bon courage,
Bigane
pourquoi il n'en veut pas ??
a ton service et bon code.
a+
Bigane
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.