Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
Yeni Konu Aç
Yeni Konu Aç

vb 2008 textbox lardan boş veri önleme

Konu, 'Visual Basic' kısmında berkay42 tarafından paylaşıldı.


  1. berkay42

    berkay42 Üye

    Kayıt:
    7 Aralık 2007
    Mesajlar:
    1
    Beğeni:
    0
    Imports System.Data
    Imports System.Data.OleDb
    Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim baglanti As New OleDbConnection
    baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source=C:\veritani.mdb"
    baglanti.Open()

    Dim cmd As New OleDbCommand
    cmd.Connection = baglanti
    cmd.CommandText = "insert into current_card (tckn,unvanı,adi,soyadi,adres,telefon,telefon1,fax,yetkili,ceptel,yetkili1,ceptel1,yetkili2,ceptel2,ilce,il) values (@tckn,@unvanı,@adi,@soyadi,@adres,@teleon,@telefon1,@telefon2,@yetkili,@ceptel,@yetkili1,@ceptel,@yetkili2,@ceptel,@ilce,@il)"
    cmd.Parameters.Add("@tckn", OleDbType.VarChar).Value = TextBox1.Text
    cmd.Parameters.Add("@unvanı", OleDbType.VarChar).Value = TextBox2.Text
    cmd.Parameters.Add("@adi", OleDbType.VarChar).Value = TextBox3.Text
    cmd.Parameters.Add("@soyadi", OleDbType.VarChar).Value = TextBox4.Text
    cmd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox5.Text
    cmd.Parameters.Add("@telefon", OleDbType.VarChar).Value = TextBox6.Text
    cmd.Parameters.Add("@telefon1", OleDbType.VarChar).Value = TextBox7.Text
    cmd.Parameters.Add("@fax", OleDbType.VarChar).Value = TextBox8.Text
    cmd.Parameters.Add("@yetkili", OleDbType.VarChar).Value = TextBox9.Text
    cmd.Parameters.Add("@ceptel", OleDbType.VarChar).Value = TextBox10.Text
    cmd.Parameters.Add("@yetkili1", OleDbType.VarChar).Value = TextBox11.Text
    cmd.Parameters.Add("@ceptel1", OleDbType.VarChar).Value = TextBox12.Text
    cmd.Parameters.Add("@yetkili2", OleDbType.VarChar).Value = TextBox13.Text
    cmd.Parameters.Add("@ceptel2", OleDbType.VarChar).Value = TextBox14.Text
    cmd.Parameters.Add("@ilce", OleDbType.VarChar).Value = TextBox15.Text
    cmd.Parameters.Add("@il", OleDbType.VarChar).Value = TextBox16.Text
    cmd.ExecuteNonQuery()
    MsgBox("kayıt İşlemi Başarılı")
    cmd.Dispose()
    baglanti.Close()
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    TextBox5.Clear()
    TextBox6.Clear()
    TextBox7.Clear()
    TextBox8.Clear()
    TextBox9.Clear()
    TextBox10.Clear()
    TextBox11.Clear()
    TextBox12.Clear()
    TextBox13.Clear()
    TextBox14.Clear()
    TextBox15.Clear()
    TextBox16.Clear()
    End Sub

    yukarıda yapmış olduğum küçük çaplı rehber programımda textbox boş iken veri kaydı yapmasın istedim ama yardımcı olursanız sevinirim bu kodları nereye yazman gerekiyor biir örneklem yapasanız sevinirim şimdiden tşkler saygılarımla sayın hocalarımız,
     
  2. aktasankara

    aktasankara Seçkin Üye Seçkin Üye

    Kayıt:
    22 Ağustos 2011
    Mesajlar:
    575
    Beğeni:
    3
    hocam verileri kaydetmeden önce kontrol yaptırabilirsin, yada sql komutlarını yazmadan önce de olabilir.

    ama cmd.ExecuteNonQuery kısmından önce yaptırman gerekli kesin olarak çünkü kaydın yapıldığı nokta orası
     
  3. BaRBaRYaN

    BaRBaRYaN Hiperaktif Üye Hiperaktif

    Kayıt:
    7 Eylül 2009
    Mesajlar:
    3.705
    Beğeni:
    19
    hocam KONTROL diye bir prosedür (metot) yaz.

    prosedürün içinde if kontrolü ile istediğini kontrol et.
    if textbox boşsa hata mesajı yazdır.

    ne zaman kayıt yaptırıyorsan (kaydet butonunun click olayında misal) orda bu prosedürü çalıştır...
     

Sayfayı Paylaş /bbnetsosyal