09-04-20, 05:24 PM
خطاْ في الإستعلام
عملت هذا
ويظهرلي خطأ في هذا السطر
ولما احذفه يقولي تمام ولايضاف شي
ماهو الحل
عملت هذا
كود :
Protected Sub InsertNew()
Try
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionStringCompanyAwaedo").ConnectionString
conn.Open()
Dim Sql As String = "INSERT INTO TContent(FIDContent, ContentDaTi, ContentTitle, ContentSummary, ContentImage, ContentText) Values (@ContentText, @ContentDaTi, @ContentTitle, @ContentSummary, @ContentImage, @ContentText)"
Dim cmd As SqlCommand = New SqlCommand(Sql, conn)
cmd.Parameters.AddWithValue("@FIDContent", TxTCategory.SelectedValue)
cmd.Parameters.AddWithValue("@ContentTitle", TxTTitle.Text.Trim)
cmd.Parameters.AddWithValue("@ContentDaTi", Date.Now.ToString("yyyy/MM/dd"))
cmd.Parameters.AddWithValue("@ContentSummary", TxTSumm.Text.Trim)
cmd.Parameters.AddWithValue("@ContentImage", TxTImage.Text.Trim)
cmd.Parameters.AddWithValue("@ContentText", TxTMore.Text.Trim)
cmd.ExecuteScalar()
conn.Close()
Lbmsg.BackColor = Drawing.Color.Green
Lbmsg.ForeColor = Drawing.Color.White
Lbmsg.Text = "تم إضافة المحتوى بنجاح"
Catch ex As Exception
Lbmsg.BackColor = Drawing.Color.Red
Lbmsg.ForeColor = Drawing.Color.White
Lbmsg.Text = "لم يتم إضافة المحتوى" + ex.ToString
End Try
End Sub
ويظهرلي خطأ في هذا السطر
كود :
cmd.ExecuteScalar()
ولما احذفه يقولي تمام ولايضاف شي
ماهو الحل