AccessTr.neT

Tam Versiyon: Daha önce var olan kaydı ikinciye eklememe
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhabalar, visual basic hakkında paylaşılan her şeye bakmama rağmen aradığımı bulamadım belki de gözümden kaçtı. Bu yüzden buradan sorayım dedim.

Şimdi benim sorunum vb de Access den veri çekiyorum. Ve yeni kayıt eklerken daha önce aynı bilgi kaydedilmiş mi edilmemiş mi bunu kontrol etmem lazım. Fakat ben kodları bulamıyorum lütfen yardımcı olur musunuz?

Şimdiden teşekkür ederim... Img-grin
Olay çok kolay fakat örnek ekleyiniz...

Ve hangi "alan" yada "alanlara" göre kontrol edilecek ayrıntı veriniz...
Ben fakülte ismine göre daha önce aynı veri girilmiş mi onu sorgulatacağım. Ama ben sadece kaydetmeyi yapabildim Img-cray.

 
Dim sqlEkle As New OleDb.OleDbCommand("Insert into fakulte (fakulte_adi,fakulte_adres) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", baglanti)
baglanti.Open()
sqlEkle.ExecuteNonQuery()
Label3.Text = "Yeni kayıt eklendi."

Label3.ForeColor = Color.Red
TextBox1.Text = ""
TextBox2.Text = ""

[Resim: do.php?img=4286]
Formum bu.
like ile arama yapın mesela
where fakulte_adi not like %'" & TextBox1.Text & "'%
fakülte adı içersinde textbox1teki veri yok ise kaydet anlamına geliyor.
[Resim: do.php?img=4287]

Yaptım fakat bana bu uyarıyı verdi virgüllere falan baktım ama ben bahsettiği hatayı bulamadım :/ . Kodu yanlış mı yazdım aceba böyle değil mi sırası?

 
Dim sqlEkle As New OleDb.OleDbCommand( "Insert into fakulte (fakulte_adi,fakulte_adres) values ('" & TextBox1.Text & "','" & TextBox2.Text & "') where fakulte_adi not like %'" & TextBox1.Text & "'% ", baglanti)

Programı ekliyorum ama orada where kısmını sildim.
baglanti.Open() ile açtığın bağlantıyı
baglanti.Close() ile kapatmamışsın.
Sayfalar: 1 2