مرحبا
يظهر الخطأ عندي في السطر قبل الاخير
userQuizDataSource.Insert.ToString()
البيانات متطابقة مع القاعدة :S لا ادري ما الخطأ هل يمكن كتابة الكود بطريقة اخرى؟
Dim al As ArrayList = CType(Session("AnswerList"), ArrayList)
resultGrid.DataSource = al
resultGrid.DataBind()
Dim questions As Double = al.Count
Dim correct As Double = 0
Dim i As Integer = 0
For i = 0 To al.Count - 1
Dim a As Answer = CType(al(i), Answer)
If a.Result = Answer.ResultValue.Correct Then
correct += 1
End If
Next
Dim score As Double
score = (correct / questions) * 100
Dim userQuizDataSource As SqlDataSource = New SqlDataSource()
userQuizDataSource.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString()
userQuizDataSource.InsertCommand = "INSERT INTO [UserQuiz] ([QuizID], [DateTimeComplete], [Score], [UserName]) VALUES (@QuizID, @DateTimeComplete, @Score, @UserName)"
userQuizDataSource.InsertParameters.Add("QuizID", Session("QuizID").ToString())
userQuizDataSource.InsertParameters.Add("DateTimeComplete", DateTime.Now.ToString())
userQuizDataSource.InsertParameters.Add("Score", score.ToString())
userQuizDataSource.InsertParameters.Add("UserName", User.Identity.Name)
userQuizDataSource.Insert.ToString()
MsgBox("Data inserted sucessfully")هنا الخطأ
Conversion failed when converting character string to smalldatetime data type.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Data.SqlClient.SqlException: Conversion failed when converting character string to smalldatetime data type.
Source Error:
Line 118: userQuizDataSource.InsertParameters.Add("Score", score.ToString())
Line 119: userQuizDataSource.InsertParameters.Add("UserName", User.Identity.Name)
Line 120: userQuizDataSource.Insert.ToString()
Line 121: MsgBox("Data inserted sucessfully")
Line 122: 'Dim rowsAffected As Integer:wub:
شكرا
