Vatansever
Asistan
- Katılım
- 23 Ağustos 2007
- Mesajlar
- 405
- Reaksiyon puanı
- 1
- Puanları
- 18
Mail programım için yaptığım adres defterinde update ve insert'leri yapamadım yardım edebilirmisiniz
Access tablom (Orjinal sırasıyla)
Tablonunadı = Kisiler
id = Otomatik Sayı
check = Evet/Hayır (CheckBox)
isim = Metin
e-posta = Metin
bilgi = Metin
grubu = Metin
Hem insert hemde update yapamadım kodum aşağıda yanlış olan nedir?
Access tablom (Orjinal sırasıyla)
Tablonunadı = Kisiler
id = Otomatik Sayı
check = Evet/Hayır (CheckBox)
isim = Metin
e-posta = Metin
bilgi = Metin
grubu = Metin
Hem insert hemde update yapamadım kodum aşağıda yanlış olan nedir?
Kod:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "Ekle" Then
Dim deger As Boolean = True
Dim komut1 As New OleDbCommand()
If (cn.State = ConnectionState.Closed) Then cn.Open()
komut1.Connection = cn
komut1.CommandText = (((("INSERT INTO Kisiler(check,isim,e-posta,bilgi,grubu) VALUES ('" & deger & "','") & Me.TextBox1.Text & "','") & Me.TextBox2.Text & "','") & Me.TextBox3.Text & "','") & Me.ComboBox1.SelectedText & "')"
komut1.ExecuteNonQuery()
komut1.Dispose()
cn.Close()
End If
If Button1.Text = "Değiştir" Then
If (cn.State = ConnectionState.Closed) Then cn.Open()
Dim komut2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE Kisiler SET isim=?, e-posta=?, bilgi=?, grubu=? WHERE id=?", cn)
komut2.Parameters.AddWithValue("@isim", Me.TextBox1.Text)
komut2.Parameters.AddWithValue("@e-posta", Me.TextBox2.Text)
komut2.Parameters.AddWithValue("@bilgi", Me.TextBox3.Text)
komut2.Parameters.AddWithValue("@grubu", Me.ComboBox1.SelectedText)
komut2.Parameters.AddWithValue("@id", Me.id.Text)
komut2.ExecuteNonQuery()
komut2.Dispose()
cn.Close()
End If
End Sub