vb 2008 textbox lardan boş veri önleme

Kodla Büyü

berkay42

Üye
Mesajlar
1
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,
 
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ı
 
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...
 
Geri
Üst