VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ?
Tarih
19/12/2013 19:24
Konu Sahibi
alican60
Yorumlar
4
Okunma
2077
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....
122
29/12/2012
0
Tokat
-
Çözüldü 
Sponsor Reklam
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....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51

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....
122
29/12/2012
0
Tokat
-
Sponsor Reklam
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
07/01/2017,15:41
(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....
122
29/12/2012
0
Tokat
-
Sponsor Reklam
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 214 02/10/2016, 23:44 alpeki99
Çözüldü Foreign Key ve Relationship Problemi (Ana ve Yavru Tablo Kayıt silme) umutakkaya 3 2.290 15/08/2014, 18:04 umutakkaya
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.326 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 1.991 11/04/2014, 11:13 alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 1.882 06/03/2014, 22:44 ozcan35


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