GESTION DE BASE DE DONNÉE ACCESS COMPLÈTE AVEC ORIENTÉ OBJET

Commentaire de Gwendal3 le 09/02/2008 11:21:36

Salut,

Source bien (très bien) documentée. Beaucoup d'exemples à reprendre.
Dans l'ajout avec Datagridview, tu aurais pu vérifier que les valeurs saisies existent déjà dans la base (un exemple de plus :-) )

@+

Commentaire de loiclb le 18/03/2008 13:13:02

Salut,

Merci beaucoup pour ta source, cela fait quelques jours que je me suis remis à la programmation, j'apprend vb.net (je connaissais que vb6) et je peux te dire que ta source est parfaite pour apprendre la gestion de base de donnée.

Merci encore.

Bonne continuation.

Commentaire de TokRa14 le 18/06/2008 01:57:04

Bonjour,
Merci pour ce code super !
Je débute tout juste sur vb.net (visual studio 2008), et je dois dire que j'ai enormement de mal à travailler avec une base de donnée ! Bref ça c'est ma vie, mais ce code m'aide beaucoup.
Cependant, juste une petite remarque de débutant, lorsque tu fais une vérification pour l'ajout sur la datagridview, il vaudrait mieux vérifier en mettant la saisie et le résultat en minuscule non ? car si je met des majuscule sur différentes lettre, ça passe.
Pour mon projet, perso, j'ai mis un if LCase(arg_a_verif) = LCase(arg_dans_base).
Voila, c'était tout !
Tchao !

Commentaire de salut2lemonde le 07/08/2008 10:34:14

salut j' utiliser une fonction pour enregistrer dans une table; en effet je veut remplir une table par un code; mais il m'affiche tj un msg d'erreur.mais la connexion est bien etabli
  Inherits System.Windows.Forms.Form
    Dim OleDbCmd As OleDbCommand
    Dim MyDataSet As New DataSet()
    Dim OleDbdataAdapt As OleDbDataAdapter
    Dim MyDataTable As New DataTable
    Dim RowIndex As Integer
    Private Conn As New OleDbConnection()
    Private Connect As New OleDbConnection()
    Private MyDataRow As DataRow
    Private CmdBuild As New OleDbCommandBuilder()
    Private _nom As String
    Private _prenom As String

    'Private WithEvents RS As New ADODB.Recordset
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New System.Data.OleDb.OleDbConnection
        Try
            conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + Environment.CurrentDirectory & "\sal.mdb;"


            MessageBox.Show("connexion etablie")

        Catch ex As Exception
            MessageBox.Show("connexion echouée")
        End Try
        'On éfface toutes les données précédement enregistré dans le dataset

        Me.MyDataSet.Clear()
        Try
            'On lie la connection en fonction de la requete

            OleDbdataAdapt = New OleDbDataAdapter(OleDbCmd)
            OleDbCmd.Connection() = conn
        Catch ex As Exception
            MessageBox.Show("Erreur", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        'On envoie les données de la table dans le dataset
        OleDbdataAdapt.Fill(MyDataSet, "Table1")
        'Le dataset est retransmi dans le datatable
        MyDataTable = MyDataSet.Tables("Table1")
        'on ferme la connection
        conn.Close()
        'On créé une nouvelle ligne
        Me.MyDataRow=Me.MyDataTable.NewRow
        'On incrémente la clé de la table
        Me.MyDataRow("nom") = Me.MyDataSet.Tables.Item(0).Rows.Count + 1
        'On entre les informations contenues dans les variables dans le datarow
        Me.MyDataRow("prenom") = "salma"
        'On revoie la ligne dans le datatable
        Me.MyDataTable.Rows.Add(Me.MyDataRow)
        'On reouvre la connection
        Me.Conn.Open()
        'on défini le constructeur de commande et on l'adapte
        Me.CmdBuild = New OleDbCommandBuilder(OleDbdataAdapt)
        'On met à jour la commande
        OleDbdataAdapt.UpdateCommand = Me.CmdBuild.GetUpdateCommand()
        'On envoi les données dans la base et on met à jour le datagridview
        OleDbdataAdapt.Update(MyDataSet, "Table1")
        'On ferme la connection
        Me.Conn.Close()
ma table comporte deux champs nom,prenom elle est vide pou le moment dans la form j'ai pas de dataset ou dataadapt sauf dans le.j'ai vraiment besoin d'aide.merci

Commentaire de ThoT49 le 07/08/2008 12:14:42

Merci gwendal :)  Cela me motive encore plus pour refaire ma source de zero, cela fait longtemps et je pense qu'il y a beaucoup de choses à revoir même si actuellement il y a beaucoup de choses qui permet d'apprendre à gérer une base de donnée access.

Commentaire de ThoT49 le 07/08/2008 15:25:34

Je comptais vous le montrer en mettant à jour ma source mais je peux te le dire maintenant...

Donc pour le chemin de la connexion c'est :

"Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C:\db.accdb"