Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ?

alican60
alican60
Visual Basic .NET Cevaplanmış Soruları
6
6317

VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ?

Çözüldü #1
alican60
Aktif Üye
alican60
Bul
Aktif Üye
Adı Soyadı: Al.... Ca....
Konum: Tokat
Ofis Versiyonu: -
Son Oturumu: 20/11/2023,21:11
Yorumları: 138
Konuları: 44
Kayıt Tarihi: 29/12/2012
Teşekkür Puanı: 0
Aşağıdaki kod ile kayıt yaparken aynı TckimlikNo lu birisi varsa nasıl uyarı verdirebilirim ?
Kod:
'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
#2
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/12/2024,02:40
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Kod:
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
#3
alican60
Aktif Üye
alican60
Bul
Aktif Üye
Adı Soyadı: Al.... Ca....
Konum: Tokat
Ofis Versiyonu: -
Son Oturumu: 20/11/2023,21:11
Yorumları: 138
Konuları: 44
Kayıt Tarihi: 29/12/2012
Teşekkür Puanı: 0
Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu.
Cevapla
#4
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/08/2024,13:39
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(20/12/2013, 00:34)alican60 yazdı: Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu.

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


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.
Son Düzenleme: 20/12/2013, 01:01, Düzenleyen: drummers.
Cevapla
#5
alican60
Aktif Üye
alican60
Bul
Aktif Üye
Adı Soyadı: Al.... Ca....
Konum: Tokat
Ofis Versiyonu: -
Son Oturumu: 20/11/2023,21:11
Yorumları: 138
Konuları: 44
Kayıt Tarihi: 29/12/2012
Teşekkür Puanı: 0
Teşekkür ederim Ömür abi,tam istediğim gibi oldu.
Cevapla
#6
kuzens
Üye
kuzens
Bul
Üye
Adı Soyadı: Fa.... Ay....
Yaşı: 48
Konum: Adana
Ofis Versiyonu: Ofis 2003
Son Oturumu: 09/07/2020,16:17
Yorumları: 2
Konuları: 0
Kayıt Tarihi: 29/11/2008
Teşekkür Puanı: 0
Bu yapıda ki kodlamaya mükerrer kayıt uyarısı verdirip  kaydetmemeyi nasıl yaptırabiliriz.Teşekkürler


Dim SonSatır As Variant

Private Sub CommandButton1_Click()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then

If IsNumeric(TextBox3.Value) Then

SonSatır = WorksheetFunction.CountA(Worksheets("personel").Range("A:A")) + 1

    If SonSatır = 2 Then
        Worksheets("PERSONEL").Cells(SonSatır, 1) = 1
        Worksheets("PERSONEL").Cells(SonSatır, 2) = TextBox1.Value
        Worksheets("PERSONEL").Cells(SonSatır, 3) = TextBox2.Value
        Worksheets("PERSONEL").Cells(SonSatır, 4) = TextBox3.Value
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
    Else
        Worksheets("PERSONEL").Cells(SonSatır, 1) = Worksheets("personel").Cells(SonSatır - 1, 1) + 1
        Worksheets("PERSONEL").Cells(SonSatır, 2) = TextBox1.Value
        Worksheets("PERSONEL").Cells(SonSatır, 3) = TextBox2.Value
        Worksheets("PERSONEL").Cells(SonSatır, 4) = TextBox3.Value
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        MsgBox "KAYIT YAPILDI", vbOKOnly + vbInformation, "Veri Kaydedildi"
    End If
Else
MsgBox "SİCİLNO YA RAKAM GİRİNİZ"
GoTo SoN
End If
Else
MsgBox " İLGİLİ ALANLARI DOLDURUNUZ"
SoN:
End If
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da