listbox

Question

bonsoir a vous


j'ai un petit probleme avec une listbox


je souhaite charger tout le contenu de ma listbox dans ma bdd mais je n'arrive pas c'est toujours ma ligne qui est selectionné qui est charger et pas le reste 


 


je met mon code pour info.








'charger la BD Planning_Teddy

strConn = 




"Provider=Microsoft.Jet.OLEDB.4.0;"
 & 

"Data Source= C:\Documents and Settings\rsterckx\raf.mdb;"






'Initialisation de la chaŒne contenant l'instruction SQL

strSql = 




"SELECT achat.* FROM achat"






'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, 




"achat"
)


'Mettre dans un Objet DataTable une table du DataSet

ObjetDataTable = ObjetDataSet.Tables(




"achat"
)


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






'






'






'Ecrir une nouvelle ligne dans BD Planning_Teddy

ObjetDataRow = ObjetDataSet.Tables(




"achat"
).NewRow()ObjetDataRow(


"numeros"
) = ListBox1.TextObjetDataRow(


"produit"
) = TextBox2.Text 

ObjetDataSet.Tables(


"achat"
).Rows.Add(ObjetDataRow)


'Pour modifier les valeurs chang‚es dans le DataAdapter

ObjetCommandBuilder = 




New
 OleDbCommandBuilder(ObjetDataAdapter)


'Mise … jour

ObjetDataAdapter.Update(ObjetDataSet, 




"achat"
)


'On vide le DataSet et on le 'recharge' de nouveau.

ObjetDataSet.Clear()


ObjetDataAdapter.Fill(ObjetDataSet, 




"achat"
)ObjetDataTable = ObjetDataSet.Tables(


"achat"
)


End



Sub
merci

cs_fauve · Answer

Salut,

C'est normal la propriété ListBox1.Text retourne seulement l'item qui est sélectionné

Il faut que tu fasse une boucle qui parcoure tous les items de ta ListBox1 comme ceci :


For
 nb 
As Integer
 = 0 
To
 ListBox1.Items.Count - 1
     
'Affiche chaque item


     MsgBox(ListBox1.Items(nb))

Next




++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

Listbox

1 réponse

Votre réponse

Discussions similaires