visual basic System.Data.SqlClient.SqlException: 'The parameterized query hatası

[mustafa_gul7]

Merhaba ben bir muhasebe uygulaması yapmak isterken karşıma böyle bir hata çıktı System.Data.SqlClient.SqlException: 'The parameterized query '(@Ad nchar(4000),@Soyad nchar(4000),@Tel_no nchar(4000),@Borç in' expects the parameter '@p1', which was not supplied.'


kodlar;


Imports System.Data.SqlClient

<DebuggerDisplay("{GetDebuggerDisplay(),nq}")>
Public Class Form2


Private Sub Kapat_Click(sender As Object, e As EventArgs) Handles Kapat.Click
Form1.Show()
Me.Close()

End Sub







Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Bu kod satırı 'MehmeteniştemsqlserverDataSet2.enistemsql' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'MehmeteniştemsqlserverDataSet1.enistemsql' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'MehmeteniştemsqlserverDataSet.enistemsql' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'Database2DataSet1.Table1' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'Database2DataSet1.Table1' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'Database2DataSet1.Table1' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)
'TODO: Bu kod satırı 'DenizmobilyaDataSet.Table' tablosuna veri yükler. Bunu gerektiği şekilde taşıyabilir, veya kaldırabilirsiniz.
Me.EnistemsqlTableAdapter.Fill(Me.MehmeteniştemsqlserverDataSet2.enistemsql)

RadioButton1.Visible = False
RadioButton2.Visible = False

EnistemsqlTableAdapter.Update(MehmeteniştemsqlserverDataSet2)

End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub Önceki_Click(sender As Object, e As EventArgs) Handles Önceki.Click

RadioButton1.Visible = False
RadioButton2.Visible = False

EnistemsqlBindingSource.MovePrevious()

End Sub

Private Sub Sonraki_Click(sender As Object, e As EventArgs) Handles sonraki.Click

RadioButton1.Visible = False
RadioButton2.Visible = False

EnistemsqlBindingSource.MoveNext()


End Sub

Private Sub yeni_Click(sender As Object, e As EventArgs) Handles yeni.Click

RadioButton1.Visible = True
RadioButton2.Visible = True
EnistemsqlBindingSource.AddNew()


End Sub

Private Sub Kaydet_Click(sender As Object, e As EventArgs) Handles güncelle.Click

EnistemsqlBindingSource.EndEdit()
MessageBox.Show("Veri kaydedildi")


End Sub

Private Sub Sil_Click(sender As Object, e As EventArgs) Handles sil.Click


RadioButton1.Visible = False
RadioButton2.Visible = False

EnistemsqlBindingSource.RemoveCurrent()
EnistemsqlTableAdapter.Update(MehmeteniştemsqlserverDataSet2)



End Sub

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
taksit1.Visible = False
taksit2.Visible = False
taksit3.Visible = False
taksit4.Visible = False
taksit5.Visible = False
taksit6.Visible = False
taksit7.Visible = False
taksit8.Visible = False
taksit9.Visible = False
taksit10.Visible = False
taksit11.Visible = False
taksit12.Visible = False

End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
taksit1.Visible = True
taksit2.Visible = True
taksit3.Visible = True
taksit4.Visible = True
taksit5.Visible = True
taksit6.Visible = True
taksit7.Visible = True
taksit8.Visible = True
taksit9.Visible = True
taksit10.Visible = True
taksit11.Visible = True
taksit12.Visible = True


End Sub

End Class