Connexion access visual basic [Résolu]

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 ;)

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)

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.

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??

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

c'est valable lorsque tu sais que tu n'utiliseras cette requète qu'une seule fois

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

moi j'execute ce que tu as dit seulement au niveau de datasource qd je clique il me dit pilote IAM introuvable et donc je n'accede pas à ma table mais à ma base si avc databasename en suivant mon chemin d'acces.

J'ai une application à faire avec visual basic et access, je veux connaître les étapes à suivre pour établir une connexion access_visual basic svp...

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

Je pense qu'il suffit d'intégrer un DataGrid au form en création et que un assistant s'ouvre alors pour permettre de définir l'origine des données.
(il y a longtemps que j'ai utilisé VB)

Sinon, il doit y avoir moyen d'indiquer le chemin d'accès quelque part dans la liste des propriétés...

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

je veux faire un projet de gestion d'ecole sur vb et access ;je sollicite donc des orientations de votre part;s'il faut être clair des idées(nbre de feuilles,composants et autres...)

ecoute essaye de m'envoyer ton num de gsm dans ma boite email et jte dirai coment il faut faire

comment je fais en detail svp)
pour se connecter a une base de données acess a partir d'une interface graphique devlopée sur vb6
je veux encore avoir le code source pour afficher des images gif,jpeg dans une base de données apartir d'un fichier al' exterieur de ma base
est ce que je dois ouvrir la conection vers la base achaque fois que je viens de consulter,modifier... ma base de données

svp moi aussi j'ai besoin d'aide sur la connexion à la base access vb 2008 merci de votre aide

et est-ce que tu connais les quelques lignes de code qui permettent de se connecter à Access et faire des requêtes stp?
Parce que moi j'ai cherché mais rien n'a marché... :(

salut tout le monde mon nom c daouda et j'habite au senegal mon adresse c diouf.daouda@yahoo.fr

Bonjour je suis débutant en visual basic et j'ai réalisé un formulaire en access.
Probléme, je ne sais pas le traduire.
J'ai une table en access commune.mdb

et 2 requetes:
COMMUNE_IU Requête RECHERCHE CODE:

SELECT COMMUNE_IU.LIB_COMMUN
FROM COMMUNE_IU
WHERE (((COMMUNE_IU.CODE_COM)=[forms]![Interfacegraphique]![codepostal])) OR (((COMMUNE_IU.LIB_COMMUN)=[forms]![Interfacegraphique]![COMMUNEl]));

COMMUNE_IU Requête RECHERCHE EST NORD:

SELECT COMMUNE_IU.[EST], COMMUNE_IU.NORD
FROM COMMUNE_IU
WHERE LIB_COMMUN=forms!Interfacegraphique!COMMUNE;

Est ce que quequ'un pourrait m aider svp.

Voila le code


Option Compare Database

Private Sub Commande12_Click()
On Error GoTo Err_Commande12_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête RECHERCHE CODE"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande12_Click:
Exit Sub

Err_Commande12_Click:
MsgBox Err.Description
Resume Exit_Commande12_Click

End Sub
Private Sub Commande13_Click()
On Error GoTo Err_Commande13_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête RECHERCHE CODE"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande13_Click:
Exit Sub

Err_Commande13_Click:
MsgBox Err.Description
Resume Exit_Commande13_Click

End Sub
Private Sub Commande16_Click()
On Error GoTo Err_Commande16_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête RECHERCHE CODE"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande16_Click:
Exit Sub

Err_Commande16_Click:
MsgBox Err.Description
Resume Exit_Commande16_Click

End Sub
Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête RECHERCHE CODE"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande19_Click:
Exit Sub

Err_Commande19_Click:
MsgBox Err.Description
Resume Exit_Commande19_Click

End Sub
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête PAR CODE POSTAL"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande21_Click:
Exit Sub

Err_Commande21_Click:
MsgBox Err.Description
Resume Exit_Commande21_Click

End Sub
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête PAR CODE POSTAL"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande22_Click:
Exit Sub

Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click

End Sub
Private Sub Commande28_Click()
On Error GoTo Err_Commande28_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête PAR CODE POSTAL"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande28_Click:
Exit Sub

Err_Commande28_Click:
MsgBox Err.Description
Resume Exit_Commande28_Click

End Sub
Private Sub Commande31_Click()
On Error GoTo Err_Commande31_Click

Dim stDocName As String

stDocName = "COMMUNE_IU Requête RECHERCHE EST NORD"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande31_Click:
Exit Sub

Err_Commande31_Click:
MsgBox Err.Description
Resume Exit_Commande31_Click

End Sub