Bağlı tablolara kayıt ve matematiksel işlem
Tarih
10/04/2012 20:13
Konu Sahibi
drummers
Yorumlar
1
Okunma
1210
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ü 
Birbiri ile ilişkili 2 tablom var "Firmalar" ve "İşlemler

Firmalar = firma bilgilerinin olduğu tablo (Form1)
İslemler = firmalarının matematiksel işlemlerinin yapılacağı tablom (Form2)

Form birde bir sıkıntım yok firma bilgilerini kayıt yapabiliyorum.

İsteğim şudur:

- Form1 de kayıt yaptığımda ("Firmalar" tablosuna) aynı firmayı "İslemler" tablosuna eklesin,

- Form2 deki Combobox1 e "Firma" tablosundan firma isimlerini aktarabiliyorum
firmayı seçtikten sonra textboxlara girdiğim rakamlarla hesaplama yapıyorum ve bunların Firma ismi ile "İslemler" tablosuna kaydetmesini istiyorum. Hesaplama için basit bir örnek yaptım Form2 nin içinde mevcuttur.

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ü 
Comboboxa verileri

Kod:
1
2
3
4
5
6
7
8
9
Private Sub combodoldur()
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
        Dim veriler As New DataTable("Firmalar")
        Dim adapter As New OleDbDataAdapter("select * from Firmalar order by firma_id", baglanti)
        adapter.Fill(veriler)
        ComboBox1.ValueMember = "firma_id"
        ComboBox1.DisplayMember = "ad"
        ComboBox1.DataSource = veriler
    End Sub


böyle aldım. Kayıt işleminide

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If Me.ComboBox1.Text = "" Then
            MsgBox("Lütfen Firma Ünvani Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
        Else
            Dim data As New String("INSERT INTO islem (firma_id,tarih,kilo,birim,toplam,stopaj,kesinti,net) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}')")
            data = String.Format(data, ComboBox1.SelectedValue, MaskedTextBox1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
            Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
            Dim sonuc As Integer
            baglanti.Open()
            sonuc = komutnesnesi.ExecuteNonQuery()
            If sonuc = 1 Then
                MsgBox("Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
                baglanti.Close()

            End If
            Listele("SELECT * FROM islem ORDER BY firma_id")
        End If

Böyle yaptım.
Faydalanmak istiyen olabilir diye düşündüm

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
  Program Ayaları Kayıt Etme + Güncelleme Acil Yardım Mettleshade 5 139 02/10/2016, 23:44 alpeki99
Çözüldü Foreign Key ve Relationship Problemi (Ana ve Yavru Tablo Kayıt silme) umutakkaya 3 2.252 15/08/2014, 18:04 umutakkaya
Çözüldü Form Üzerinde İşlem yaptırma tetikçi_61 2 2.041 09/07/2014, 10:45 tetikçi_61
Çözüldü Üç şarta bağlı olarak alt formda sayı üretme balmy 5 1.360 21/05/2014, 10:05 balmy
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.277 04/05/2014, 16:31 umutakkaya


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