Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
10/04/2012 20:13
Konu Sahibi
drummers
Yorumlar
1
Okunma
1402
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
Çözüldü Form Üzerinde İşlem yaptırma tetikçi_61 2 2.258 09/07/2014, 10:45 tetikçi_61
Çözüldü Üç şarta bağlı olarak alt formda sayı üretme balmy 5 1.739 21/05/2014, 10:05 balmy
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.628 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.476 11/04/2014, 11:13 alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 2.213 06/03/2014, 22:44 ozcan35

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