Dim cmdupdate As New SqlCommand
cmdupdate.CommandText = "update s1 set sh_sh=@sh_sh,sh_name=@sh_name,sh_kind=@sh_kind,sh_ date=@sh_date,sh_enh=@sh_enh,sh_ent=@sh_ent where sh_id=('" & TextBox6.Text.Trim & "')"
cmdupdate.CommandType = CommandType.Text
cmdupdate.Connection = sqlconnection1
da.UpdateCommand = cmdupdate
da.UpdateCommand.Parameters.AddWithValue("@sh_sh", TextBox2.Text.Trim)
da.UpdateCommand.Parameters.AddWithValue("@sh_name ", TextBox3.Text.Trim)
da.UpdateCommand.Parameters.AddWithValue("@sh_kind ", TextBox4.Text.Trim)
da.UpdateCommand.Parameters.AddWithValue("@sh_date ", MaskedTextBox1.Text.Trim)
da.UpdateCommand.Parameters.AddWithValue("@sh_enh" , MaskedTextBox2.Text.Trim)
da.UpdateCommand.Parameters.AddWithValue("@sh_ent" , MaskedTextBox3.Text.Trim)
sqlconnection1.Open()
da.UpdateCommand.ExecuteNonQuery()
sqlconnection1.Close()
cmdselect.CommandText = "select * from s1 where sh_id=('" & TextBox6.Text.Trim & "')"
cmdselect.CommandType = CommandType.Text
cmdselect.Connection = sqlconnection1
da.SelectCommand = cmdselect
da.Fill(ds, "s1")
sqlconnection1.Open()
da.SelectCommand.ExecuteNonQuery()
sqlconnection1.Close()
DataGridView1.DataSource = ds.Tables("s1")
DataGridView1.Columns(0).HeaderText = "کد"
DataGridView1.Columns(1).HeaderText = "شماره ثبت"
DataGridView1.Columns(2).HeaderText = "نام شرکت"
DataGridView1.Columns(3).HeaderText = "نوع شرکت"
DataGridView1.Columns(4).HeaderText = "تاریخ ثبت"
DataGridView1.Columns(5).HeaderText = "تاریخ انحلال"
DataGridView1.Columns(6).HeaderText = "تاریخ انتقال"
DataGridView1.Columns(0).Visible = False
DataGridView1.Columns(1).Width = 100
DataGridView1.Columns(2).Width = 200
DataGridView1.Columns(3).Width = 100
DataGridView1.Columns(4).Width = 100
DataGridView1.Columns(5).Width = 100
DataGridView1.Columns(6).Width = 100
به روز شدن datagridview
نوشته شده توسط maryam_vb
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول