Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/03/2014 19:28
Konu Sahibi
chevy
Yorumlar
19
Okunma
7538
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

chevy

Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
Çözüldü 
Ekte gönderdiğim uygulamada Combox1 veritabanından AdiSoyadi bilgilerini getirip süzerken eklediğim Combobox2 ile de BabaAdi bilgilerini getirip süzmek istiyorum.

Yani Filtreleme işlemi Combobox değerlerine göre birlikte çalışmasını istiyorum.

Combobox1 ve Combobox2 değerlerine göre datagrid verileri göstersin istiyorum.
Combobox1 = Ali
Combobox2 = Veli

DataGrid sonucu = Adi Soyadı Ali BabaAdi Verli olanların tamamı.

resim


Ek Dosyalar
.rar   WindowsApplication2.rar (Dosya Boyutu: 140,22 KB / İndirme Sayısı: 74)
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.092
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Bugün,08:50
Bu sitede uzman seviyesinde kimse VS2010 üzeri sürümleri kullanmıyor. Ne olur artık bunu dikkate alın.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
480
İzmir
Ofis 2003
07/08/2015,11:50
Sn:chevy
Aşağıda kod ile istemiş olduğunuz sonucu alırsınız verdiğim örnek VB6 üzerine ama mantık aynı yani Sql kodlar ile işlem yapacaksınız.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function SQL()
    Adodc1.RecordSource = "Select * From TBL_ETIKET where  [ADI] like '" _
    & CmbAdi.Text _
    & "%' and [BABAADI] like '" & CmbBabaAdi.Text & "%'"
    Adodc1.Refresh
End Function

Private Sub CmbAdi_Click()
Call SQL
End Sub

Private Sub CmbBabaAdi_Click()
Call SQL
End Sub


Cevapla

chevy

Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
Daha açıklayıcı olması açısından;
resim
AdiSoyadi (Combobox1)
BabaAdi (Combobox2)

Combobox1 den Ali seçildiğinde 2 adet kayıt Datagridde gösteriliyor. Combobox2 den de Veli seçildiğinde tek kayıt göstersin istiyorum. Yani Datagridde sonuç; AdiSoyadı=Ali BabaAdi=Veli olsun..

Codelar bu şekli ile düzgün çalışıyor ancak Combobox2 ilave edilince nasıl bir değişiklik yada ilave gerekiyor.

'DataGridView nesnesine verileri aktar
Private Sub Listele(ByVal Sql As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'")
Dim veriler As New DataTable("Kayitlar")
Dim adapter As New OleDbDataAdapter(SQL, baglanti)
adapter.Fill(veriler)
DataGridView1.DataSource = veriler
End Sub

Private Sub doldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'")
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("SELECT AdiSoyadi FROM Kayitlar GROUP BY AdiSoyadi", baglanti)
Dim oku As OleDb.OleDbDataReader
oku = komut.ExecuteReader()
ComboBox1.Items.Clear()
While oku.Read()
ComboBox1.Items.Add(oku("AdiSoyadi"))
End While
baglanti.Close()

End Sub

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
If Me.ComboBox1.Text > "" Then

Dim Sql As New String("SELECT * FROM Kayitlar WHERE Kayitlar.AdiSoyadi='{0}'")
Sql = String.Format(sql, ComboBox1.SelectedItem)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi")

End If
Listele(sql)
baglanti.Close()
Else
Dim Sql As New String("SELECT * FROM Kayitlar '")
Sql = String.Format(sql, ComboBox1.SelectedItem)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='kayıt.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi")

End If
Listele(sql)
baglanti.Close()
doldur()
End If
End Sub


Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
480
İzmir
Ofis 2003
07/08/2015,11:50
Sn:chevy
Az önce yukarıda vermiş olduğum kodlar ile bende kendi programlarımda sizin istemiş olduğunuz şekilde raporlamalar alıyorum burada Comboboxların Clik olayına fonksiyonun çalışması için kodları yazacaksınız.


Cevapla

chevy

Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
Combobox1 ve combobox2 birlikte çalışması için codları nasıl düzenleyeceğimi veya ne ilave edeceğim konusunda yardımcı olabilirmisiniz. Access veritabanı kullanıyorum ancak codları nasıl düzenleyeceğim...


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB.NET Veritabanı İçinden İstedigim İsimdeki Kayıtları Listeleme Mettleshade 2 624 24/12/2016, 16:58 Mettleshade
Çözüldü DataGridView Veri Güncelleme emir ustaoğlu 8 961 11/10/2016, 00:30 emir ustaoğlu
Çözüldü DataGridView dan Excele Veri Gönderme emir ustaoğlu 2 631 31/08/2016, 15:33 emir ustaoğlu
Çözüldü Veritabanı yolu değişken emir ustaoğlu 7 1.022 09/05/2016, 12:49 emir ustaoğlu
Çözüldü ComboBox İl İlçe Seçimi drummers 1 2.847 22/07/2014, 22:06 drummers

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.