مشکل در insert کردن( asp.net)
میخواهم اطلاعات وارد شده در بانکم ذخیره شود. کد زیر را نوشتم
کد:
Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs)
Dim conn As SqlConnection = Nothing
Dim trans As SqlTransaction = Nothing
Dim cmd As SqlCommand
Try
conn = New SqlConnection(ConfigurationManager.ConnectionStrings("Data Source=FA-PC;Initial Catalog=esteghlal;Integrated Security=True").ConnectionString)
conn.Open()
trans = conn.BeginTransaction
cmd = New SqlCommand()
cmd.Connection = conn
cmd.Transaction = trans
cmd.CommandText = "INSERT INTO orders(odate, oname,ofam, address, county,zipcode, city,tel,mob, subtotal, discount, total) " & _
"VALUES ( @odate, @oname,@ofam, @address, @county, @zipcode, @city,@tel,@mob, @subtotal, @discount, @total)"
cmd.Parameters.Add("@odate", Data.SqlDbType.DateTime)
cmd.Parameters.Add("@oname", Data.SqlDbType.VarChar, 25)
cmd.Parameters.Add("@ofam", Data.SqlDbType.VarChar, 30)
cmd.Parameters.Add("@address", Data.SqlDbType.VarChar, 255)
cmd.Parameters.Add("@county", Data.SqlDbType.NChar, 10)
cmd.Parameters.Add("@zipCode", Data.SqlDbType.NChar, 15)
cmd.Parameters.Add("@city", Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@subtotal", Data.SqlDbType.Money)
cmd.Parameters.Add("@discount", Data.SqlDbType.Money)
cmd.Parameters.Add("@total", Data.SqlDbType.Money)
cmd.Parameters.Add("@tel", Data.SqlDbType.NChar, 8)
cmd.Parameters.Add("@mob", Data.SqlDbType.NChar, 10)
cmd.Parameters("@odate").Value = DateTime.Now()
cmd.Parameters("@oName").Value = CType(Wizard1.FindControl("txtName"), TextBox).Text
cmd.Parameters("@ofam").Value = CType(Wizard1.FindControl("txtfam"), TextBox).Text
cmd.Parameters("@Address").Value = CType(Wizard1.FindControl("txtaddress"), TextBox).Text
cmd.Parameters("@County").Value = CType(Wizard1.FindControl("txtCounty"), TextBox).Text
cmd.Parameters("@zipCode").Value = CType(Wizard1.FindControl("txtzipCode"), TextBox).Text
cmd.Parameters("@city").Value = CType(Wizard1.FindControl("txtcity"), TextBox).Text
cmd.Parameters("@tel").Value = CType(Wizard1.FindControl("txtphon"), TextBox).Text
cmd.Parameters("@mob").Value = CType(Wizard1.FindControl("txtmob"), TextBox).Text
cmd.Parameters("@subtotal").Value = Profile.cart.SubTotal
cmd.Parameters("@discount").Value = Profile.cart.Items
cmd.Parameters("@total").Value = Profile.cart.total
Dim oid As Integer
oid = Convert.ToInt32(cmd.ExecuteScalar())
cmd.CommandText = "INSERT INTO orderline(oid, productid, count, price) " & _
"VALUES (@oid, @productid, @count, @price)"
cmd.Parameters.Clear()
cmd.Parameters.Add("@oid", Data.SqlDbType.Int)
cmd.Parameters.Add("@productid", Data.SqlDbType.Int)
cmd.Parameters.Add("@count", Data.SqlDbType.Int)
cmd.Parameters.Add("@price", Data.SqlDbType.Money)
cmd.Parameters("@oid").Value = oid
For Each item As Cart In Profile.cart.Items
cmd.Parameters("@productid").Value = item.ProductID
cmd.Parameters("@count").Value = item.Quantity
cmd.Parameters("@price").Value = item.Price
cmd.ExecuteNonQuery()
Next
trans.Commit()
Catch SqlEx As SqlException
If trans IsNot Nothing Then
trans.Rollback()
End If
Throw New Exception("An error occurred while creating the orders", SqlEx)
Return
Finally
If conn IsNot Nothing Then
conn.Close()
End If
End Try
' Profile.cart.Items.Clear()
End Sub
اما ذخیره نکرد. بعد از کلی کار کردن حالا خطای زیر رو میده که نمیدونم چیه تا بتونم مشکلش رو حل کنم؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ممنون میشم اگر راهنمایی کنید.
