+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: combobox ta seçilen değere göre kaydettirme sorunu (/konu-combobox-ta-secilen-degere-gore-kaydettirme-sorunu.html)
combobox ta seçilen değere göre kaydettirme sorunu - Gorkemku - 14/05/2014
Kod:
If ComboBox1.SelectedItem = "onarim" Then
Dim toplayici1 As Integer
Dim toplayici2 As Integer
toplayici1 = TextBox3.Text
toplayici2 = TextBox4.Text
TextBox5.Text = toplayici1 + toplayici2
Dim sql As New String("INSERT INTO tbl_onarim (stokkodu,parcaadi,parcamaliyeti,Iscilikucreti,toplamtutar) values ('{0}','{1}','{2}','{3}','{4}')")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:OtoServisOtomasyonu.accdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
Listele("SELECT * FROM tbl_onarim'")
ElseIf ComboBox1.SelectedItem = "bakim" Then
Dim sql As New String("INSERT INTO tbl_bakim (musteriplaka,islem,aciklama,ucret) values ('{0}','{1}','{2}','{3}')")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:OtoServisOtomasyonu.accdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
sonuc = komutnesnesi.ExecuteNonQuery()
Listele("SELECT * FROM tbl_bakim'")
baglanti.Close()
End Ifcombo box ta seçtiğim değere göre kaydetmesi gerekiyo ama kod ne hata veriyor nede işlem yapıyoru yardımcı olursanız sevinirim.Şimdiden Teşekkür EDerim.
Cvp: combobox ta seçilen değere göre kaydettirme sorunu - POWER - 14/05/2014
Örnek ekleyiniz...