- 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
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
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
(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
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