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