AccessTr.neT

Basit bir cari program yazıyorum takıldığım nokta şudur.

Bu kaydet bölümüm

Dim kirasube As New String("INSERT INTO cari (firma_id,tarih,alinan,verilen,aciklama) values ({0},'{1}',{2},{3},'{4}')")

        kirasube = String.Format(kirasube, ComboBox6.SelectedValue, DateTimePicker1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text)

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13")

        Dim komutnesnesi As New OleDb.OleDbCommand(kirasube, baglanti)

        Dim sonuc As Integer

        baglanti.Open()

        sonuc = komutnesnesi.ExecuteNonQuery()

        If sonuc = 1 Then

            MsgBox("" & ComboBox6.Text & " " & "Firmasının" & " " & DateTimePicker1.Text & " " & "Tarihli Bilgileri Kaydedildi", MsgBoxStyle.Exclamation, "Kayıt İşlemi")

            baglanti.Close()

        End If

        Listele("select * from cari where firma_id=" & Me.ComboBox6.SelectedValue & "")

        

        Me.DateTimePicker1.Text = ""

        Me.TextBox1.Text = ""

        Me.TextBox2.Text = ""

        Me.TextBox3.Text = ""

        Me.TextBox4.Text = ""

        Me.TextBox5.Text = ""

        Me.ComboBox2.Text = ""

Buradan TextBox2.Text i çıkaracam çünkü 2 textboxla çalışmak çok acemice kalıyor.

-Combobox2 den "Alınan" seçilirse Textbox1 e yazılan veriyi veritabanındaki "alinan" bölümüne kaydedecek "verilen" bölümüne "0" yazacak.

-Combobox2 den "Verilen" seçilirse Textbox1 e yazılan veriyi veritabanındaki "verilen" bölümüne kaydedecek "alinan" bölümüne "0" yazacak.

Teşekkürler...

Kayıt işlemi öncesinde bir If bloğu ile hangi comboda ne değer yazdığını tespit edin. Sql cümlesini bu If bloğu içinde oluşturun. Kaydetme aşamasında Sql cümlesini kullanın.

(26/11/2012, 21:05)alpeki99 yazdı: [ -> ]Kayıt işlemi öncesinde bir If bloğu ile hangi comboda ne değer yazdığını tespit edin. Sql cümlesini bu If bloğu içinde oluşturun. Kaydetme aşamasında Sql cümlesini kullanın.

Teşekkürler