Forum

listboxtaki veriler...
 
Bildirimler
Hepsini Temizle

listboxtaki verileri sql aktarmak

3 Yazılar
2 Üyeler
0 Reactions
463 Görüntüleme
(@Anonim)
Gönderiler: 0
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

(@selahattinsadoglu)
Gönderiler: 826
Prominent Member
 

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

(@Anonim)
Gönderiler: 0
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

Paylaş: