Questions sur la sauvegarde du combobox

Question

Bonjour,
Je suis débutant et j'aimerais savoir comment pouvoir sauvegarder les combobox_items dans un seul champ d'une database access et aussi pouvoir modifier( c'est à dire pouvoir ajouter d'autres items plus tard)
Je m'éxplique:
Mon application consiste à faire remplir une combobox par des chiffres in runtime puis  stocker ces valeurs. pour celà , je me sert de ce code qui n'a pas marché.
  Dim ConStr As String = _               "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _               Application.StartupPath & "\data.mdb"        Dim Conn As New OleDbConnection(ConStr)        Dim cmd As New OleDb.OleDbCommand            For i = 0 To ComboBox1.Items.Count  con.Open()                 Dim sqls As String = "INSERT INTO Table1(nom,prenom,age, versement)" & _            "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Items.ToString(i) & "') "                cmd = New OleDbCommand(sqls, con) cmd.ExecuteNonQuery()            Next        con.Close()
 Dim ConStr As String = _
               "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
               Application.StartupPath & "\data.mdb"

        Dim Conn As New OleDbConnection(ConStr)
        Dim cmd As New OleDb.OleDbCommand
            For i = 0 To ComboBox1.Items.Count
  con.Open()
                 Dim sqls As String = "INSERT INTO Table1(nom,prenom,age, versement)" & _
            "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Items.ToString(i) & "') "
                cmd = New OleDbCommand(sqls, con)
 cmd.ExecuteNonQuery()
            Next
        con.Close()

Voici mon souci pour l'instant. Cependant j'ai d'autres soucis que j'aimerai les soulever plutard.
merci

cs_ShayW · Answer

Bonjour
d'abord utilise des requetes parametrées 
est ce que tous les champs de table1 sont des texte ?
le champ age est text ? pas numérique ?
essaie

        Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _Application.StartupPath & "\data.mdb"        Dim Conn As New OleDbConnection(ConStr)        Dim cmd As New OleDb.OleDbCommand        Conn.Open()        cmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"        For i = 0 To ComboBox1.Items.Count            cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)            cmd.ExecuteNonQuery()        Next        Conn.Close()

alladin90 · Answer

Merci de votre réponse
J'ai éssayé le code mais il me renvoi cette érreur:
ExecuteNonQuery : la propriété Connection n'a pas été initialisée.
Je dois noter que je n'ai rien changé dans le code.
Je ne sais pas si je dois remplacé les (????) par des valeurs.
Pour les champs, ils sont de type text
Merci

cs_ShayW · Answer

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _Application.StartupPath & "\data.mdb" Dim Conn As New OleDbConnection(ConStr)        Dim cmd As New OleDb.OleDbCommand        Conn.Open()        cmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"        For i = 0 To ComboBox1.Items.Count            cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Text            cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)            cmd.Connection = Conn            cmd.ExecuteNonQuery()        Next        Conn.Close()

expliquation
? ce sont les parametres ,aussi l'ordre est important selon ta requete 
 cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text  
la on definit le type du parametre est lui assigne sa valeur

cs_ShayW · Answer

dsNewRow.Item("versement") = dsNewRow.Item("versement") & "|" & CStr(ComboBox1.Items(i))

d'où surgit  le dsNewRow et quelle rapport avec ExecuteNonQuery : la propriété Connection n'a pas été initialisée ?

cela devrait aller 

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _Application.StartupPath & "\data.mdb"Dim Conn As New OleDbConnection(ConStr)Dim cmd As New OleDb.OleDbCommandtry  Conn.Open()cmd.Connection = Conncmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"For i = 0 To ComboBox1.Items.Countcmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Textcmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Textcmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Textcmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)cmd.ExecuteNonQuery()NextConn.Close()Catch ex As Exception          MessageBox.Show(ex.Message)End Try

Mon deuxieme souci est que j'aimerai affiché les combo_items d'une maniere 
c'est une autre question donc il vaut mieux poster un nouveau post

cs_ShayW · Answer

erreur de ma part 

au lieu de 
For i = 0 To ComboBox1.Items.Count 
il faut
For i = 0 To ComboBox1.Items.Count -1 

Autre chose les items de la combobox sont des chiffres, mais dans la colonne "versement", je trouve des lettres (s ou y).

et il faut que je devine le rapport entre s y et les chiffres ?

copperncius · Answer

la question n'est pas tres claire
mais tu peux sauvegarder plusiers elements dans un champ de ta table en les séparrant avec un ";", a la récuperant executer un split avec le delimiteur ";" qui te rends tout les variables dans un array

Questions sur la sauvegarde du combobox

6 réponses

Votre réponse

Discussions similaires