Skip to main content

AccessTr.neT


Comboboxdan firma değiştirince datagriddeki verilerde değişsin

Comboboxdan firma değiştirince datagriddeki verilerde değişsin

Çözüldü #1
- 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
muko.rar
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
1. sorumun cevabını şöyle çözdüm faydalanacak arkadaşlarım olabilir
Kod:
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
Çözüldü #3
2.soru istediğin şumu mesala 200 girildi 200yanına otomatik olarak 200.000.000 mı olacak ?


    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
Çözüldü #4
(13/04/2012, 09:57)goodfalles yazdı: 2.soru istediğin şumu mesala 200 girildi 200yanına otomatik olarak 200.000.000 mı olacak ?


 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:
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.
Son Düzenleme: 13/04/2012, 15:00, Düzenleyen: drummers.
Cevapla
Çözüldü #5
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
 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

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
Çözüldü #6
(14/04/2012, 15:09)goodfalles yazdı: 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
 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

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da