السلام عليكم ورحمة الله وبركاته
أخواني أنا حاولت أعمل كود إضافة
بس يطلع لي خطاء في التنفيذ
ومو عارف ايش المشكله بالضبط
وهذا الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New SqlClient.SqlConnection
conn.ConnectionString = "initial catalog=aqar;integrated security=sspi;user id=sa"
conn.Open()
Dim cmd As SqlClient.SqlCommand
cmd = New SqlClient.SqlCommand("new111", conn)
Dim pr1 As New SqlClient.SqlParameter
pr1 = cmd.Parameters.Add("@ptsname", SqlDbType.Char, 10)
pr1.Value = TextBox1.Text
pr1 = cmd.Parameters.Add("@ptstel", SqlDbType.Int)
pr1.Value = TextBox2.Text
pr1 = cmd.Parameters.Add("@ptoname", SqlDbType.Char, 10)
pr1.Value = TextBox3.Text
pr1 = cmd.Parameters.Add("@ptotelo", SqlDbType.Int)
pr1.Value = TextBox4.Text
cmd.CommandType = CommandType.StoredProcedure
Dim dd As Integer
dd = cmd.ExecuteNonQuery<<<<<هنا مشكلتي
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Subوهذا هو البروسيجر
alter PROCEDURE dbo.new111 @ptsname char(10), @ptstel int, @ptoname char(10),@ptotelo int as insert t(tsname,tstel,toname,totel) values(@ptsname, @ptstel, @ptoname, @ptotelo)
