Connexion access visual basic Résolu

Question

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

Afficher la suite

mich8569 · Accepted Answer

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

zenon · Answer

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

mich8569 · Answer

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é... :(

mich8569 · Answer

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

raro · Answer

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

lsetenet · Answer

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

DOU · Answer

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.

molh · Answer

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.

franck · Answer

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.

imen · Answer

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

arse · Answer

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

diouf-daouda · Answer

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

bucher55 · Answer

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:\....
om 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)

sosonapoli · Answer

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

lasaucisse · Answer

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

castrovel · Answer

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

siado · Answer

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

anis · Answer

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

MYRIAM · Answer

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

Utilisateur anonyme · Answer

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

bahmadi · Answer

https://www.youtube.com/watch?v=x090vGtL2Qs

Connexion access visual basic

21 réponses

Votre réponse

Discussions similaires