VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ?
Tarih
19/12/2013 19:24
Konu Sahibi
alican60
Yorumlar
4
Okunma
2022
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Dün,23:49
Çözüldü 
Aşağıdaki kod ile kayıt yaparken aynı TckimlikNo lu birisi varsa nasıl uyarı verdirebilirim ?

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'KAYDET
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" Then
MsgBox("Lütfen TCKimlikNo Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
Dim sql As New String("INSERT INTO Kayitlar (TckimlikNo,AdiSoyadi,BabaAdi,Ogrencino,DogumYeri,Dogumtarihi,Aciklama) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}')")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM Kayitlar'")
baglanti.Close()
Temizle()
End If
Me.ComboBox1.Text = ""
End Sub

Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.976
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,03:24

Kod:
1
2
3
4
5
6
7
8
9
Dim myCmdKayitVarmi As New OleDbCommand("SELECT terminalId FROM tblterminal WHERE terminalKodu=@term", myCnn)
            myCmdKayitVarmi.Parameters.AddWithValue("@term", txtTerminalKodu.Text)
            Dim dr As OleDbDataReader = myCmdKayitVarmi.ExecuteReader()

            If dr.HasRows Then
                MessageBox.Show("Bu terminal kodu daha önce kullanılmış. Lütfen yeni bir kod yazınız", "Mükerrer Kayıt", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Else
                ' Yoksa ekleme işlemi burada yapılabilir
            End If


Bu şekilde bir yapı kullanabilirsin.

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Dün,23:49
Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
(20/12/2013, 00:34)alican60 Adlı Kullanıcıdan Alıntı: Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu.

Şöyle bir dene bakalım olacak mı?

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")
        baglanti.Open()
        Dim komut As New OleDbCommand("select * from Kayitlar where TckimlikNo='" & TextBox1.Text & "'", baglanti)
        Dim oku As OleDbDataReader = komut.ExecuteReader()
        If (oku.Read) Then
            MsgBox(TextBox1.Text & " T.C Nosu Daha Önceden Kaydedilmiştir")
        Else
            If Me.TextBox1.Text = "" Then
                MsgBox("Lütfen TCKimlikNo Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
            Else


                Dim sql As New String("INSERT INTO Kayitlar (TckimlikNo,AdiSoyadi,BabaAdi,Ogrencino,DogumYeri,Dogumtarihi,Aciklama) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}')")
                sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text)
                Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")
                Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
                Dim sonuc As Integer
                baglanti.Open()
                sonuc = komutnesnesi.ExecuteNonQuery()
                If sonuc = 1 Then
                    MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
                End If
                Listele("SELECT * FROM Kayitlar'")
                baglanti.Close()
                oku.Close()
                Temizle()
            End If
        End If
        Me.ComboBox1.Text = ""
    End Sub

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Dün,23:49
Teşekkür ederim Ömür abi,tam istediğim gibi oldu.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Program Ayaları Kayıt Etme + Güncelleme Acil Yardım Mettleshade 5 139 02/10/2016, 23:44 alpeki99
Çözüldü Foreign Key ve Relationship Problemi (Ana ve Yavru Tablo Kayıt silme) umutakkaya 3 2.252 15/08/2014, 18:04 umutakkaya
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.277 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 1.925 11/04/2014, 11:13 alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 1.858 06/03/2014, 22:44 ozcan35


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