منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عندي خطا في كود برمجي ولا اعرف اين الخطا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عندي خطا في كود برمجي ولا اعرف اين الخطا (/showthread.php?tid=15992)

عندي خطا في كود برمجي ولا اعرف اين الخطا - almalika - 31-05-16

السلام عليكم .... لو سمحتو انا نشتغل علي برنامج 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

RE: عندي خطا في كود برمجي ولا اعرف اين الخطا - samerselo - 01-06-16

ما هي الأخطاء والمشاكل التي تواجهك في الكود

RE: عندي خطا في كود برمجي ولا اعرف اين الخطا - aliday03 - 10-06-16

ما هي انواع الأخطاء والمشاكل التي تواجهك في الكود