رسالة الخطأ في المرفقات
والكود الذي سبب رسالة الخطأ هو ..
Private Sub BindGrid()
Dim ConStr As New SqlConnection
ConStr.ConnectionString = ConfigurationManager.ConnectionStrings("MyConnectionString").ConnectionString
Dim myCommand As SqlCommand = New SqlCommand("Select * from News Where NewsPage=1 order by id desc", ConStr)
Dim myCmd As SqlCommand = New SqlCommand("Select * From Articles Where Display=1", ConStr)
Dim cmdWhoUS As New SqlCommand("Select * From Message Where id=1", ConStr)
Try
ConStr.Open()
' الرؤية والرسالة
Dim drWhous As SqlDataReader = cmdWhoUS.ExecuteReader(CommandBehavior.Default)
Do While drWhous.Read()
lblMessage.Text = drWhous!Message.ToString.Trim
Loop
drWhous.Close()
'الأخبار
DataList1.DataSource = myCommand.ExecuteReader(CommandBehavior.Default)
DataList1.DataBind()
'المقالات
DataListArticles.DataSource = myCmd.ExecuteReader(CommandBehavior.CloseConnection)
DataListArticles.DataBind()
Catch SQLexc As SqlException
Response.Write("Error occured while Generating Data. Error is " & SQLexc.ToString())
End Try
End Sub