ms_raha
چهارشنبه 23 دی 1388, 23:48 عصر
سلام
من دو تا جدول دارم که این دو تا جدول را با هم ارتباط دادم و در datagrid نشان دادم می خواهم از datagrid اطلاعاتی را حذف کنم اگر در datagrid یک جدول باشد حذفش به صورت زیر است ولی چون دو تا جدول است که با هم ارتباط دارند نمی دونم حذف را چه طوری بنویسم
Dim constr As String = "Data source=.\SQLEXPRESS;initial catalog=konkor;integrated security=true"
Dim con1 As SqlConnection = New SqlConnection(constr)
Try
con1.Open()
Dim del As String = "delete lessons where " + ComboBox1.SelectedItem + " = '" + TextBox1.Text + "' "
Dim cmd As SqlCommand = New SqlCommand(del, con1)
cmd.ExecuteNonQuery()
Dim da1 As SqlDataAdapter = New SqlDataAdapter("select * from lessons", con1)
Dim ds1 As New DataSet
da1.Fill(ds1, "lessons")
DataGridView1.DataSource = ds1.Tables("lessons").DefaultView
Label2.Text = "ÍÐÝ ÇäÌÇã ÔÏ"
Catch ex As Exception
Label2.Text = ex.Message
Finally
con1.Close()
End Try
من دو تا جدول دارم که این دو تا جدول را با هم ارتباط دادم و در datagrid نشان دادم می خواهم از datagrid اطلاعاتی را حذف کنم اگر در datagrid یک جدول باشد حذفش به صورت زیر است ولی چون دو تا جدول است که با هم ارتباط دارند نمی دونم حذف را چه طوری بنویسم
Dim constr As String = "Data source=.\SQLEXPRESS;initial catalog=konkor;integrated security=true"
Dim con1 As SqlConnection = New SqlConnection(constr)
Try
con1.Open()
Dim del As String = "delete lessons where " + ComboBox1.SelectedItem + " = '" + TextBox1.Text + "' "
Dim cmd As SqlCommand = New SqlCommand(del, con1)
cmd.ExecuteNonQuery()
Dim da1 As SqlDataAdapter = New SqlDataAdapter("select * from lessons", con1)
Dim ds1 As New DataSet
da1.Fill(ds1, "lessons")
DataGridView1.DataSource = ds1.Tables("lessons").DefaultView
Label2.Text = "ÍÐÝ ÇäÌÇã ÔÏ"
Catch ex As Exception
Label2.Text = ex.Message
Finally
con1.Close()
End Try