Soyez le premier à donner votre avis sur cette source.
Vue 59 749 fois - Téléchargée 3 599 fois
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
Commentaires
bon ben un 10/10 pour la clarté !
$hîv@n
J'utilise une autre méthode, j'essaierai d'en faire un petit extrait.
Aller 9/10 pour pas mettre 10.
y me dit type défini par l'utilisateur non défini à propos de "Dim db As DAO.Database"
qqn peut-il m'aider ?
Tu vas dans le menu Projet / Références, et tu coches
Microsoft DAO 3.51 Object Library
(PS: tu peux avoir DAO 3.6, ou un autre suivant ton installation de VB6)
(PS/PS évite DAO 2.5/3.51 qui est une compatibilité pour ancien composant)
A+
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.