Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
14/05/2014 18:50
Konu Sahibi
Gorkemku
Yorumlar
1
Okunma
1636
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gorkemku

Gorkemku

Üye
63955
Gö....
 Belirtilmemiş
 6
 11
 13/05/2014
0
 
 
 
 29/05/2014,22:19

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
        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 If




combo 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.




POWER

POWER

Uzman
17709
Uf.... Öz....
 55
 44
 1.874
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 15/07/2019,01:29
Örnek ekleyiniz...


Please return your positive or negative ...

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  İlşikili Formlarda Kontrol Sorunu Yunus Bozkurt 4 336 08/07/2019, 14:04
Son Yorum: berduş
Star Özel Kriterlere Göre İzinli Günlerin Sayılması alperalper 9 780 03/10/2018, 23:13
Son Yorum: ozanakkaya
  Tablodan Silme Sorunu fascioğlu 3 417 28/07/2018, 01:47
Son Yorum: ozanakkaya
  İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu bonur82 1 498 15/06/2017, 14:32
Son Yorum: ozanakkaya
  Access Dosyası Yedekleme Şifre Sorunu pelitt 3 629 28/05/2017, 17:11
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.