Asp.net sayfamda aşağıdaki gibi bir sql update sorgum var, ancak ne yaptıysam bir türlü çalıştırmayı başaramadım. Daha doğrusu sorgu çalıştığında update ediyor ancak ... bu şekilde bir hata veriyor ve ondan sonra kapanıyor. Parametre eklmede hatamı yapıyorum acaba ?
IIf(IsNothing(ASPxTextBox6.Value), DBNull.Value, "deger dolu")
Bu kısımları null olursa diye internetten araştırıp ekledim ancak doğrumu oldu tam olarak bilmiyorum.
Yardımlarının için teşerkkürler.
Try
If Page.Request.QueryString.Get("type").ToString <> "" Then
If Page.Request.QueryString.Get("type").ToString = "edit" Then
If Page.Request.QueryString.Get("ID").ToString <> "" Then
Kayit_id = Convert.ToInt32(ASPxTextBox25.Text)
Con.Open()
SqlSorgu = "UPDATE URUNLER SET kfz_line=@kfz_line ,opr_time=@opr_time,username=@Username" & _
",priority=@priority, not_possible_for_object=@not_possible_for_object" & _
",0ball_hd=@0ball_hd,0ball_oe=@0ball_oe,ball_pin_thread=@ball_pin_thread" & _
",length_mm=@length_mm,heads=@heads,angle=@angle,sart=@sart" & _
",meyart=@meyart,oe=@oe,application=@application,sales2007=@sales2007" & _
",sales2006=@sales2006,hersteller=@hersteller,completed_drawing=@completed_drawing " & _
",meyresultfor_drawing=@meyresultfor_drawing,about_sample=@about_sample" & _
",sample_sent_date=@sample_sent_date,meyresult_for_sample=@meyresult_for_sample" & _
",notes=@notes,meyapproved_date=@meyapproved_date,absenceofoe=@absenceofoe,archived=@archived" & _
" where Kimlik=@Kayit_id"
Dim Update_cmd As New OleDbCommand(SqlSorgu, Con)
IIf(IsNothing(ASPxTextBox2.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@kfz_line", OleDbType.Variant, 20).Value = ASPxTextBox2.Text
Update_cmd.Parameters.Add("@opr_time", OleDbType.DBDate, 10).Value = FormatDateTime((Convert.ToDateTime(Tarih)), DateFormat.ShortDate)
Update_cmd.Parameters.Add("@Username", OleDbType.Variant, 20).Value = Username
Update_cmd.Parameters.Add("@priority", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox3.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@not_possible_for_object", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox4.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@0ball_hd", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox5.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@0ball_oe", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox6.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@ball_pin_thread", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox7.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@length_mm", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox8.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@heads", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox9.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@angle", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox10.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@sart", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox11.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@meyart", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox12.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@oe", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox13.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@application", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox14.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@sales2007", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox15.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@sales2006", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox16.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@hersteller", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox17.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@completed_drawing", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox18.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@meyresultfor_drawing", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox19.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@about_sample", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox20.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@sample_sent_date", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox21.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@meyresult_for_sample", OleDbType.Variant).Value = IIf(IsNothing(ASPxComboBox1.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@notes", OleDbType.Variant).Value = IIf(IsNothing(ASPxMemo1.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@meyapproved_date", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox23.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@absenceofoe", OleDbType.Variant).Value = IIf(IsNothing(ASPxTextBox24.Value), DBNull.Value, "deger dolu")
Update_cmd.Parameters.Add("@archived", OleDbType.Variant).Value = Archived
Update_cmd.Parameters.Add("@Kayit_id", OleDbType.Variant).Value = Kayit_id
Dim rows As Integer = Update_cmd.ExecuteNonQuery()
Con.Close()
End If
End If
End If
Catch ex As Exception
MsgBox("Can't load Web page" & vbCrLf & ex.Message)
End Try
Tablomda sadece opr_time alanı date/time formatında diğer alanların hepsi text tipinde.
macromedya@yahoo.com