Tüm Forumlar

Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Bu Konuda

Şimdi Ara

VB.NET DataGridView yinelemesi(soru)

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Amazon.com.tr: Prime Üyelerine Özel: Süpermarket Ürünlerinde 3 Al 2 Öde promosyon https://www.amazon.com.tr/promotion/psp/A2JEWP9I3H57JU 18 sa. önce paylaşıldı

Amazon.com.tr | Gülümseten Kasım Fırsatları 2024 https://www.amazon.com.tr/blackfriday 4 yıl önce paylaşıldı

MERRELL SPEED ECO Yürüyüş AyakkabısıErkek : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0C9MV8H3R 18 sa. önce paylaşıldı

Mojue by ttec PB06 20.000mAh PD 20W LCD Ekranlı Taşınabilir Şarj : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B0B157SNWG geçen yıl paylaşıldı

Efsane Cuma Efsane Final-clone1 https://app.hb.biz/bAXMR0QMFitQ 20 sa. önce paylaşıldı

Camper Erkek Camper Cwb K300447-00210 Fiyatı - Taksit Seçenekleri https://www.hepsiburada.com/camper-erkek-camper-cwb-k300447-00210-p-HBCV0000415BBZ?ftid=u3mv8sfvibwzwib1&magaza=CAMPER+T%C3%9CRK%C4%B0YE&url_src=ios-product-detail 13 sa. önce paylaşıldı

Süper Tık Hızı Kuponlar - n11 https://www.n11.com/kampanyalar/super-tik-hizinda-kuponlar geçen yıl paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

7
Cevap

0
Favori

548
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> VB.NET DataGridView yinelemesi(soru) | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

sergen23

Çavuş

72 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Temmuz 2015 02:27:01 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

form'da 2 adet datagridview var. DataGridView1'de id ad soyad diye sütunları listeledim ve herhangi bi ismi seçtiğimde datagridview2'ye o id'ye bağlı bilgileri aktarıyorum fakat bu işlem 1 kere oluyo yani başka bi id ye tıkladığımda 2. datagrid yenilenmiyo. Bunu nasıl düzeltebilirim?

Kodlarım:

 
   
   
   Sub listele() 
          koopTablo.Clear() 
          makbuzTablo.Clear() 
          bag.Open() 
          adtr = New OleDbDataAdapter("select plaka,adi,soyadi From koop", bag) 
          adtr.Fill(koopTablo) 
          DataGridView1.DataSource = koopTablo 
          DataGridView1.Columns(0).HeaderText = "PLAKA" 
          DataGridView1.Columns(1).HeaderText = "Adı" 
          DataGridView1.Columns(2).HeaderText = "Soyadı" 
          DataGridView1.Refresh() 
   
          bag.Close() 
          adtr.Dispose() 
      End Sub 
   
   
   
      Sub sec() 
   
          Try 
   
              If DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() <> "" Then 
                   
                  bag.Open() 
                  kmt.Connection = bag 
                  adtr = New OleDbDataAdapter("SELECT Makbuzno,Donem,Tarih,Miktar from Makbuz WHERE PLAKA='" & DataGridView1.CurrentRow.Cells(0).Value.ToString() & "'", bag) 
                  adtr.Fill(makbuzTablo) 
                  DataGridView2.DataSource = makbuzTablo 
                  DataGridView2.Refresh() 
                  kmt.ExecuteNonQuery()  
                  listele() 
   
                  bag.Close() 
                  kmt.Dispose() 
              End If 
          Catch 
   
          End Try 
      End Sub

< Bu mesaj bu kişi tarafından değiştirildi sergen23 -- 7 Temmuz 2015; 2:28:30 >

TeknoTurta

Çavuş

46 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Temmuz 2015 14:53:51

Mesaj Linkini Kopyala
Şikayet

sergen23 S kullanıcısına yanıt

bir zamanlayıcı döngü işini görür sanırsam. yani data2'ye aktarımı timer kodunun içine koy

Bu mesaja 1 cevap geldi

sergen23

Çavuş

72 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Temmuz 2015 15:36:28 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

quote:

Orijinalden alıntı: TeknoTurta

