مشاهده نسخه کامل
: ghaderif
09-06-2011, 10:31
با سلام.
برای ویرایش اطلاعات در برنامه وقتی اطلاعات را جستجو و سپس در textboxها قرار می دهم، بعد از اینکه ویرایش روی آنها انجام میدم و دکمه "ویرایش" را می زنم، وقتی وارد جدولم میشم میبینم تمامی فیلدها فاقد مقدار می باشند، ویرایش که صورت نگرفته هیچ، اطلاعات هم حذف میشه اما مقدار null نمی زنه، فقط خالیه؟ چکار باید بکنم. کدی که نوشتم را میگذارم:
Dim conupdate As SqlConnection = New SqlConnection("Data Source=192.168.0.1;Initial Catalog=itdanesh;User ID=itd;Password=itdanesh")
conupdate.Open()
Dim cmdup As SqlCommand = New SqlCommand("update student set namest='" + Tnames.Text + "',lname='" + Tfamils.Text + "',namepst='" + Tfs.Text + "',---='" + CsexS.SelectedItem + "',birth='" + Cyears.SelectedItem + "',shno='" + Tshshs.Text + "',id='" + Tcodes.Text + "',placesh='" + TSodor.Text + "',section='" + CtahsilS.SelectedItem + "',branch='" + Treshtes.Text + "',plschool='" + Tplaces.Text + "',email='" + Temails.Text + "',mobile='" + Tmobiles.Text + "',address='" + Taddresss.Text + "' where stno=" + TsearchSu.Text, conupdate)
cmdup.ExecuteNonQuery()
conupdate.Close()
MsgBox("اطلاعات ویرایش شد")
Tnames.Text = ""
Tfamils.Text = ""
Tfs.Text = ""
CsexS.SelectedItem = ""
Cyears.SelectedItem = ""
Tshshs.Text = "" , ...
برای ویرایش اطلاعات در برنامه وقتی اطلاعات را جستجو و سپس در textboxها قرار می دهم، بعد از اینکه ویرایش روی آنها انجام میدم و دکمه "ویرایش" را می زنم، وقتی وارد جدولم میشم میبینم تمامی فیلدها فاقد مقدار می باشند، ویرایش که صورت نگرفته هیچ، اطلاعات هم حذف میشه اما مقدار null نمی زنه، فقط خالیه؟ چکار باید بکنم. کدی که نوشتم را میگذارم:
Dim conupdate As SqlConnection = New SqlConnection("Data Source=192.168.0.1;Initial Catalog=itdanesh;User ID=itd;Password=itdanesh")
conupdate.Open()
Dim cmdup As SqlCommand = New SqlCommand("update student set namest='" + Tnames.Text + "',lname='" + Tfamils.Text + "',namepst='" + Tfs.Text + "',---='" + CsexS.SelectedItem + "',birth='" + Cyears.SelectedItem + "',shno='" + Tshshs.Text + "',id='" + Tcodes.Text + "',placesh='" + TSodor.Text + "',section='" + CtahsilS.SelectedItem + "',branch='" + Treshtes.Text + "',plschool='" + Tplaces.Text + "',email='" + Temails.Text + "',mobile='" + Tmobiles.Text + "',address='" + Taddresss.Text + "' where stno=" + TsearchSu.Text, conupdate)
cmdup.ExecuteNonQuery()
conupdate.Close()
MsgBox("اطلاعات ویرایش شد")
Tnames.Text = ""
Tfamils.Text = ""
Tfs.Text = ""
CsexS.SelectedItem = ""
Cyears.SelectedItem = ""
Tshshs.Text = "" , ...