14/05/2014, 18:50
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.