Bonjour, voici ce que j'ai testé mais ca ne marche toujours pas :

Dim bds As Database, qdf As QueryDef
Dim re As Recordset

'on ouvre la base de données
Set bds = OpenDatabase("F:\micka\cours\Appli\dossier programmation\Appli\appli.mdb")
Set re = bds.OpenRecordset("Select * From [article]")
If re.RecordCount <> 0 Then ' Enregistrement trouvé avec le Bon Mot de Passe et le Bon Login'Accés
MsgBox ("parfait")
Else
MsgBox ("erreur")
End If

Lorsque je veux executer, ca me dit que j'ai une erreur au niveau de :
Set re = bds.OpenRecordset("Select * From [article]")

Je comprends pas, c'est exactement ce que j'ai trouvé sur d'autres sites...

Est-ce que quelqu'un voit d'ou peut venir l'erreur??

Bon et bien ca y est ca marche

En fait ca vient des références, il faut rajouter la référence Microsoft DAO 3.6 Object Library
En gros à la fin, on doit avoir les références suivantes :
- Microsoft DAO 3.6 Object Library
- OLE Automation
- Visual Basic Objects and procedure
- Visual Basic runtime Objects and procedure
- Visual Basic For Application

Pour info, j'ai Access 2000 alors peut etre qu'avec des versions antérieures ca marchera pas, qu'il faudra référencer une version antérieure de Microsoft DAO 3.6 Object Library

Sinon le code que j'ai mis plus haut c'est exactement celui la ;)

Petit détail :
tu peux aussi écrire ta requète directement dans ton code vb
dans cet exemple je veux que les classes d'un collège apparaissent dans une listbox et faire mon choix en cliquant sur une des classes

Private Sub list1_Change()
Set rs1 = db.OpenRecordset(requete1)
'initialiser requete1
requete1 = ""
'emission de  la requete1
'selectionner l'enregistrement en cours  de la table classe qui s'affichera dans la list1
'requete1 = "select lib_classe, code_classe from CLASSECODE order by code_classe = '" + List1.Text + "'"
requete1 = "select lib_classe from CLASSECODE  = '" + List1.Text + "'"
'aller a l'enregistrement suivant
rs1.MoveFirst


Exit Sub

Il a plusieurs méthodes de connection(ADO, DAO, RDO)
avec DAO tu ajoute d'abord la bibliothèque en cochant:
projet----references--Microsoft data active object
Ensuite tu place les différents controles sur lza feuille form et tu pars sous le code
a l'évènement form_load :
dim db as databse
dim rs as recordset
set db=opendatabase("chemin de la base de donnée)
set rs=db.openrecordset("nom de la table)
pour enregistrer
sl="insert into nom_table values(' " & nom_controle.text & " ')"
db.execute(sl)
pour de plus amples informations écris moi à cette adresse
lsetenet@yahoo.fr

Pour répondre à ton message je: il faut ajouter un Data Environnement dans ton projet puis il y’aura une connexion qui te permettra de te connecter à la base de données Access de même cette connexion te permettra aussi de spécifier les données que tu veut afficher sur le DataGrid.

Salut
je vais essayer de vous repondre a cette question; mais avant je vous pose qlq question concernant votre besoin:
cette conexion est ce que c'est pour lire les données de la base de donnée et aussi entrer les données a la base de données. c'est le cas alors suivere les etapes suivantes.
ajouter a la feuille des zonne de text qui corespond aux nombre de chaps de la table

ajouter le controle data a la feuille
modifier les deux propriétésdatabasename:selectionner la base de donnée et recordsource=nom de la table
pour ajouter les données ajouter une commandet ecrire le code suivant;
data1.recordset.addnew
data1.recordset(0)=text1.text
..
...
...
data.recordset.update
bon c'est ça votre probleme je peux vous donner plus d'information sur ce type de connexion et aussi sur l'utilisation de datagrid.

Bjr,je voulai savoir c'est quoi vb et ça sert à quoi.
Merci

Bon c'est facile
tout d'ab:
vous ajoutez au code ses lignes:
Private Sub Form_Load()
chaine = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\....\nom de votre base.mdb;Persist Security Info=False"
Set dtBase = New ADODB.Connection
Set rst = New ADODB.Recordset
dtBase.Open chaine
Me.Refresh
End Sub
ensuite vous faites les declarations suivantes:
Dim dtBase As ADODB.Connection
Dim rst As ADODB.Recordset
Dim chaine As String
puis vous faite les affectations que vous avez fait comme suit:
dtBase.Execute " insert into nom_tableau (les variables déclarés dans la base) Values ( '" & var1 & "','" & var2 & "',..)
est comme sa vous avez enserre des variables dans votre base access.
pour récuperer des données de votre base vous pouver la parcourir par le curseur rstcomme suit:
rst!var1 (var1 est le champ associer dans votre tableau)

Bjr tt le monde;g realisé une application sous vb 3 avec une base de données sous access;g installé mn application sur 3 poste;le probleme c que je vx que les modifications apportées sur la base sur n'importe quel poste seront affchées ds la base et je sé po comment faire.svp aider moi;
merci d'avance

Bonjour,

Je dois réaliser une application Visual Basic qui utilise une base de donnée Access. J'ai cherché sur internet comment se connecter à Access sous Visual Basic et comment récupérer le résultat de requêtes mais je n'ai réussi à rien faire, même pas à me connecter à Access.

Est-ce que certains ont déjà fait cela? Si oui est-ce que vous auriez des liens ou alors est-ce que vous pourriez me montrer comment on se connecte et on effectue une requete en récupérant les résultat??

Merci d'avance ;)69 message(s) posté(s) depuis le vendredi 2 juillet 2004