Connection ado simple sur access

Soyez le premier à donner votre avis sur cette source.

Vue 10 941 fois - Téléchargée 1 988 fois

Description

Voila j'ai vu plusieur fois des demande de comment on ce connecte a une base de donnée.
Donc j'ai fait ce petit code simple et rapide.
Ce code s'adresse tout particuliairement au debutant dans le dommain.

Il marche tres bien je l'ai commenté et en plus j'ai joint un fichier pdf qui retrace toute la fabrication.

Voila en esperant que cela aidera les debutant.

Source / Exemple :


'***********************************************************'
'                       Réalisé par PC152@hotmail.com                                       '
'                    Site internet http://www.hackeinfo.net                              '
'***********************************************************'

'***********************************************************'
'***********************************************************'

'Déclaration des deux variables pour la connexion
Dim MaConnection As New ADODB.Connection
Dim MonRs As New ADODB.Recordset

Private Sub Form_Load()
    
    'Type de bases de donnée pour la connexion
    MaConnection.Provider = "Microsoft.jet.OLEDB.4.0"
    'Chemin de la base de donnée (APP.PATH permet de ce mettre dans le chemin
    'courant la ou ce trouve le projet)
    MaConnection.ConnectionString = App.Path & "\videotheque.mdb"
    'Ouverture de la connection
    MaConnection.Open
    'Ouverture de la requête sql dans le recordset
    MonRs.Open "Select * from Film", MaConnection, adOpenDynamic, adLockOptimistic
    
End Sub

Private Sub Form_Activate()
    'Chargement des textbox a l'activation de la Form
    Set Text1.DataSource = MonRs
    Text1.DataField = "Titre_Video"
    Set Text2.DataSource = MonRs
    Text2.DataField = "Commantaire_Video"
    'Mais le bouton de mise a jour non disponible il ne sera que lors d'un ajout
    cmd_MiseAjour.Enabled = False
End Sub

Private Sub cmd_Ajout_Click()
'Permet d'aller apres le dernier enregistrement qui correspond
'a la derniere ligne dans la base de donnée
MonRs.AddNew
'Met le bouton UpDate disponible pour l'ajout
cmd_MiseAjour.Enabled = True
End Sub

Private Sub cmd_MiseAjour_Click()
'Permet d'enregistrer dans la base de donnée l'ajout que l'on souhaite faire
    MonRs.Update
    cmd_MiseAjour.Enabled = False
End Sub

Private Sub cmd_Supprimer_Click()
'Permet de supprimer l'enregistrement en cour
    MonRs.Delete
    MonRs.MovePrevious
    'Si plus d'enregistrement aller au premier
    If MonRs.BOF Then
        MonRs.MoveFirst
    End If
End Sub

Private Sub cmd_Premier_Click()
'Permet de revenir au premier enregistrement dans la table
    MonRs.MoveFirst
End Sub

Private Sub cmd_Precedent_Click()
'Permet d'aller a l'enregistrement précédent dans la table
MonRs.MovePrevious
'Si plus d'enregistrement aller au premier
If MonRs.BOF Then
    MonRs.MoveFirst
End If
End Sub

Private Sub cmd_Suivant_Click()
'Permet d'aller a l'enregistrement suivant dans la table
MonRs.MoveNext
'Si plus d'enregistrement aller au dernier
If MonRs.EOF Then
    MonRs.MoveLast
End If
End Sub

Private Sub cmd_Dernier_Click()
'Permet d'aller au dernier enregistrement dans la table
MonRs.MoveLast
End Sub

Private Sub cmd_Quitter_Click()
'Ferme les connection en cour
    MonRs.Close
'Ferme le recordset en cour
    MaConnection.Close
'End Permet d'Arreter le programme
    End
End Sub

Conclusion :


je remerci toute la communoté de Code Source pour toute l'aide qu'elle apporte a tout le monde

Mise a jour pour les bouton ajout suppression

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
23 août 2005

slt,

Felicitation. Astucieux et simple. Ai complètement revu mma manière de faire qui était bien plus longue et complexe. Bravo si tu en as d'autres comme cela ne te gênes pas.
Messages postés
129
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
26 septembre 2008

Euh j'ai un probleme dans la ligne :
MonRs.Open "Select * from matable", MaConnection, adOpenDynamic, adLockOptimistic

Erreur 3001
Argument de types incorrecte, en dehors des limites autorisées ou en conflit les uns avec les autres

C koi le probleme ???
Messages postés
1
Date d'inscription
mardi 16 mars 2004
Statut
Membre
Dernière intervention
16 mars 2004

Ton code tombe à pic l'ami : 10/10 ! Simple, très bien commenté et efficace ! Juste ce qu'il me fallait !

Merci et bravo !!!
Messages postés
44
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
17 septembre 2005

Vraiment nickel et bien explicite
Merci
10/10 !!!
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
1
Merci pour ses encouragement ca me va droit au coeur
Afficher les 12 commentaires

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.