Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
19/12/2013 19:24
Konu Sahibi
alican60
Yorumlar
4
Okunma
2526
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....
128
29/12/2012
0
Tokat
-
Dün,22:45
Çö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

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.092
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Dün,08:50

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....
128
29/12/2012
0
Tokat
-
Dün,22:45
Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu.


Cevapla

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
(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....
128
29/12/2012
0
Tokat
-
Dün,22:45
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
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.626 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.467 11/04/2014, 11:13 alpeki99
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 2.212 06/03/2014, 22:44 ozcan35
Çözüldü C# dinamik filtrelemeyi Vb.nete nasıl çeviririm alican60 8 2.451 22/02/2014, 00:18 alican60
Çözüldü Yeni bir kayıt ekleme işlemi nasıl yapılır? cyberwars 12 3.131 20/02/2014, 22:12 cyberwars

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.