Bağlı tablolara kayıt ve matematiksel işlem
Tarih
10/04/2012 20:13
Konu Sahibi
drummers
Yorumlar
1
Okunma
1281
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
24/03/2017,15:18
Çö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....
400
11/05/2009
125
İzmir
Ofis 2003
24/03/2017,15:18
Çözüldü 
Sponsor Reklam
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
Çözüldü Form Üzerinde İşlem yaptırma tetikçi_61 2 2.117 09/07/2014, 10:45 tetikçi_61
Çözüldü Üç şarta bağlı olarak alt formda sayı üretme balmy 5 1.495 21/05/2014, 10:05 balmy
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.431 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.087 11/04/2014, 11:13 alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 1.953 06/03/2014, 22:44 ozcan35


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