Connection ado simple sur access

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (dionysos6868)