Gestion d'une base de donnee

Télécharger le projet
Commenter

Description

Cette source vous permet de dialoguez avec une base de donner
1) code connexion
2) moise a jour des tables

Source / Exemple : 


Public Class Form1
    'declaration de la variable operation
    Public operation As Integer = 0
    '  Déclaration Objet Connexion
    Private ObjetConnection As OleDbConnection
    ' Déclaration Objet Commande 
    Private ObjetCommand As OleDbCommand
    '  Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New Data.DataSet() 'Attention au New
    'String contenant la 'Requête SQL' 
    Private strSql As String
    ' Déclaration Objet DataTable
    Private ObjetDataTable As DataTable
    ' Déclaration Objet DataRow (ligne)
    Private ObjetDataRow As DataRow
    'Numéro de la ligne en cours
    Private RowNumber As Integer    'Numéro de l'enregistrement courant
    'Paramêtres de connexion à la DB
    Private strConn As String
    'Pour recompiler les données modifiées avant de les remettre dans le 
    '"DataAdapter"
    Private ObjetCommandBuilder As OleDbCommandBuilder

    Private Sub btnVoirEnregist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoirEnregist.Click
        

    End Sub

    Private Sub btnChargerDataset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChargerDataset.Click
      
    End Sub

    Private Sub txtPrenom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rfrr.TextChanged

    End Sub

    Private Sub Btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmodif.Click
        operation = 2
        Btnenregistre.Visible = True
        Me.Btnannuler.Visible = True
        Btnmodif.Visible = False
        btnajout.Visible = False
        Btnsuprime.Visible = False

    End Sub

    Private Sub Btnquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnquitter.Click
        Me.Close()
    End Sub

    Private Sub Btnpremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpremier.Click
        RowNumber = 0
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub btnprecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprecedent.Click
        If RowNumber <= 0 Then Exit Sub
        RowNumber -= 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString

    End Sub

    Private Sub Btnsuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuivant.Click
        If RowNumber >= ObjetDataTable.Rows.Count - 1 Then Exit Sub
        RowNumber += 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub Btndernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndernier.Click
        RowNumber = ObjetDataTable.Rows.Count - 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub btnajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnajout.Click
        operation = 1
        Me.txtNom.Text = ""
        Me.rfrr.Text = ""
        Btnenregistre.Visible = True
        Me.Btnannuler.Visible = True
        btnajout.Visible = False
        Btnmodif.Visible = False
        Btnsuprime.Visible = False

    End Sub

    Private Sub Btnenregistre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenregistre.Click
        If (operation = 2) Then
            ObjetDataRow = ObjetDataSet.Tables("etudiant").Rows(RowNumber)
            ObjetDataRow("nom") = Me.txtNom.Text
            ObjetDataRow("prenom") = Me.rfrr.Text
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        ElseIf operation = 1 Then
            ObjetDataRow = ObjetDataSet.Tables("etudiant").NewRow()
            ObjetDataRow("nom") = Me.txtNom.Text
            ObjetDataRow("prenom") = Me.rfrr.Text
            ObjetDataSet.Tables("etudiant").Rows.Add(ObjetDataRow)
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        End If
        'mis a jours
        ObjetDataAdapter.Update(ObjetDataSet, "etudiant")
        'on vide la dataset et on le change de nouveau
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        Btnmodif.Visible = True
        btnajout.Visible = True
        Btnsuprime.Visible = True
        Btnenregistre.Visible = False
        Btnannuler.Visible = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= c:\base\test.mdb;"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM etudiant"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection()
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        If RowNumber < 0 Then Exit Sub
        'Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
        If RowNumber > ObjetDataTable.Rows.Count - 1 Then Exit Sub
        ' ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) donne le contenu d'un champ dans une ligne donnée
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("Nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("Prenom").ToString
        'Item peut avoir en paramètre le nom de la colonne ou sont index 
        Btnenregistre.Visible = False
        btnChargerDataset.Visible = False
        btnVoirEnregist.Visible = False
        Btnannuler.Visible = False

    End Sub

    Private Sub Btnsuprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuprime.Click
        ObjetDataSet.Tables("etudiant").Rows(RowNumber).Delete()
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        'mis a jours
        ObjetDataAdapter.Update(ObjetDataSet, "etudiant")
        'on vide la dataset et on le change de nouveau
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        Btnannuler.Visible = True
    End Sub

    Private Sub Btnannuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnannuler.Click

    End Sub

    Private Sub txtNom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNom.TextChanged

    End Sub
End Class

Public Class Form1
    'declaration de la variable operation
    Public operation As Integer = 0
    '  Déclaration Objet Connexion
    Private ObjetConnection As OleDbConnection
    ' Déclaration Objet Commande 
    Private ObjetCommand As OleDbCommand
    '  Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New Data.DataSet() 'Attention au New
    'String contenant la 'Requête SQL' 
    Private strSql As String
    ' Déclaration Objet DataTable
    Private ObjetDataTable As DataTable
    ' Déclaration Objet DataRow (ligne)
    Private ObjetDataRow As DataRow
    'Numéro de la ligne en cours
    Private RowNumber As Integer    'Numéro de l'enregistrement courant
    'Paramêtres de connexion à la DB
    Private strConn As String
    'Pour recompiler les données modifiées avant de les remettre dans le 
    '"DataAdapter"
    Private ObjetCommandBuilder As OleDbCommandBuilder

    Private Sub btnVoirEnregist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoirEnregist.Click
        

    End Sub

    Private Sub btnChargerDataset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChargerDataset.Click
      
    End Sub

    Private Sub txtPrenom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rfrr.TextChanged

    End Sub

    Private Sub Btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmodif.Click
        operation = 2
        Btnenregistre.Visible = True
        Me.Btnannuler.Visible = True
        Btnmodif.Visible = False
        btnajout.Visible = False
        Btnsuprime.Visible = False

    End Sub

    Private Sub Btnquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnquitter.Click
        Me.Close()
    End Sub

    Private Sub Btnpremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpremier.Click
        RowNumber = 0
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub btnprecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprecedent.Click
        If RowNumber <= 0 Then Exit Sub
        RowNumber -= 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString

    End Sub

    Private Sub Btnsuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuivant.Click
        If RowNumber >= ObjetDataTable.Rows.Count - 1 Then Exit Sub
        RowNumber += 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub Btndernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndernier.Click
        RowNumber = ObjetDataTable.Rows.Count - 1
        'code connextion
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("prenom").ToString
    End Sub

    Private Sub btnajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnajout.Click
        operation = 1
        Me.txtNom.Text = ""
        Me.rfrr.Text = ""
        Btnenregistre.Visible = True
        Me.Btnannuler.Visible = True
        btnajout.Visible = False
        Btnmodif.Visible = False
        Btnsuprime.Visible = False

    End Sub

    Private Sub Btnenregistre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenregistre.Click
        If (operation = 2) Then
            ObjetDataRow = ObjetDataSet.Tables("etudiant").Rows(RowNumber)
            ObjetDataRow("nom") = Me.txtNom.Text
            ObjetDataRow("prenom") = Me.rfrr.Text
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        ElseIf operation = 1 Then
            ObjetDataRow = ObjetDataSet.Tables("etudiant").NewRow()
            ObjetDataRow("nom") = Me.txtNom.Text
            ObjetDataRow("prenom") = Me.rfrr.Text
            ObjetDataSet.Tables("etudiant").Rows.Add(ObjetDataRow)
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        End If
        'mis a jours
        ObjetDataAdapter.Update(ObjetDataSet, "etudiant")
        'on vide la dataset et on le change de nouveau
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        Btnmodif.Visible = True
        btnajout.Visible = True
        Btnsuprime.Visible = True
        Btnenregistre.Visible = False
        Btnannuler.Visible = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= c:\base\test.mdb;"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM etudiant"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection()
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        If RowNumber < 0 Then Exit Sub
        'Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
        If RowNumber > ObjetDataTable.Rows.Count - 1 Then Exit Sub
        ' ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) donne le contenu d'un champ dans une ligne donnée
        Me.txtNom.Text = ObjetDataTable.Rows(RowNumber).Item("Nom").ToString
        Me.rfrr.Text = ObjetDataTable.Rows(RowNumber).Item("Prenom").ToString
        'Item peut avoir en paramètre le nom de la colonne ou sont index 
        Btnenregistre.Visible = False
        btnChargerDataset.Visible = False
        btnVoirEnregist.Visible = False
        Btnannuler.Visible = False

    End Sub

    Private Sub Btnsuprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuprime.Click
        ObjetDataSet.Tables("etudiant").Rows(RowNumber).Delete()
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        'mis a jours
        ObjetDataAdapter.Update(ObjetDataSet, "etudiant")
        'on vide la dataset et on le change de nouveau
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "etudiant")
        ObjetDataTable = ObjetDataSet.Tables("etudiant")
        Btnannuler.Visible = True
    End Sub

    Private Sub Btnannuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnannuler.Click

    End Sub

    Private Sub txtNom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNom.TextChanged

    End Sub
End Class
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.