Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
3
Yazılar
2
Üyeler
0
Reactions
757
Görüntüleme
Konu başlatıcı
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")
Gönderildi : 21/01/2011 18:07
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,
Gönderildi : 21/01/2011 20:31
Konu başlatıcı
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
Gönderildi : 24/01/2011 16:49