bir zamanlayıcı döngü işini görür sanırsam. yani data2'ye aktarımı timer kodunun içine koy

Önceden denedim ama beceremedim :)

Bu mesaja 1 cevap geldi

TeknoTurta

Çavuş

46 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Temmuz 2015 16:44:57

Mesaj Linkini Kopyala
Şikayet

sergen23 S kullanıcısına yanıt

Timer içine aşağıdaki kodu yazdın demi?

If DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() <> "" Then 
                   
                  bag.Open() 
                  kmt.Connection = bag 
                  adtr = New OleDbDataAdapter("SELECT Makbuzno,Donem,Tarih,Miktar from Makbuz WHERE PLAKA='" & DataGridView1.CurrentRow.Cells(0).Value.ToString() & "'", bag) 
                  adtr.Fill(makbuzTablo) 
                  DataGridView2.DataSource = makbuzTablo 
                  DataGridView2.Refresh() 
                  kmt.ExecuteNonQuery()  
                  listele() 
   
                  bag.Close() 
                  kmt.Dispose() 
              End If 
          Catch

Bu mesaja 1 cevap geldi

sergen23

Çavuş

72 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Temmuz 2015 18:51:26 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

quote:

Orijinalden alıntı: TeknoTurta

Timer içine aşağıdaki kodu yazdın demi?

If DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() <> "" Then 
                   
                  bag.Open() 
                  kmt.Connection = bag 
                  adtr = New OleDbDataAdapter("SELECT Makbuzno,Donem,Tarih,Miktar from Makbuz WHERE PLAKA='" & DataGridView1.CurrentRow.Cells(0).Value.ToString() & "'", bag) 
                  adtr.Fill(makbuzTablo) 
                  DataGridView2.DataSource = makbuzTablo 
                  DataGridView2.Refresh() 
                  kmt.ExecuteNonQuery()  
                  listele() 
   
                  bag.Close() 
                  kmt.Dispose() 
              End If 
          Catch

yazdım timer yeniliyo ama yine de değişen bir şey yok :) grid1 i görmüyor

< Bu mesaj bu kişi tarafından değiştirildi sergen23 -- 7 Temmuz 2015; 20:28:13 >

Bu mesaja 1 cevap geldi

TeknoTurta

Çavuş

46 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

08 Temmuz 2015 17:04:02

Mesaj Linkini Kopyala
Şikayet

sergen23 S kullanıcısına yanıt

o kodu yazma, şöyle yap butona tıklandığındaki kodu ( buton'a tıklanırsayla beraber) alıp timer'in içine at.

Bu mesaja 1 cevap geldi

sergen23

Çavuş

72 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

08 Temmuz 2015 18:07:52 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

çözümü buldum. sec' e makbuzno.Clear() ekledim ve listele() 'yi kaldırdım.

Private Sub Tektek_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
          listele() 
      End Sub 
   
      Sub listele() 
          koopTablo.Clear() 
          bag.Open() 
          adtr = New OleDbDataAdapter("select plaka,adi,soyadi From koop", bag) 
          adtr.Fill(koopTablo) 
          DataGridView1.DataSource = koopTablo 
          DataGridView1.Columns(0).HeaderText = "PLAKA" 
          DataGridView1.Columns(1).HeaderText = "Adı" 
          DataGridView1.Columns(2).HeaderText = "Soyadı" 
          DataGridView1.Refresh() 
          bag.Close() 
          adtr.Dispose() 
   
      End Sub 
      
      
      Sub sec() 
          makbuzTablo.Clear()  
          Try 
              If DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() <> "" Then 
                  'datagridview1 seçili kayıt varsa 
   
                  bag.Open() 
   
                  adtr = New OleDbDataAdapter("SELECT Makbuzno,Donem,Tarih,Miktar from Makbuz WHERE PLAKA='" & DataGridView1.CurrentRow.Cells("plaka").Value.ToString() & "'", bag) 
                  adtr.Fill(makbuzTablo) 
                  DataGridView2.DataSource = makbuzTablo 
                  DataGridView2.Refresh() 
                  bag.Close() 
   
   
              End If 
          Catch 
   
          End Try 
      End Sub 
   
      Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick 
   
          sec() 
   
      End Sub