Comboboxdan firma değiştirince datagriddeki verilerde değişsin
Tarih
12/04/2012 22:32
Konu Sahibi
drummers
Yorumlar
9
Okunma
2910
Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 1/5 - 1 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
- Ekli projemde combobox1 den firma ismini değiştirince datagirddeki verilerinde değişmesini sağlıyamadım.

- Textboxlara veri girildiği anda benim istediğim ondalık kadar sayı formatına dönşsün, bunuda beceremedim. örn: 1.000,00 veya 1.000,000 şeklinde

Teşekkürler
Ek Dosyalar
muko.rar
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
1. sorumun cevabını şöyle çözdüm faydalanacak arkadaşlarım olabilir

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        DataGridView1.DataBindings.Clear()
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'") 'Veritabanımızın yerini belirtiyoruz.
        Dim sql As String = "select * from islem where firma_id=" & Me.ComboBox1.SelectedValue & ""
        Dim veriler As New DataTable("islem")
        Dim adapter As New OleDbDataAdapter(sql, baglanti)
        adapter.Fill(veriler) 'buradaki veriler oluşturduğumuz sanal tablo.

        DataGridView1.DataSource = veriler 'veri tabanından gelen kayıtları DataGridView'e aktarıyoruz .
        baglanti.Close()

    End Sub


Ama textbox ile ilgili olanı beceremedi, çözüm üretecek olan olursa sevinirim

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
2.soru istediğin şumu mesala 200 girildi 200yanına otomatik olarak 200.000.000 mı olacak ?


Visual Basic Code
    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        TextBox1.Text = TextBox1.Text + ".000.00"
    End Sub

sanırım bunu arıyorsun

ama tabi burada yapman gerekenler var girilen veriyi kontrol etmek gerekir sayısal değermi değil mi ? kullanıcı sıfırları kendi yazmışmı vs mesala kullanıcı 12.000.00 girer sonuna sende 000.00 eklersen karışıklık olur

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(13/04/2012, 09:57)goodfalles Adlı Kullanıcıdan Alıntı: 2.soru istediğin şumu mesala 200 girildi 200yanına otomatik olarak 200.000.000 mı olacak ?


Visual Basic Code
 Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
 TextBox1.Text = TextBox1.Text + ".000.00"
 End Sub

sanırım bunu arıyorsun

ama tabi burada yapman gerekenler var girilen veriyi kontrol etmek gerekir sayısal değermi değil mi ? kullanıcı sıfırları kendi yazmışmı vs mesala kullanıcı 12.000.00 girer sonuna sende 000.00 eklersen karışıklık olur


Bende onu yazacaktım şimdi

0,350 yazıyorum sonuç 0,350.000 oluyor. Bunun bir çözümü varmı acaba

Birde Comboboxdan firma değiştirince datagridde anında o firmaya ait verilerin görünmesini nasıl sağlarım acaba

Kod:
1
2
3
4
5
6
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        Dim para As Single
        para = CSng(TextBox1.Text)
        TextBox1.Text = para.ToString("N3")

    End Sub

Böyle yaptım yedi Img-grin

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
bende buradan indirdiğim bi dosyada bu şekilde bi örnek vardı oradan sadece o kısmı yazayım sana kendin göre değiştir

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 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.Jet.OLEDB.4.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.Jet.OLEDB.4.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()
 End If


kodu comboboxın içine yazarsın o örnekte farklı yerdeydi

Visual Basic Code
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

 End Sub


silme işlemi felan yazıyor msgboxta ama önemli değil o sen bi dene bu kodu

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(14/04/2012, 15:09)goodfalles Adlı Kullanıcıdan Alıntı: bende buradan indirdiğim bi dosyada bu şekilde bi örnek vardı oradan sadece o kısmı yazayım sana kendin göre değiştir

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 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.Jet.OLEDB.4.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.Jet.OLEDB.4.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()
 End If


kodu comboboxın içine yazarsın o örnekte farklı yerdeydi

Visual Basic Code
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

 End Sub


silme işlemi felan yazıyor msgboxta ama önemli değil o sen bi dene bu kodu


İlgiye teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Datagriddeki veriyi toplama qnill 5 2.267 24/07/2010, 18:05 hydramses


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya