selamin aleykum sayın hocalar yardımlarınız icin şimdiden tşkler ederim.


yapmış olduğum formda tekxbox kondrolunde boş veri kaydı yapılmıyor ama texkbox ları doldurunca kayıt yapıyor ama form tamamen kapanıyor bir de veri olcut hatası var nasıl yapcam bilmiyorum yardımcı olursanız sevinirim form dan bilgi kaydederken boş kayıt hatası olcut veri hatası diyor bir zahmet bil el atsanız saygılarımla cok tşkler.


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:\Documents and Settings\veritabani yolu"
baglanti.Open()
Dim cmd As New OleDbCommand
cmd.Connection = baglanti
cmd.CommandType = CommandType.Text
If TextBox1.Text "" And TextBox2.Text "" And TextBox3.Text "" And TextBox4.Text "" And TextBox5.Text "" And TextBox6.Text "" And TextBox7.Text "" And TextBox8.Text "" And TextBox9.Text "" And TextBox10.Text "" And TextBox11.Text "" And TextBox12.Text "" And TextBox13.Text "" And TextBox14.Text "" And TextBox15.Text "" And TextBox16.Text "" Then
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,@telefo n1,@telefon2,@yetkili,@ceptel,@yetkili1,@ceptel,@y etkili2,@ceptel,@ilce,@il)"
cmd.ExecuteNonQuery()
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
MsgBox("kayıt İşlemi Başarılı")
End
Else
MsgBox("Formda Boş Alan Bırakmayınız")
End If
cmd.Dispose()
baglanti.Close()

End Sub
End Class
__________________