Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/04/2012 22:32
Konu Sahibi
drummers
Yorumlar
9
Okunma
3388
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....
406
11/05/2009
125
İzmir
Ofis 2003
20/11/2017,16:04
Çö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....
406
11/05/2009
125
İzmir
Ofis 2003
20/11/2017,16:04
Çö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....
406
11/05/2009
125
İzmir
Ofis 2003
20/11/2017,16:04
Çö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....
406
11/05/2009
125
İzmir
Ofis 2003
20/11/2017,16:04
Çö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.568 24/07/2010, 18:05 hydramses
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.