Forum
merhaba arkadaşlar
visual basic 2010 kullanmaktayım
listboxtaki tüm verileri sql aktaramıyorum. listbox yerine textboxı yazdığım da bir sorun oluşmuyor. sorunu nasıl aşabilirim acaba? kodlar aşağıdaki gibidir.
Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adaptor4)
Dim insert_komut As New SqlClient.SqlCommand
datakayit4 = kayit4.Tables("bakimkaydi").NewRow
Dim i As Integer
For i = 1 To ListBox5.Items.Count
datakayit4("m_fabricno") = ListBox5.Items.Item(i)
Next
kayit4.Tables("bakimkaydi").Rows.Add(datakayit4)
adaptor4.Update(kayit4, "bakimkaydi")
Sizin kodunuz sadece tek bir satıra kayıt yapacaktır.
Yapmanız gereken döngü içinde satır eklemeniz gerekiyor.Bunun yolu tabloya birden fazla satır ekleyebilirsiniz.
Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adaptor4)
Dim insert_komut As New SqlClient.SqlCommand
Dim i As Integer
For i = 1 To ListBox5.Items.Count
datakayit4 = kayit4.Tables("bakimkaydi").NewRow
datakayit4("m_fabricno") = ListBox5.Items.Item(i)
kayit4.Tables("bakimkaydi").Rows.Add(datakayit4)
adaptor4.Update(kayit4, "bakimkaydi")
Saygılar,
kodu aşağıdaki gibi yapınca sorunum çözüldü. yardımlarınız için teşekkürler
[:D]
Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adaptor4)
Dim insert_komut As New SqlClient.SqlCommand
Dim i As Integer
For i = 1 To ListBox5.Items.Count -1
datakayit4 = kayit4.Tables("bakimkaydi").NewRow
datakayit4("m_fabricno") = ListBox5.Items.Item(i)
kayit4.Tables("bakimkaydi").Rows.Add(datakayit4)
adaptor4.Update(kayit4, "bakimkaydi")
next