السلام عليكم .... لو سمحتو انا نشتغل علي برنامج Microsoft Visual Studio 2008 بلغة ASP.NET وقاعدة بينات بلغة SQL SERVER وعندي كود برمجي فيه اخطاء ... لو سمحتو في حد يقدر يساعدني ...... ارجوووووووووكم .
هدا هو الكود البرمجي (لتنزيل مواد طالب )
1- كود تنزيل المواد:-
Imports System.Data.SqlClient
Partial Class DownLoad
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
Dim cmd As New SqlCommand
Dim myreader As SqlDataReader
Dim query As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label2.Text = " المعدّل التراكمي = " & Request.QueryString("Av") & "%"
Label1.Text = "يحق لك التنزيل " & Request.QueryString("Co") & " وحدة "
End Sub
Protected Sub Repeater1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles Repeater1.ItemCommand
End Sub
Protected Sub Repeater1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles Repeater1.ItemDataBound
Dim Btn As Button = e.Item.FindControl("BtnDonLod")
Dim SubNo As String = Btn.CommandArgument
Dim req As Label = e.Item.FindControl("RequisitesLabel")
If req.Text = "--" Then
Btn.Enabled = True
Btn.Font.Bold = True
Btn.ForeColor = Drawing.Color.Red
Else
'إن كانت للمادة اعتمادية يتم التأكد من أن الطالب المحدد أنجز الاعتماديّة أم لا
query = "select * from Result where SubNo='" & req.Text & "' AND StuNo ='" + Request.QueryString("No") + "' And Mark >=50 "
cmd = New SqlCommand(query, con)
cmd.Connection = con
con.Open()
myreader = cmd.ExecuteReader()
'إن كانت الاعتمادية مُنجزة يتم تنشيط زر المادة
If myreader.Read Then
Btn.Enabled = True
Btn.Font.Bold = True
Btn.ForeColor = Drawing.Color.Red
'إن كانت الاعتمادية مُنجزة لا يتم تنشيط زر المادة
Else
Btn.Enabled = False
End If
End If
con.Close()
'End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("Reports.aspx?stuNo=" + Request.QueryString("No"))
End Sub
End Class
(31-05-16, 02:31 PM)almalika كتب : السلام عليكم .... لو سمحتو انا نشتغل علي برنامج Microsoft Visual Studio 2008 بلغة ASP.NET وقاعدة بينات بلغة SQL SERVER وعندي كود برمجي فيه اخطاء ... لو سمحتو في حد يقدر يساعدني ...... ارجوووووووووكم .
هدا هو الكود البرمجي (لتنزيل مواد طالب )
1- كود تنزيل المواد:-
Imports System.Data.SqlClient
Partial Class DownLoad
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
Dim cmd As New SqlCommand
Dim myreader As SqlDataReader
Dim query As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label2.Text = " المعدّل التراكمي = " & Request.QueryString("Av") & "%"
Label1.Text = "يحق لك التنزيل " & Request.QueryString("Co") & " وحدة "
End Sub
Protected Sub Repeater1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles Repeater1.ItemCommand
End Sub
Protected Sub Repeater1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles Repeater1.ItemDataBound
Dim Btn As Button = e.Item.FindControl("BtnDonLod")
Dim SubNo As String = Btn.CommandArgument
Dim req As Label = e.Item.FindControl("RequisitesLabel")
If req.Text = "--" Then
Btn.Enabled = True
Btn.Font.Bold = True
Btn.ForeColor = Drawing.Color.Red
Else
'إن كانت للمادة اعتمادية يتم التأكد من أن الطالب المحدد أنجز الاعتماديّة أم لا
query = "select * from Result where SubNo='" & req.Text & "' AND StuNo ='" + Request.QueryString("No") + "' And Mark >=50 "
cmd = New SqlCommand(query, con)
cmd.Connection = con
con.Open()
myreader = cmd.ExecuteReader()
'إن كانت الاعتمادية مُنجزة يتم تنشيط زر المادة
If myreader.Read Then
Btn.Enabled = True
Btn.Font.Bold = True
Btn.ForeColor = Drawing.Color.Red
'إن كانت الاعتمادية مُنجزة لا يتم تنشيط زر المادة
Else
Btn.Enabled = False
End If
End If
con.Close()
'End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("Reports.aspx?stuNo=" + Request.QueryString("No"))
End Sub
End Class