arman_Delta2002
یک شنبه 06 آذر 1390, 10:21 صبح
سلام
کمخواستم بدونم چطور میشه صحت وجود یک پارامتر رو در DataAdaptor تشخیص داد
به عنوان مثال
من 5 پارامتر در DataAdaptorدارم و بعد از پاک کردن 23 پارامتر می خوام بدونم که آیا این 2 پارامتر پاک شده هنوز هست یا باید دواره پاکشون کنم
With Base_FactorFroshDataAdaptor1.UpdateCommand
.Parameters("@L_D_Acc_DaftarMali").Value = Val(Label1.Text)
If .Parameters("@ShomarehSabt"). Then
.Parameters.RemoveAt("@ShomarehSabt")
End If
.Parameters.RemoveAt("@Tarikh")
.Parameters.RemoveAt("@ShomareFactor")
.Parameters("@KodeFroshande").Value = TextBox_CodeFroshandeh1.Text
.Parameters("@SharhFroshande").Value = TextBox_NameFroshandeh1.Text
.Parameters.RemoveAt("@KodeProjeMarbot")
.Parameters.RemoveAt("@SharhPorjeMarbot")
.Parameters.RemoveAt("@KodeSandoghPardakhti")
.Parameters.RemoveAt("@SharhSandoghPardakhti")
.Parameters("@Jame").Value = TextBox_Jame1.Text
.Parameters("@Takhfif").Value = Val(TextBox_Takhfif1.Text)
.Parameters.RemoveAt("@GhabelePardakht")
.Parameters.RemoveAt("@Mande")
.Parameters.RemoveAt("@TakhfifePardakhtNaghdi")
.Parameters.RemoveAt("@PardakhtNaghdi")
.Parameters.RemoveAt("@JamekolSandogh")
.Parameters("@Roz1").Value = Val(SpinEdit_Roz1.EditValue)
.Parameters("@Mah1").Value = Val(SpinEdit_Mah1.EditValue)
.Parameters("@Sal1").Value = Val(SpinEdit_Sal1.EditValue)
.Parameters("@Tozihat").Value = TextBox_Tozihat1.Text
.Parameters.RemoveAt("@Active")
.Parameters("@PishFactor").Value = Convert.ToBoolean(CheckBox_Pishfactor1.Checked)
.Parameters.RemoveAt("@DateAdd")
.Parameters.RemoveAt("@DateEdit")
.Parameters("@Select1").Value = Convert.ToBoolean(CheckBox_Selected1.Checked)
.Parameters("@ID").Value = Val(Label2.Text)
.ExecuteNonQuery()
End With
این شرط رو باید چطور بنویسم تا درست کار کنه ؟
If .Parameters("@ShomarehSabt"). Then
.Parameters.RemoveAt("@ShomarehSabt")
End If
کمخواستم بدونم چطور میشه صحت وجود یک پارامتر رو در DataAdaptor تشخیص داد
به عنوان مثال
من 5 پارامتر در DataAdaptorدارم و بعد از پاک کردن 23 پارامتر می خوام بدونم که آیا این 2 پارامتر پاک شده هنوز هست یا باید دواره پاکشون کنم
With Base_FactorFroshDataAdaptor1.UpdateCommand
.Parameters("@L_D_Acc_DaftarMali").Value = Val(Label1.Text)
If .Parameters("@ShomarehSabt"). Then
.Parameters.RemoveAt("@ShomarehSabt")
End If
.Parameters.RemoveAt("@Tarikh")
.Parameters.RemoveAt("@ShomareFactor")
.Parameters("@KodeFroshande").Value = TextBox_CodeFroshandeh1.Text
.Parameters("@SharhFroshande").Value = TextBox_NameFroshandeh1.Text
.Parameters.RemoveAt("@KodeProjeMarbot")
.Parameters.RemoveAt("@SharhPorjeMarbot")
.Parameters.RemoveAt("@KodeSandoghPardakhti")
.Parameters.RemoveAt("@SharhSandoghPardakhti")
.Parameters("@Jame").Value = TextBox_Jame1.Text
.Parameters("@Takhfif").Value = Val(TextBox_Takhfif1.Text)
.Parameters.RemoveAt("@GhabelePardakht")
.Parameters.RemoveAt("@Mande")
.Parameters.RemoveAt("@TakhfifePardakhtNaghdi")
.Parameters.RemoveAt("@PardakhtNaghdi")
.Parameters.RemoveAt("@JamekolSandogh")
.Parameters("@Roz1").Value = Val(SpinEdit_Roz1.EditValue)
.Parameters("@Mah1").Value = Val(SpinEdit_Mah1.EditValue)
.Parameters("@Sal1").Value = Val(SpinEdit_Sal1.EditValue)
.Parameters("@Tozihat").Value = TextBox_Tozihat1.Text
.Parameters.RemoveAt("@Active")
.Parameters("@PishFactor").Value = Convert.ToBoolean(CheckBox_Pishfactor1.Checked)
.Parameters.RemoveAt("@DateAdd")
.Parameters.RemoveAt("@DateEdit")
.Parameters("@Select1").Value = Convert.ToBoolean(CheckBox_Selected1.Checked)
.Parameters("@ID").Value = Val(Label2.Text)
.ExecuteNonQuery()
End With
این شرط رو باید چطور بنویسم تا درست کار کنه ؟
If .Parameters("@ShomarehSabt"). Then
.Parameters.RemoveAt("@ShomarehSabt")
End If