Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Visual Basic SQL hakkında yardım

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
9
Cevap
0
Favori
365
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba,

    Visual Studio 2015 ile basic dilinde program yapmaya çalışıyorum. Sonum şu şekilde veri girişi yapabiliyorum fakat silme kodunda takıldım silme butonuna tıkladığım zaman " komut.ExecuteNonQuery() " kodunda hata veriyor işlem yapmıyor. Bazen de vermiyor ilk satıra atıyor grid içerisindeki imleci ama silme işlemini yine yapmıyor. Nerede hata yapıyorum yardımcı olursanız çok sevinirim.

    Programın Görseli

    Visual Basic SQL hakkında yardım


    Programın Hatası

    Visual Basic SQL hakkında yardım


    SQL Veri Tabanı İçeriği

    Visual Basic SQL hakkında yardım


    Kodların Tamamı

    quote:

    Imports System.Data.OleDb

    Public Class Form2
    Dim baglanti As New SqlClient.SqlConnection("server=EXTRA-T3\BURAK;database=BURAKDATA;integrated security=true")
    Dim komut As New SqlClient.SqlCommand
    Dim adaptor As New SqlClient.SqlDataAdapter("Select*from ikincielpc", baglanti)
    Dim ds As New DataSet

    Public Sub goster()
    ds.Clear()
    adaptor.Fill(ds, "ikincielpc")
    DataGridView1.DataSource = ds.Tables("ikincielpc")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    komut.Connection = baglanti
    komut.CommandText = "insert into ikincielpc(carikod,adi_soyadi,uruntipi,islemci,model,ram,anakart,ekrankarti,optikokuyucu,sabitdisk,kasa,aciklama)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox11.Text & "','" & TextBox8.Text & "','" & TextBox3.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "')"
    baglanti.Open()
    komut.ExecuteNonQuery()
    baglanti.Close()
    Call goster()
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.Text = "Kasa Bilgisayar" Then
    TextBox11.Enabled = False
    Else
    TextBox11.Enabled = True
    End If

    If ComboBox1.Text = "Notebook" Then
    TextBox3.Enabled = False
    TextBox9.Enabled = False
    Else
    TextBox3.Enabled = True
    TextBox9.Enabled = True
    End If
    End Sub

    Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked = True Then
    TextBox1.Enabled = True
    TextBox2.Enabled = True
    Else
    TextBox1.Enabled = False
    TextBox2.Enabled = False
    End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox1.Text = "CR"
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    TextBox10.Text = ""
    TextBox11.Text = ""

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Call goster()
    End Sub
    Dim id As Integer
    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    Try
    Dim satir As Integer
    satir = DataGridView1.CurrentCell.RowIndex
    TextBox1.Text = DataGridView1(1, satir).Value
    TextBox2.Text = DataGridView1(2, satir).Value
    ComboBox1.Text = DataGridView1(3, satir).Value
    TextBox3.Text = DataGridView1(4, satir).Value
    TextBox4.Text = DataGridView1(5, satir).Value
    TextBox5.Text = DataGridView1(6, satir).Value
    TextBox6.Text = DataGridView1(7, satir).Value
    TextBox7.Text = DataGridView1(8, satir).Value
    TextBox8.Text = DataGridView1(9, satir).Value
    TextBox9.Text = DataGridView1(10, satir).Value
    TextBox10.Text = DataGridView1(11, satir).Value
    TextBox11.Text = DataGridView1(12, satir).Value
    Catch ex As Exception

    End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    komut.Connection = baglanti
    komut.CommandText = "DELETE from ikincielpc where carikod='" & id & "'"
    baglanti.Open()
    komut.ExecuteNonQuery()
    baglanti.Close()
    Call goster()

    End Sub
    End Class







  • resme bakarsan id isminde kolon yok diyor veritabanındaki kolon isimlerine bakarsın
  • id kolonu yok onu düzeltiyorum carikod yapıyorum ama mantığını anlamadım id olarak anlatıyor internetteki kaynaklarda id alnı mı oluşturmam lazım çözemedim. gridin içinden seçtiğimi silsin istiyorum.
  • FalanID şeklinde kullanılır genelde

    oraya ne yazarsan kodda da o şekilde olacak
  • Arkadaşlar sorunu kavradım oldum fakat koda dönüştüremiyorum bilen bir arkadaş varsa yardımcı olabilir mi.

    Bu aşağıdaki kod ile ikincielpc tablosundan id alanındaki id verisini sil diyorum programa içinde id yazmazsa silmiyor benim istediğimse datagrit üzerindeki seçili satırı silmesi

    komut.CommandText = "DELETE from ikincielpc where id='" & id & "'"



    < Bu mesaj bu kişi tarafından değiştirildi burakaya14 -- 16 Şubat 2017; 11:8:26 >
  • Orada seçili satırın idsini oluyacan ondan sonra sql komutunda where id eşittir okuduğun değer şeklinde yapacan

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • okuduğum değer nedir anlamadım. ben datagrid den seçtiğimi silsin istiyorum ordaki değer mantığı nedir anlamadım. select yada current gibi komut yazmam gerekli.
    • Yapay Zeka’dan İlgili Konular
    Visual Basic Hesaplama Sorunsalı
    8 yıl önce açıldı
    SQL ve Python hk.
    geçen yıl açıldı
    İleri Bilgisayar Grafikleri - Visual Studio FreeGLUT GLEW Kütüphanelerini include etme
    3 ay önce açıldı
    Daha Fazla Göster
  • where carikod=x
    x programda carikod da yazan değer onu önce okuyacan tabiki yani seçili sütünün değerini okuyacan tabiki otomatik artan IDyi okursan daha uygun yoksa bir silmede aynı isimli carikodların hepsini silebilirsin
  • sorunumu çözdüm arkadaşlar yararlanmak isteyen olursa silme komutları bunlardır. 

     
      
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
             Dim carikod As String = DataGridView1.CurrentRow.Cells("carikod").Value.ToString 
             komut.Connection = baglanti 
             komut.CommandText = "DELETE FROM ikincielpc WHERE carikod = @carikod" 
             komut.Parameters.Clear() 
             komut.Parameters.AddWithValue("@carikod", carikod) 
             baglanti.Open() 
             Dim sonuc As Integer = komut.ExecuteNonQuery 
             baglanti.Close() 
             MessageBox.Show(String.Format("{0} kayıt silindi", sonuc)) 
             If (sonuc > 0) Then 
                 goster() 
             End If 
         End Sub
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum