Comboboxdan firma değiştirince datagriddeki verilerde değişsin
Tarih
12/04/2012 22:32
Konu Sahibi
drummers
Yorumlar
9
Okunma
3000
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....
400
11/05/2009
125
İzmir
Ofis 2003
20/03/2017,16:17
Çö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....
400
11/05/2009
125
İzmir
Ofis 2003
20/03/2017,16:17
Çözüldü 
Sponsor Reklam
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....
400
11/05/2009
125
İzmir
Ofis 2003
20/03/2017,16:17
Çözüldü 
Sponsor Reklam
(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....
400
11/05/2009
125
İzmir
Ofis 2003
20/03/2017,16:17
Çözüldü 
Sponsor Reklam
(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.307 24/07/2010, 18:05 hydramses


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status