Skip to main content

AccessTr.neT


Bağlı tablolara kayıt ve matematiksel işlem

Bağlı tablolara kayıt ve matematiksel işlem

Çözüldü #1
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...

muko.rar
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Comboboxa verileri

Kod:
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:
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da