farhad85
چهارشنبه 11 دی 1392, 00:21 صبح
با سلام خدمت اساتید ودوستان عزیز
کد زیر اطلاعات تکس ها و عکس رو بدرستی دخیره میکنه ولی چند موردشو نتونستم درست کنم
1-من اجباری برای قرار گذاشتن عکس برای کاربر فرار ندادم و میتونه خالی بزارتش ولی اگه عکسی رو انتخاب نکنه و دکمه ذخبره رو بزنه این خطا رو میده ؟ Object reference not set to an instance of an object.
2-اینکه میخوام که در هنگام ذخیره با دستور try یا هر دستوری دیگه ای جلوی ورود کدتکراری کد ملی رو بگیره؟
3- اینکه وقتی اطلاعات تکسهام+عکسم ذخیره شد هروقت روی یک رکورد در دیتا گراید کلیک کردم اطلاعات رکورد دیتا گراید داخل تکسها وپیکچر باکس فرمم نشون داده بشه. یعنی اگز رکورد ذخیره شده دارای عکس بود با کلیک روی رکورد همزمان توی پیکچر باکس روی فرمم نشون داده بشه
Dim my_cm4 As New SqlCommand("insert into moshakhasat(code_meli,name,family,n_p,sh_sh,t_t,m_ sodur,tahsilat,reshte,shoghl,taahol,t_khanevade,so kunat,ostan,shahrestan,bakhsh,dehestan,rusta,m_kha damat,n_shora,h_shora,n_dehyar,h_dehyar,sh_hesab,s h_cart,h_keshavarz,code_posti,email,t_sabtename,m_ sabt,adres,toz,pic) values (@code_meli,@name,@family,@n_p,@sh_sh,@t_t,@m_sodu r,@tahsilat,@reshte,@shoghl,@taahol,@t_khanevade,@ sokunat,@ostan,@shahrestan,@bakhsh,@dehestan,@rust a,@m_khadamat,@n_shora,@h_shora,@n_dehyar,@h_dehya r,@sh_hesab,@sh_cart,@h_keshavarz,@code_posti,@ema il,@t_sabtename,@m_sabt,@adres,@toz,@pic)", my_cn)
Dim my_da4 As New SqlDataAdapter("Select * from moshakhasat", my_cn)
Dim my_ds4 As New DataSet
Dim my_cb4 As New SqlCommandBuilder(my_da4)
my_cm4.Parameters.Add("@code_meli", SqlDbType.NVarChar, 50).Value = TextBox1.Text
my_cm4.Parameters.Add("@name", SqlDbType.NVarChar).Value = TextBox2.Text
my_cm4.Parameters.Add("@family", SqlDbType.NVarChar).Value = TextBox3.Text
my_cm4.Parameters.Add("@n_p", SqlDbType.NVarChar).Value = TextBox4.Text
my_cm4.Parameters.Add("@sh_sh", SqlDbType.NVarChar).Value = TextBox5.Text
my_cm4.Parameters.Add("@t_t", SqlDbType.NVarChar).Value = MaskedTextBox1.Text
my_cm4.Parameters.Add("@m_sodur", SqlDbType.NVarChar).Value = TextBox6.Text
my_cm4.Parameters.Add("@tahsilat", SqlDbType.NVarChar).Value = ComboBox1.Text
my_cm4.Parameters.Add("@reshte", SqlDbType.NVarChar).Value = TextBox7.Text
my_cm4.Parameters.Add("@shoghl", SqlDbType.NVarChar).Value = ComboBox2.Text
my_cm4.Parameters.Add("@taahol", SqlDbType.NVarChar).Value = ComboBox3.Text
my_cm4.Parameters.Add("@t_khanevade", SqlDbType.NVarChar).Value = TextBox8.Text
my_cm4.Parameters.Add("@sokunat", SqlDbType.NVarChar).Value = ComboBox4.Text
my_cm4.Parameters.Add("@ostan", SqlDbType.NVarChar).Value = ComboBox5.Text
my_cm4.Parameters.Add("@shahrestan", SqlDbType.NVarChar).Value = ComboBox6.Text
my_cm4.Parameters.Add("@bakhsh", SqlDbType.NVarChar).Value = TextBox9.Text
my_cm4.Parameters.Add("@dehestan", SqlDbType.NVarChar).Value = TextBox10.Text
my_cm4.Parameters.Add("@rusta", SqlDbType.NVarChar).Value = TextBox11.Text
my_cm4.Parameters.Add("@m_khadamat", SqlDbType.NVarChar).Value = TextBox12.Text
my_cm4.Parameters.Add("@n_shora", SqlDbType.NVarChar).Value = TextBox13.Text
my_cm4.Parameters.Add("@h_shora", SqlDbType.NVarChar).Value = TextBox14.Text
my_cm4.Parameters.Add("@n_dehyar", SqlDbType.NVarChar).Value = TextBox15.Text
my_cm4.Parameters.Add("@h_dehyar", SqlDbType.NVarChar).Value = TextBox16.Text
my_cm4.Parameters.Add("@sh_hesab", SqlDbType.NVarChar).Value = TextBox17.Text
my_cm4.Parameters.Add("@sh_cart", SqlDbType.NVarChar).Value = TextBox18.Text
my_cm4.Parameters.Add("@h_keshavarz", SqlDbType.NVarChar).Value = TextBox19.Text
my_cm4.Parameters.Add("@code_posti", SqlDbType.NVarChar).Value = TextBox20.Text
my_cm4.Parameters.Add("@t_sabtename", SqlDbType.NVarChar).Value = MaskedTextBox2.Text
my_cm4.Parameters.Add("@m_sabt", SqlDbType.NVarChar).Value = TextBox21.Text
my_cm4.Parameters.Add("@email", SqlDbType.NVarChar).Value = TextBox22.Text
my_cm4.Parameters.Add("@adres", SqlDbType.NVarChar).Value = TextBox23.Text
my_cm4.Parameters.Add("@toz", SqlDbType.NVarChar).Value = TextBox24.Text
Dim ms As New MemoryStream
Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
Dim arrPic() As Byte = ms.GetBuffer
my_cm4.Parameters.Add("@Pic", SqlDbType.VarBinary).Value = arrPic
my_cm4.ExecuteNonQuery()
my_da4.Fill(my_ds4, "moshakhasat")
DataGridView1.DataSource = (my_ds4)
DataGridView1.DataMember = "moshakhasat"
کد زیر اطلاعات تکس ها و عکس رو بدرستی دخیره میکنه ولی چند موردشو نتونستم درست کنم
1-من اجباری برای قرار گذاشتن عکس برای کاربر فرار ندادم و میتونه خالی بزارتش ولی اگه عکسی رو انتخاب نکنه و دکمه ذخبره رو بزنه این خطا رو میده ؟ Object reference not set to an instance of an object.
2-اینکه میخوام که در هنگام ذخیره با دستور try یا هر دستوری دیگه ای جلوی ورود کدتکراری کد ملی رو بگیره؟
3- اینکه وقتی اطلاعات تکسهام+عکسم ذخیره شد هروقت روی یک رکورد در دیتا گراید کلیک کردم اطلاعات رکورد دیتا گراید داخل تکسها وپیکچر باکس فرمم نشون داده بشه. یعنی اگز رکورد ذخیره شده دارای عکس بود با کلیک روی رکورد همزمان توی پیکچر باکس روی فرمم نشون داده بشه
Dim my_cm4 As New SqlCommand("insert into moshakhasat(code_meli,name,family,n_p,sh_sh,t_t,m_ sodur,tahsilat,reshte,shoghl,taahol,t_khanevade,so kunat,ostan,shahrestan,bakhsh,dehestan,rusta,m_kha damat,n_shora,h_shora,n_dehyar,h_dehyar,sh_hesab,s h_cart,h_keshavarz,code_posti,email,t_sabtename,m_ sabt,adres,toz,pic) values (@code_meli,@name,@family,@n_p,@sh_sh,@t_t,@m_sodu r,@tahsilat,@reshte,@shoghl,@taahol,@t_khanevade,@ sokunat,@ostan,@shahrestan,@bakhsh,@dehestan,@rust a,@m_khadamat,@n_shora,@h_shora,@n_dehyar,@h_dehya r,@sh_hesab,@sh_cart,@h_keshavarz,@code_posti,@ema il,@t_sabtename,@m_sabt,@adres,@toz,@pic)", my_cn)
Dim my_da4 As New SqlDataAdapter("Select * from moshakhasat", my_cn)
Dim my_ds4 As New DataSet
Dim my_cb4 As New SqlCommandBuilder(my_da4)
my_cm4.Parameters.Add("@code_meli", SqlDbType.NVarChar, 50).Value = TextBox1.Text
my_cm4.Parameters.Add("@name", SqlDbType.NVarChar).Value = TextBox2.Text
my_cm4.Parameters.Add("@family", SqlDbType.NVarChar).Value = TextBox3.Text
my_cm4.Parameters.Add("@n_p", SqlDbType.NVarChar).Value = TextBox4.Text
my_cm4.Parameters.Add("@sh_sh", SqlDbType.NVarChar).Value = TextBox5.Text
my_cm4.Parameters.Add("@t_t", SqlDbType.NVarChar).Value = MaskedTextBox1.Text
my_cm4.Parameters.Add("@m_sodur", SqlDbType.NVarChar).Value = TextBox6.Text
my_cm4.Parameters.Add("@tahsilat", SqlDbType.NVarChar).Value = ComboBox1.Text
my_cm4.Parameters.Add("@reshte", SqlDbType.NVarChar).Value = TextBox7.Text
my_cm4.Parameters.Add("@shoghl", SqlDbType.NVarChar).Value = ComboBox2.Text
my_cm4.Parameters.Add("@taahol", SqlDbType.NVarChar).Value = ComboBox3.Text
my_cm4.Parameters.Add("@t_khanevade", SqlDbType.NVarChar).Value = TextBox8.Text
my_cm4.Parameters.Add("@sokunat", SqlDbType.NVarChar).Value = ComboBox4.Text
my_cm4.Parameters.Add("@ostan", SqlDbType.NVarChar).Value = ComboBox5.Text
my_cm4.Parameters.Add("@shahrestan", SqlDbType.NVarChar).Value = ComboBox6.Text
my_cm4.Parameters.Add("@bakhsh", SqlDbType.NVarChar).Value = TextBox9.Text
my_cm4.Parameters.Add("@dehestan", SqlDbType.NVarChar).Value = TextBox10.Text
my_cm4.Parameters.Add("@rusta", SqlDbType.NVarChar).Value = TextBox11.Text
my_cm4.Parameters.Add("@m_khadamat", SqlDbType.NVarChar).Value = TextBox12.Text
my_cm4.Parameters.Add("@n_shora", SqlDbType.NVarChar).Value = TextBox13.Text
my_cm4.Parameters.Add("@h_shora", SqlDbType.NVarChar).Value = TextBox14.Text
my_cm4.Parameters.Add("@n_dehyar", SqlDbType.NVarChar).Value = TextBox15.Text
my_cm4.Parameters.Add("@h_dehyar", SqlDbType.NVarChar).Value = TextBox16.Text
my_cm4.Parameters.Add("@sh_hesab", SqlDbType.NVarChar).Value = TextBox17.Text
my_cm4.Parameters.Add("@sh_cart", SqlDbType.NVarChar).Value = TextBox18.Text
my_cm4.Parameters.Add("@h_keshavarz", SqlDbType.NVarChar).Value = TextBox19.Text
my_cm4.Parameters.Add("@code_posti", SqlDbType.NVarChar).Value = TextBox20.Text
my_cm4.Parameters.Add("@t_sabtename", SqlDbType.NVarChar).Value = MaskedTextBox2.Text
my_cm4.Parameters.Add("@m_sabt", SqlDbType.NVarChar).Value = TextBox21.Text
my_cm4.Parameters.Add("@email", SqlDbType.NVarChar).Value = TextBox22.Text
my_cm4.Parameters.Add("@adres", SqlDbType.NVarChar).Value = TextBox23.Text
my_cm4.Parameters.Add("@toz", SqlDbType.NVarChar).Value = TextBox24.Text
Dim ms As New MemoryStream
Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
Dim arrPic() As Byte = ms.GetBuffer
my_cm4.Parameters.Add("@Pic", SqlDbType.VarBinary).Value = arrPic
my_cm4.ExecuteNonQuery()
my_da4.Fill(my_ds4, "moshakhasat")
DataGridView1.DataSource = (my_ds4)
DataGridView1.DataMember = "moshakhasat"