Her Checkbox için veritabanına ayrı kayıt işleme
Tarih
26/06/2011 19:53
Konu Sahibi
merdogral
Yorumlar
0
Okunma
1399
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



merdogral
Üye
Kullanici Avatari
Üye
1
1
10/05/2011
0
İstanbul
Ofis 2007
24/01/2012,18:31
Merhabalar..

projemde 1 adet button 3 adet checkbox 2 adet textbox 1 adet groupbox ve 1 tanede datagridview nesneleri mevcut.
database yapısı:
access
db adı: db
tablo adı: cb
sütunlar: seccb,isim,islem

amacım textbox a yazılan veriyi checkboxlara kayıt yapmak. fakat her checkbox için ayrı satır kaydetmesini istiyorum.

aşagıda datagrid görüntüsünü olusturmaya calıstım.

seccb - işlem - isim
------------------------------------------
chkbox - texbox1 - texbox2

for each ile yaptıgımda her döngüde checkbox sayısı kadar kayıt ekliyor ve enson işaretlediğim kaydı ekliyor.
bilen arkadaslardan yardım edebilecek olan var mı acaba?
simdiden tesekkürler.....

kodlar şöyle:

Visual Basic Code
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Imports System.Data.OleDb

Public Class Form1

Private Sub Listele(ByVal SQL As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='db.mdb'")
Dim veriler As New DataTable("cb")
Dim adapter As New OleDbDataAdapter(SQL, baglanti)
adapter.Fill(veriler)
DataGridView1.DataSource = veriler

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Listele("SELECT * FROM cb ")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each rad As CheckBox In groupbox1.Controls
Dim dn As String
If CheckBox1.Checked = True Then
dn = 11

End If
If CheckBox2.Checked = True Then
dn = 21

End If
If CheckBox3.Checked = True Then
dn = 36

End If


Dim sql As New String("INSERT INTO cb (seccb,isim,islem) values ('{0}','{1}','{2}')")
sql = String.Format(sql, dn, TextBox1.Text, TextBox2.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='db.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer




Try
baglanti.Open()

sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
End If

Listele("SELECT * FROM cb ")
baglanti.Close()
Catch ex As OleDbException
MsgBox(ex.ToString)
End Try
Next

End Sub




End Class 

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sekme Denetimli Öğrenci Kayıt Ekle Kayıt Sil Kayıt Güncelle mrtcnw 8 2.142 24/12/2013, 10:13 hgsoftware
  iif + checkbox + date() ryanb 8 1.348 09/11/2013, 14:44 ryanb
  vb studio 2010 ile veri kayıt programı miraga 1 1.376 02/10/2013, 11:29 ogulcan92
  Formdan kayıt yapamıyorum tabloya Protokol 3 1.053 08/09/2013, 14:34 Protokol
  veri tabanında ilişkili tablolarda kayıt ekleme sorunu sayko 1 1.422 20/03/2013, 00:08 raham


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya