تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عندي خطا في كود برمجي ولا اعرف اين الخطا
#1
السلام عليكم .... لو سمحتو انا نشتغل علي برنامج Microsoft Visual Studio 2008  بلغة ASP.NET  وقاعدة بينات بلغة  SQL SERVER  وعندي كود برمجي فيه اخطاء ... لو سمحتو في حد يقدر يساعدني ...... ارجوووووووووكم . Sad Sad Sad

(31-05-16, 02:31 PM)almalika كتب : السلام عليكم .... لو سمحتو انا نشتغل علي برنامج Microsoft Visual Studio 2008  بلغة ASP.NET  وقاعدة بينات بلغة  SQL SERVER  وعندي كود برمجي فيه اخطاء ... لو سمحتو في حد يقدر يساعدني ...... ارجوووووووووكم . Sad Sad Sad

هدا هو الكود البرمجي (لتنزيل مواد طالب ) 
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
الرد }}}
تم الشكر بواسطة:
#2
ما هي الأخطاء والمشاكل التي تواجهك في الكود
الرد }}}
تم الشكر بواسطة:
#3
ما هي انواع الأخطاء والمشاكل التي تواجهك في الكود
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم