1 sayfadan 1. sayfa

Listview veri Alma Sorunu

İletiTarih: 28 Nis 2017 15:52
musa29
sorgu = "select [taşınır Kodu],[Malzeme tanımı],[Depo Turu],form[Veri 1$] where [Taşınır Kodu] is not null"

Yazıdğımda veriler geliyor. Fakat Diyorum ki Depo Türü içinde Ali Olanları Listele

Cevap: Listview veri Alma Sorunu

İletiTarih: 28 Nis 2017 16:04
Ali ÖZ
Kod: Tümünü seç
sorgu = "select [taşınır Kodu],[Malzeme tanımı],[Depo Turu] from[Veri 1$] where [Taşınır Kodu] is not null"
sorgu = sorgu & " and [Depo Turu] = 'Ali' "

Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 12:53
hakanp2
Merhaba,
Kodların tamamı yok ama benzer bir konuda bende takıldım. SQL
Listbox yerine Listview kullanmak istiyorum. Verileri eklerken yukarıdaki örneğe istianden;

Listbox'da :
"ListBox1.Column = con.Execute(Sorgu).getrows" kullanıp tüm depo türü 'ali' olanları görüntülerken

Listview'a geçince nasıl ekleyeceğimi beceremedim.

Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 13:59
Ali ÖZ
Bu şekilde uyguluyabilirsiniz.

Kod: Tümünü seç
        With ListView1
         .ListItems.Clear
         .ColumnHeaders.Clear
        For i = 0 To rs.fields.Count - 1
            .ColumnHeaders.Add , , rs.fields(i).Name
        Next i
        rs.Move 2
        On Local Error Resume Next
        Do While Not rs.EOF
            .ListItems.Add , , rs.fields(0).Value
                For a = 1 To rs.fields.Count - 1
                    .ListItems(.ListItems.Count).ListSubItems.Add , , rs.fields(a).Value
                Next a
        rs.movenext
        Loop
        End With

Cevap: Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 14:29
hakanp2
Ali ÖZ yazdı:Bu şekilde uyguluyabilirsiniz.

Kod: Tümünü seç
        With ListView1
         .ListItems.Clear
         .ColumnHeaders.Clear
        For i = 0 To rs.fields.Count - 1
            .ColumnHeaders.Add , , rs.fields(i).Name
        Next i
        rs.Move 2
        On Local Error Resume Next
        Do While Not rs.EOF
            .ListItems.Add , , rs.fields(0).Value
                For a = 1 To rs.fields.Count - 1
                    .ListItems(.ListItems.Count).ListSubItems.Add , , rs.fields(a).Value
                Next a
        rs.movenext
        Loop
        End With


Çok teşekkür ederim elinize sağlık.

Benim veritabanımda aynı zamanda binary olarak fotoğraflarda var.
Alan İsmi de "FOTO"

Ben listView'da listelenen kayıtlara ait satırın üzerine geldiğimde o kayda ait "FOTO" değerinin İmage1 nesnesinde görüntülenmesini nasıl sağlarım ?

Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 14:39
hakanp2
Seçme kısmını " Private Sub ListView1_DblClick() "
ile yapmayı düşünüyorum.

Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 15:24
hakanp2
Üst üste çok soru sormuş oldum ama kusura bakmayın lütfen

Kod: Tümünü seç
Private Sub ListView1_DblClick()
On Error Resume Next
  ListView1.HotTracking = True
           
        TextBox1.Text = ListView1.SelectedItem.ListSubItems(1).Text
End Sub

Yukarıdaki kod ile Textbox1'e atadığım değer listelenen ilk kolon olmasına rağmen, Textbox'a ikinci kolandaki değer geliyor :shock: :shock: :shock:

Cevap: Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 15:31
hakanp2
hakanp2 yazdı:Üst üste çok soru sormuş oldum ama kusura bakmayın lütfen

Kod: Tümünü seç
Private Sub ListView1_DblClick()
On Error Resume Next
  ListView1.HotTracking = True
           
        TextBox1.Text = ListView1.SelectedItem.ListSubItems(1).Text
End Sub

Yukarıdaki kod ile Textbox1'e atadığım değer listelenen ilk kolon olmasına rağmen, Textbox'a ikinci kolandaki değer geliyor :shock: :shock: :shock:


Listview1.listitems(listview1.selecteditem.index).text

Bu çözüldü :)

Fotoğraf getirmek için yardımınızı bekliyorum.

Cevap: Cevap: Cevap: Listview veri Alma Sorunu

İletiTarih: 22 Kas 2017 16:49
hakanp2
hakanp2 yazdı:
Ali ÖZ yazdı:Bu şekilde uyguluyabilirsiniz.

Kod: Tümünü seç
        With ListView1
         .ListItems.Clear
         .ColumnHeaders.Clear
        For i = 0 To rs.fields.Count - 1
            .ColumnHeaders.Add , , rs.fields(i).Name
        Next i
        rs.Move 2
        On Local Error Resume Next
        Do While Not rs.EOF
            .ListItems.Add , , rs.fields(0).Value
                For a = 1 To rs.fields.Count - 1
                    .ListItems(.ListItems.Count).ListSubItems.Add , , rs.fields(a).Value
                Next a
        rs.movenext
        Loop
        End With


Çok teşekkür ederim elinize sağlık.

Benim veritabanımda aynı zamanda binary olarak fotoğraflarda var.
Alan İsmi de "FOTO"

Ben listView'da listelenen kayıtlara ait satırın üzerine geldiğimde o kayda ait "FOTO" değerinin İmage1 nesnesinde görüntülenmesini nasıl sağlarım ?


Çözülmüştür, tekrar teşekkürler.