Visual Studio 2015 ile basic dilinde program yapmaya calışı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 icerisindeki imleci ama silme işlemini yine yapmıyor. Nerede hata yapıyorum yardımcı olursanız cok sevinirim.
Programın Gorseli
Programın Hatası
SQL Veri Tabanı İceriği
Kodların Tamamı
Alıntı:
Imports System.Data.OleDb
Public Class Form2
Dim baglanti As New SqlClient.SqlConnection("server=EXTRA-T3BURAK;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,mod el,ram,anakart,ekrankarti,optikokuyucu,sabitdisk,k asa,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
__________________