Vb.net Access checkbox, update ve insert sorunları

            Dim komut2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE Kisiler SET isim=@isim, eposta=@eposta, bilgi=@bilgi, grubu=@grubu WHERE id=@id", con)
            komut2.Parameters.AddWithValue("@isim", Me.TextBox1.Text)
            komut2.Parameters.AddWithValue("@eposta", Me.TextBox2.Text)
            komut2.Parameters.AddWithValue("@bilgi", Me.TextBox3.Text)
            komut2.Parameters.AddWithValue("@grubu", Me.ComboBox1.Text)
            komut2.Parameters.AddWithValue("@id", id)
            komut2.ExecuteNonQuery()
            komut2.Dispose()
            con.Close()

hokumus dedi: ↑

Selamlar,

Ekle bölümü içerisinde 1. hata deger değişkeninin tırnak içerisinde gönderiliyor olmasıdır. Değer boolean tipinde bir değişkendir.
Siz 'True' olarak değer gönderdiğiniz için tip uyuşmazlığından dolayı bir hata alırsınız.

Tırnakları kaldırdığınız zaman 2. hatayı INSERT INTO Kisiler(check, isim, ... diye devam eden kısımda alacaksınız.
Hatanın türü Syntax error in INSERT INTO statement şeklinde olacaktır. Access Boolean alanı çözümleyemeyeceği için check değerini [check] şeklinde yazarak bu hatayıda çözebilirsiniz.

INSERT INTO Kisiler([check], isim, gibi.

3. hatayı e-posta gibi bir alan tanımlamasında alırsın. Genel olarak tanımlamalarında ihtiyaca göre alt çizgiyi kullanmanı öneririm. Tanımlamayı eposta olarak düzenlediğinizde bu hatada ortadan kalkacaktır.

Güncelleme bölümü için tek bir hata bulunmakta. Siz parameter kullandığınız zaman sql sorgusu içerisinde parametre olarak bir anahtar kelime belirtmeniz gerekmektedir.

UPDATE Kisiler SET isim=?
komut2.Parameters.AddWithValue("@isim", Me.TextBox1.Text)

Bu şekilde yapılan tanımlama hatalıdır. Soru işareti yerine

UPDATE Kisiler SET isim=@isim

Yukarıdaki gibi düzenleme yapılırsa parameter içerisinde belirtmiş olduğunuz value alanını setleyebilirsiniz.
Aşağıdaki gibi bir düzenleme ile Update işleminide gerçekleştirebilirsiniz.

            Dim komut2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE Kisiler SET isim=@isim, eposta=@eposta, bilgi=@bilgi, grubu=@grubu WHERE id=@id", con)
            komut2.Parameters.AddWithValue("@isim", Me.TextBox1.Text)
            komut2.Parameters.AddWithValue("@eposta", Me.TextBox2.Text)
            komut2.Parameters.AddWithValue("@bilgi", Me.TextBox3.Text)
            komut2.Parameters.AddWithValue("@grubu", Me.ComboBox1.Text)
            komut2.Parameters.AddWithValue("@id", id)
            komut2.ExecuteNonQuery()
            komut2.Dispose()
            con.Close()

Dilerim açıklamaya çalışabilmişimdir.

Başarılar dilerim.

hokumus dedi: ↑

Selamlar,

INSERT INTO Kisiler(check, isim,

yukarıdaki ifadede geçen check alan adını aşağıdaki gibi köşeli parantez içerisine alıp yazman yeterli olacaktır.

INSERT INTO Kisiler([check], isim

Başarılar dilerim.

        If Button1.Text = "Ekle" Then
            Dim deger As Boolean = False
            Dim komut1 As New OleDbCommand()
            If (cn.State = ConnectionState.Closed) Then cn.Open()
            komut1.Connection = cn
            komut1.CommandText = (((("INSERT INTO Kisiler([check],isim,eposta,bilgi,grubu) VALUES ('" & deger & "','") & Me.TextBox1.Text & "','") & Me.TextBox2.Text & "','") & Me.TextBox3.Text & "','") & Me.ComboBox1.SelectedItem & "')"
            komut1.ExecuteNonQuery()
            komut1.Dispose()
            cn.Close()
        End If

komut1.CommandText = (((("INSERT INTO Kisiler([check],isim,eposta,bilgi,grubu) VALUES ('" & deger & "','") & Me.TextBox1.Text & "','") & Me.TextBox2.Text & "','") & Me.TextBox3.Text & "','") & Me.ComboBox1.SelectedItem & "')"

hokumus dedi: ↑

Selamlar,

Hatanın sebebi Boolean ifadesini tırnak içerisinde String bir değer olarak gönderiyor olmandan kaynaklanıyor.

komut1.CommandText = (((("INSERT INTO Kisiler([check],isim,eposta,bilgi,grubu) VALUES ('" & deger & "','") & Me.TextBox1.Text & "','") & Me.TextBox2.Text & "','") & Me.TextBox3.Text & "','") & Me.ComboBox1.SelectedItem & "')"

VALUES ('" & deger & "','") diye devam eden ifadeyi

VALUES (" & deger & ",'") şeklinde değiştirdiğin zaman tırnak içerisinde göndermemiş olacaksın ve hata ortadan kalkacak.

Bu arada çift tırnaktan bahsetmiyorum. Tek tırnaklara dikkat et çözeceksin.

Başarılar dilerim.