none
Cara Menyimpan semua data di Listbox ke SQL Server di VB.Net

    Pertanyaan

  • Hello Master-master, ada pertanyaan mengenai listbox. saya udah mencoba beberapa coding untuk menyimpan data-data di listbox ke SQL Server coding dibawah ini hanya satu persatu. Apakah bisa kita blok beberapa nama di  listbox, dan langsung kita klik button akan terinput misalnya 2 atau 3 data ke database yang ada di listbox? misalnya bisa, bagaimana codingnya master?

    saya menggunakan VB.Net 2012 dan SQL Server 2012

     Sub simpan()
    
            Dim hadir As Integer = +1
            Dim dr As DataRow
            dr = ds.Tables("dbo.tes").Rows.Find(ListBox1.SelectedValue)
            If dr IsNot Nothing Then
                dr(0) = ListBox1.SelectedValue
                If RadioButton1.Checked Then
                    dr(1) = hadir
                End If
    
    
    
                sqlbuilder = New SqlCommandBuilder(sqladapter)
                sqladapter = sqlbuilder.DataAdapter
                sqladapter.Update(ds.Tables("dbo.tes"))
    
            Else
                dr = ds.Tables("dbo.tes").NewRow
                dr(0) = ListBox1.SelectedValue
                If RadioButton1.Checked Then
                    dr(1) = hadir
                End If
                ds.Tables("dbo.tes").Rows.Add(dr)
                sqlbuilder = New SqlCommandBuilder(sqladapter)
                sqladapter = sqlbuilder.DataAdapter
                sqladapter.Update(ds.Tables("dbo.tes"))
                MessageBox.Show("Data Tersimpan")
            End If
    
        End Sub
    
    
    
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
              Dim hasil As Integer = +1
            Dim cmd As New SqlCommand
    
            cmd.Connection = sqlcon
    
            For l_index As Integer = 0 To ListBox1.Items.Count - 1
                simpan()
              
            Next
    
        End Sub


    19 Februari 2017 15:51

Semua Balasan

  • Hi Fahmi,

    Pertama, pastikan property ListBox.MultiSelect sudah di set ke Simple atau Extended.
    Kemudian untuk mendapatkan data item yang diselect, bisa melakukan iterasi terhadap ListBox1.Items
    Untuk mengetahui apakah itemnya di select, tiap itemnya di cek property item.Selected nya.

    Semoga membantu.


    Best regards,
    Ferry Meidianto | My Blog

    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    20 Februari 2017 7:34