السلام عليكم ورحمة الله وبركاته
أخواني بعد جهد جهيد قدرت احصل كود insert
لأني توني مبتدء في البرمجة
جربت هذا الكود في insert واشتغل معي تمام
بس لما استخدمت DateTimePicker
رفض يرسل البيانات لأن نوع الإعلان Integer
ياليت احد يدلني لأعلان غير Integer
عشان يقبل يرسل البيانات للداتا
وإذا فيه اي خطاء في الكود ياليت تدلوني عليه
هذا الكود
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("t119", conn)
Dim pr1 As New SqlClient.SqlParameter
pr1 = cmd.Parameters.Add("@pflag", SqlDbType.Int, 4)
pr1.Value = 1
pr1 = cmd.Parameters.Add("@Tsname", SqlDbType.Char, 10)
pr1.Value = Me.TsnameTextBox.Text
pr1 = cmd.Parameters.Add("@Tstel", SqlDbType.Int, 4)
pr1.Value = Me.TstelTextBox.Text
pr1 = cmd.Parameters.Add("@Toname", SqlDbType.Char, 10)
pr1.Value = Me.TonameTextBox.Text
pr1 = cmd.Parameters.Add("@Totel", SqlDbType.Int, 4)
pr1.Value = Me.TotelTextBox.Text
pr1 = cmd.Parameters.Add("@Toadr", SqlDbType.Char, 10)
pr1.Value = Me.ToadrTextBox.Text
pr1 = cmd.Parameters.Add("@Tprice", SqlDbType.Money, 8)
pr1.Value = Me.TpriceTextBox.Text
pr1 = cmd.Parameters.Add("@Tfday", SqlDbType.DateTime, 8)
pr1.Value = Me.TfdayDateTimePicker.Text<<<<<<<<<<<<
pr1 = cmd.Parameters.Add("@Ttday", SqlDbType.DateTime, 8)
pr1.Value = Me.TtdayDateTimePicker.Text<<<<<<<<<<<<<<
pr1 = cmd.Parameters.Add("@Tmadr", SqlDbType.Char, 10)
pr1.Value = Me.TmadrTextBox.Text
pr1 = cmd.Parameters.Add("@Tkind", SqlDbType.Char, 10)
pr1.Value = Me.TkindComboBox.Text
pr1 = cmd.Parameters.Add("@Tcroom", SqlDbType.Int, 4)
pr1.Value = Me.TcroomTextBox.Text
pr1 = cmd.Parameters.Add("@Tcbath", SqlDbType.Int, 4)
pr1.Value = Me.TcbathTextBox.Text
pr1 = cmd.Parameters.Add("@Tbno", SqlDbType.Int, 4)
pr1.Value = Me.TbnoTextBox.Text
pr1 = cmd.Parameters.Add("@Tfno", SqlDbType.Int, 4)
pr1.Value = Me.TfnoTextBox.Text
pr1 = cmd.Parameters.Add("@Tadno", SqlDbType.Int, 4)
pr1.Value = Me.TadnoTextBox.Text
pr1 = cmd.Parameters.Add("@Twno", SqlDbType.Int, 4)
pr1.Value = Me.TwnoTextBox.Text
pr1 = cmd.Parameters.Add("@Tsday", SqlDbType.DateTime, 8)
pr1.Value = Me.TsdayDateTimePicker.Text<<<<<<<<<<<<<<<<<<
pr1 = cmd.Parameters.Add("@Taqno", SqlDbType.Int, 4)
pr1.Value = Me.TaqnoTextBox.Text
pr1 = cmd.Parameters.Add("@Ttex", SqlDbType.Text, 16)
pr1.Value = Me.TtexTextBox.Text
cmd.CommandType = CommandType.StoredProcedure
Dim dd As Integer
dd = cmd.ExecuteNonQuery<<<<<<<<وهنا يعطيني خطاء لأن النوع Integer
conn.Close()وهذا PROCEDURE
create PROCEDURE dbo.t119 @pflag int,@tsname char(10),@tstel int,@toname char(10),@totel int,@toadr char(10),@tprice money,@tfday datetime, @ttday datetime,@tmadr char(10),@tkind char(10),@tcroom int,@tcbath int,@tbno int,@tfno int,@tadno int,@twno int,@tsday datetime, @taqno int,@ttex text as if @pflag=1 begin insert t(tsname,tstel,toname,totel,toadr,tprice,tfday, ttday,tmadr,tkind,tcroom,tcbath,tbno,tfno,tadno,twno,tsday, taqno,ttex) values(@tsname,@tstel,@toname,@totel,@toadr,@tprice,@tfday, @ttday,@tmadr,@tkind,@tcroom,@tcbath,@tbno,@tfno,@tadno,@twno,@tsday, @taqno,@ttex) end
جزاكم الله خير يارب
