Ajouter plusieurs enregistrement à partir d'une listbox

Question

Bonjour, 
Je développe une application vb 2010/sql server 2008.
Pour ajouter des enregistrements j'utilise un code qui marche sans problème, mais en voulant ajouter plusieurs enregistrement à partir d'une listebox, ça se trouve que le code ne prend pas en charge la boucle.
Merci d'avance pour votre aide qui me sera d'une grande utilité 
Ci-dessous le code :

 connexion.ConnectionString = "Data Source=.\sqlexpress;Initial Catalog=adom;Integrated Security=True"
        connexion.Open()
        'Try

Dim strRequete As String = "SELECT * FROM clinique"
        Dim dtt As DataTable
        Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
        Dim oDataSet As New DataSet("clinique")
        oSqlDataAdapter.Fill(oDataSet, "clinique")
        dtt = oDataSet.Tables("clinique")

oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO clinique(nom_clinique,adresse_clinique) Values(@A,@B)", connexion)

oSqlDataAdapter.InsertCommand.Parameters.Add("@A", SqlDbType.NVarChar, 20, "nom_clinique")
        oSqlDataAdapter.InsertCommand.Parameters.Add("@B", SqlDbType.NVarChar, 250, "adresse_clinique")

Dim oDataRow As DataRow
        Dim byteArray As Byte() = {}

oDataRow = oDataSet.Tables("clinique").NewRow()

'la boucle qui devrait me permettre d'ajouter tous les enregistrements qui se trouvent dans la listebox
        Dim i As Integer
        For i = 1 To 3
            oDataRow("nom_clinique") = ListBox1.Items(i)
        Next i

oDataRow("adresse_clinique") = adressecliniqueTextBox.Text

oDataSet.Tables("clinique").Rows.Add(oDataRow)
        oSqlDataAdapter.Update(oDataSet, "clinique")
        oDataSet.Clear()
        oSqlDataAdapter.Fill(oDataSet, "clinique")
        dtt = oDataSet.Tables("clinique")
        MsgBox("enregistré avec succés", MsgBoxStyle.Information, "Status")
        connexion.Close()

nomcliniqueTextBox.Text = ""
        adressecliniqueTextBox.Text = ""
        nomcliniqueTextBox.Focus()
        ''Catch ex As Exception
        'MsgBox("Attention enregistrement non sauvegarder!", MsgBoxStyle.Information, "Erreur d'enregistrement")
        ' Exit Sub
        'End Try

Whismeril · Answer

Bonjour, je pense que la boucle doit inclure la méthode add et la pentode update.

ucfoutu · Answer

Bonjour, whismeril,
La pentode ? Tiens ...
On nage en électronique ? Et pourquoi pas une tetrode, alors ?
Amitiés.

cs_ShayW · Answer

Bonjour

Pas clair  pourquoi utiliser un la requete insert into si tu utilises 
un dataset ?
peut etre ici
http://stackoverflow.com/questions/5937681/exporting-listbox-items-into-a-dataset

Ajouter plusieurs enregistrement à partir d'une listbox

3 réponses

Votre réponse

Discussions similaires