Gestion combobox

Question

Posez votre question Signaler Répondre au sujet

Gestion combobox

hosmano 1 Messages postés mercredi 25 novembre 2015Date d'inscription 18 août 2017 Dernière intervention - 18 août 2017 à 14:07 - Dernière réponse : hosmano

- 21 août 2017 à 00:29

VB.NET Posez votre question Signaler Répondre au sujet

bonjour à tous, je veux savoir un code qui permet d'ajouter ,supprimer,modifer et afficher les données d'un combobox (je travaille avec une base de données access),merci pour votre collaboration

Afficher la suite

6 réponses

Répondre au sujet

Signaler Commenter la réponse de Whismeril

Whismeril 11407 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 19 août 2017 à 23:26

0

Utile

Bonsoir

ça dépend de comment tu affiches les données de la base Access.

Signaler Commenter la réponse de hosmano

hosmano - 20 août 2017 à 03:37

0

Utile

j'utilise Access comme un SGBD

Signaler Commenter la réponse de Whismeril

Whismeril 11407 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 20 août 2017 à 10:06

0

Utile

Ça tu l'as déjà écrit.

Signaler Commenter la réponse de hosmano

hosmano - 20 août 2017 à 23:29

0

Utile

oui c'est deja ecrit j'ai pas fait attention, j'ai fais ce formulaire mais il ya des bugs que je n'arrive pas a trouver la solution tel que :
"object reference not set to an instance of an oject"

Signaler Commenter la réponse de Whismeril

Whismeril 11407 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 20 août 2017 à 23:59

0

Utile

Ma boule de cristal est en panne.
Donc si tu veux que l'on puisse t'aider, il faut poster ton code.
Et pour nous en faciliter la lecture utilise la coloration syntaxique, voir procédure ici.

Signaler Commenter la réponse de hosmano

hosmano - 21 août 2017 à 00:29

0

Utile


Imports System.Data.OleDb

Public Class Form1
    'global declaration

    Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\houssem\Desktop\notice\soccerDB.mdb;"
    Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection(conString)
    Dim adapter As OleDb.OleDbDataAdapter
    Dim cmd As OleDb.OleDbCommand
    Dim dt As DataTable = New DataTable()

    Private Function HasExist(ByVal SQL As String) As Boolean
        Try
            con.Open()
            cmd = New OleDb.OleDbCommand(SQL, con)
            Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
            con.Close()
            If (count >= 1) Then
                MsgBox("Value Has Exist")
                Return True
            Else
                Return False
            End If
            cmd.dispose()
            ' con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
            Return False
            ' Retreive()
        End Try
    End Function

    Private Sub LoadComboBox()
        ComboBox1.Items.clear()
        con.Open()
        Dim cm As New OleDbCommand("SELECT * FROM soccerTB", con)
        Dim dr As OleDbDataReader = cm.ExecuteReader
        While dr.Read
            ComboBox1.Items.Add(dr.GetString(1))
        End While
        dr.Close()
        con.Close()
    End Sub


    Private Sub populate(ByVal name As String)
        'sql stmt
        Dim sql As String = "INSERT INTO soccerTB(P_NAME) VALUES (@NAMES)"
        cmd = New OleDb.OleDbCommand(sql, con)
        'add parameters
        cmd.Parameters.AddWithValue("@NAMES", name)
        'open connection and insert
        Try
            If HasExist("SELECT COUNT(*) FROM soccerTB WHERE P_NAME='" & trim(nameTxt.Text) & "'") = True Then
                Exit Sub
            End If
            con.Open()
            'execute statement
            If cmd.ExecuteNonQuery() > 0 Then
                MsgBox("successfully entred data")
            End If
            'clear text
            nameTxt.Text = ""
            con.Close()
            'Retreive()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
    End Sub
    Private Sub addBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addBtn.Click
        'populate()
        populate(nameTxt.Text)
        LoadComboBox()
    End Sub
    'retreive from db.

    Private Overloads Sub Update(ByVal value As String, ByVal name As String)
        Dim sql As String = "UPDATE soccerTB SET P_NAME='" + value + "'WHERE P_NAME='" + name + "'"
        cmd = New OleDb.OleDbCommand
        'execute
        Try
            con.Open()
            adapter.UpdateCommand = con.CreateCommand()
            adapter.UpdateCommand.CommandText = sql
            If adapter.UpdateCommand.ExecuteNonQuery() > 0 Then
                MsgBox("successfuly updated")
            End If
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
            ' Retreive()
        End Try
    End Sub

    Private Sub updateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateBtn.Click
        Update(nameTxt.Text, ComboBox1.SelectedItem)
        LoadComboBox()
    End Sub


    Public Sub delete(ByVal name As String)
        Dim sql As String = "DELETE FROM soccerTB WHERE P_NAME='" + name + "'"
        cmd = New OleDb.OleDbCommand(sql, con)
        'execute
        Try
            con.Open()
            adapter.DeleteCommand = con.CreateCommand()
            adapter.DeleteCommand.CommandText = sql
            If MessageBox.Show("etes vous sur ?", "DELETE", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = DialogResult.OK Then
                If (adapter.DeleteCommand.ExecuteNonQuery > 0) Then
                    nameTxt.Text = ""
                    MsgBox("successfully Deleted")
                End If
            End If
            'close connection
            con.Close()
            ' Retreive()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
    End Sub
    Private Sub deleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleteBtn.Click
        delete(ComboBox1.SelectedItem)
        LoadComboBox()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadComboBox()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        nameTxt.Text = ComboBox1.SelectedItem
    End Sub

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

End Class

Gestion combobox

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !