listbox un 2. ve 4. sutunlarındaki verileri toplama

[aydın3838]

listbox un 2. ve 4. sutunlarındaki verileri toplama

sorudada anlaşıldığı gibi listboxta ki sutunları herbir sutunu ayrı ayrı toplamını textboxta görmem gerkiyor

örnek dosya ekledim

verileri sayfadan almıyor accesden aldığından toplatamadım

yardımcı olacak arkadaşlara şimdiden teşekürler

saygılar

 

[Orion1]

Dosyanız ektedir.

Private Sub LİSTEYE_AL()
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
[B][COLOR="Red"]Set tpl = CreateObject("adodb.recordset")
Set tpl2 = CreateObject("adodb.recordset")[/COLOR][/B]

Call baglanti
    rs.Open "select * from [SAYILAR]", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 6
    .ColumnWidths = "0;40;40;40;40,40"
    .Column = rs.getrows

End With
'Set kayitsay = baglan.Execute("select count(Besin) from Kalori where Besin = '" & isim & "'")
[B][COLOR="Red"]tpl.Open "select sum(S2) from [SAYILAR];", baglan, 1, 3
TextBox1.Text = tpl(0).Value
tpl2.Open "select sum(S4) from [SAYILAR];", baglan, 1, 3
TextBox2.Text = tpl2(0).Value
tpl.Close: tpl2.Close: Set tpl = Nothing: Set tpl2 = Nothing[/COLOR][/B]
    rs.Close
Set rs = Nothing
End Sub

 

[aydın3838]

saaaaol......

 

[aydın3838]

sayın evren gizlen

sorumu yanıtladığınz için teşekkürler çok güzel çalışıyor fakat benim sorunum farklıymış anlatamadım

sorun listboxa alınan verilerde isim listesi var şimdi ekledim hangi ismi seçtiysem o isme ait sayıları toplatmam gerekiyor bunu nasıl yaparım

sizin kodlar access deki 1 alandaki tüm sayıları topluyor bu kodlarıda kullanıyorum sağolun

birde listboxta listeye alınan isme göre uyarlama yapılabilirmi

teşekkürler

saygılar

 

[aydın3838]

hocam örnek dosyayı accesde isim arama satırlarını falan eklerdim ama başka bilgisayardan yazdığımdan ekleme yapamadım yardımcı olursanız sevinirim

 

[Orion1]

Veri tabanınzda isim içeren bir alan yok ki.Nasıl olacak isme göre toplam alma.Olsaydı yapardım.Siz örnek dosyayı yolayın yapayım.

 

[aydın3838]

dosya ektedir

dosyayı ekledim

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
ListBox1.Clear
Set rs = CreateObject("adodb.recordset")
Set tpl = CreateObject("adodb.recordset")
Set tpl2 = CreateObject("adodb.recordset")
rs.Open "Select * from SAYILAR where İSİM ='" & ComboBox1.Value & "';", baglan, 1, 3
ListBox1.Column = rs.getrows
Set tpl = baglan.Execute("select sum(S2) from [SAYILAR] where İSİM ='" & ComboBox1.Value & "';")
TextBox1.Text = tpl(0).Value
Set tpl2 = baglan.Execute("select sum(S4) from [SAYILAR] where İSİM ='" & ComboBox1.Value & "';")
TextBox2.Text = tpl2(0).Value
Set tpl = Nothing: Set tpl2 = Nothing
rs.Close
Set rs = Nothing

End Sub

 

[aydın3838]

sayın evren bey tam istediğim gibi olmuş sağolun

bir sorum daha var bu yapılan sorgulama ne kadar güvenli yani

yaklaşık 30 40 bin kadar veri girişinde sorgulamada veya hesaplamada hatalar olabilirmi

isim benzerliği gibi isim yaklaşıklıkları gibi yanlış hesaplama yaparmı

görüşünüzü almak isterim

tekrar teşekkürler

saygılar

 

[Orion1]

sayın evren bey tam istediğim gibi olmuş sağolun

bir sorum daha var bu yapılan sorgulama ne kadar güvenli yani

yaklaşık 30 40 bin kadar veri girişinde sorgulamada veya hesaplamada hatalar olabilirmi

isim benzerliği gibi isim yaklaşıklıkları gibi yanlış hesaplama yaparmı

görüşünüzü almak isterim

tekrar teşekkürler

saygılar

Comboboxtaki ismi birebir arar.Ayniyse listeler ve toplamınız alır.Zaten toplanan veriler ayriyetten listboxtata şisteleniyor.
Siz neyi seçerseniz onu topla ve listeler.
Exceldeki sorgulamadan daha güvenlidir.Bu sorgulama sql sorgulamasıdır.VB6 dada fortrandada başka programlama dillerindede bu sorgulama yapılır.

 

[Orion1]

Yalnız büyük kayıtlar için veritabanı olarak mssql veya mysql kulanmanızı tavsiye ederim.
Mdb dosyası bu gibi durumlarda ne yapar pek tahmin edemem.

 

[aydın3838]

tesekkürler

 

[aydın3838]

sayın evren bey bir sorum daha var

soru şu isimme göre sorgulama yapıyorum müşterilerimin ismi textboxa yazıp accesde aratıp bulunanı listboxa kendi alıyor fakat bazen aynı isimde 2 tane olması gerekiyor

şöyle yalçın aydın ismi ne daha önce satış yapılmış arada belli bir zaman sonra 2 kez satış yapılması gerekiyor
bende yalçı aydın 2 diye yeniden kayıt yapıyorum fakat arama yaptığımda yalçın aydın 2 yi seçip textlere yalçın aydın 2 yi alıyor ben yalçın aydın nı almasını istiyorum listboztan ben seçmeyeceğim aradığımda kendi seçmeli bunbu nasıl bir sorgulamayla hallederim

ben isime göre arama yapıyorum kimlik e görede denedim olmadı

bir fikrinizi almam gerek teşekkürler

saygılar



On Error GoTo hata

ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call baglanti
rs.Open "select * from [MUSTERİ_REHBERİ] WHERE [MUSTERİ_REHBERİ].İSİM LIKE '%" & TextBox1.Text & "%'", baglan, 1, 1
With ListBox1
.RowSource = Empty
.ColumnCount = 5
.ColumnWidths = "20;20;50,50,50"
.Column = rs.getrows
End With
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
TextBox2 = ListBox1.Column(0, i)
TextBox3 = ListBox1.Column(1, i)
TextBox4 = ListBox1.Column(2, i)
TextBox5 = ListBox1.Column(3, i)
TextBox6 = ListBox1.Column(4, i)
TextBox7 = ListBox1.Column(5, i)
TextBox8 = ListBox1.Column(6, i)
TextBox9 = ListBox1.Column(7, i)

End If
Next i
END İF
rs.Close
Set rs = Nothing


hata:
If Err = 3021 Then
Exit Sub
End If

 

[Orion1]

Ben tam anlamadım.
Sorguyu yapmışsınız işte.